在最顶部输入 ''' 就可以输入全角符号了。
参考代码。
''' Dim data As String = "<tr><td style='width: 85%;'><Table><tbody><tr><td align='left' valign='top' width='75'><span style='height: 10px;'>应聘职位:</span></td><td align='left' class='blue1' valign='top'>医药代表(苏州)(苏州)</td></tr><tr><td align='left' valign='top' width='75'><span style='height: 10px;'>应聘公司:</span></td><td align='left' class='blue1' valign='top'>" Dim catchs As New System.Text.RegularExpressions.Regex("[>][\u4E00-\u9FFF():]+<") '匹配汉字 Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data) For i As Integer = 0 To mc.Count - 1 msgbox(mc(i).Value) Next
|