use regular expressions, add a reference to vbscript regular expressions library, then try s= "........your 字符串here..............."
Set re = New RegExp
re.Pattern = ">([^<]+)<font color=#e10900>([^<]+)</font>"
re.IgnoreCase = True
Set matches = re.Execute(s)
If matches.Count > 0 Then
MsgBox matches(0).SubMatches(0) & matches(0).SubMatches(1)
End If
Set re = New RegExp
re.Pattern = ">([^<]+)<font color=#e10900>([^<]+)</font>"
re.IgnoreCase = True
Set matches = re.Execute(s)
If matches.Count > 0 Then
MsgBox matches(0).SubMatches(0) & matches(0).SubMatches(1)
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货