正则表达式在vb.net中的简单应用

[原帖地址]http://topic.csdn.net/u/20111017/17/115e0ab3-af38-4dc2-b65f-40871dfadce3.html

原帖作者要用正则取

<?xml version='1.0' encoding='utf-8'?><gbook><info gid='1' g1='233' g2='�ַ�����' g3='2010-10-10' g4='15:3' g5='8.92'

引号中的字符/.

解决方案:

取一个match

        Imports System.Text.RegularExpressions

        Dim str As String = "g19='0.028' g20='3' g21='1' g22='24.1' g23='10.8'"
        Dim reg As New Regex("'([^']*)'")
        Dim m As Match = reg.Match(str)
        If m.success Then
            MsgBox(m.Groups(0).ToString)
        End If

只能取到第一个匹配的.

取多个match

        Dim str As String = " g16='.03' g17='29.886' g18='0.022'"
        Dim reg As New System.Text.RegularExpressions.Regex("'([^']*)'")
        Dim m As System.Text.RegularExpressions.MatchCollection = reg.Matches(str)
        For Each Match In m
            ListBox1.Items.Add(Match.ToString)
        Next