正则

最新推荐文章于 2024-08-03 05:56:08 发布

lwy7758

最新推荐文章于 2024-08-03 05:56:08 发布

阅读量404

点赞数

CC 4.0 BY-SA版权

文章标签： input regex basic function each

本文链接：https://blog.youkuaiyun.com/lwy7758/article/details/7516314

本文介绍了一种使用正则表达式从网页中提取特定数据的方法，并详细解释了如何处理用户点击事件触发的函数调用。通过实例展示了数据收集与用户交互之间的紧密联系。

        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.youkuaiyun.com/u/20080619/22/A6461F33-CEEA-42E6-B6D7-08112CDA87FE.html
        'http://topic.youkuaiyun.com/u/20081130/16/EF0E9B6F-106A-47ED-8966-5BF9758EA60F.html