正则

        Dim reg As New Regex("<input type=""radio""  name=""selection"" onClick=[^~]*?\('(?<1>[^~]*?)','(?<2>[^~]*?)','(?<3>[^~]*?)','(?<4>[^~]*?)','(?<5>[^~]*?)','(?<6>[^~]*?)','(?<7>[^~]*?)'\)")        '<input type="radio"  name="selection" onClick="selectData('S200507000009A','649U01T1','A','110202','Basic Function test','WR','M/B');"onmouseover="this.style.cursor='hand';"></td>        Dim mc As MatchCollection        mc = reg.Matches(ResStr1)  '处理数据ResStr1        'MsgBox(mc.Count)        Dim m As Match        For Each m In mc            j = j + 1            ReDim Preserve Arr(i, j)            Arr(0, j) = m.Groups("1").Value            Arr(1, j) = m.Groups("2").Value            If ComboBox1.Items.Contains(Arr(1, j)) = False Then                ComboBox1.Items.Add(Arr(1, j))            Else            End If            Arr(2, j) = m.Groups("3").Value            Arr(3, j) = m.Groups("4").Value            Arr(4, j) = m.Groups("5").Value            Arr(5, j) = m.Groups("6").Value            Arr(6, j) = m.Groups("7").Value        Next        'http://topic.csdn.net/u/20080619/22/A6461F33-CEEA-42E6-B6D7-08112CDA87FE.html        'http://topic.csdn.net/u/20081130/16/EF0E9B6F-106A-47ED-8966-5BF9758EA60F.html