VB 提取某段字符之前某段文字中某个字符的问题(望各位抽空解答,感激不尽)

Question

一段html代码中有这一段:
1赔3.0 vip:1赔3.3<br/>(总投注:5,总额:151金)<br/><input type="text" name="tou1" value=""问题:1~如何提取"3"?
    2~如何提取金字前面的151?注:1赔3.0和总额:151中.3和151处的内容是变化的,动态的.

Answer 1

   Private Sub Command1_Click()
      Dim strtemp As String
      strtemp = "这是一个测试"
      MsgBox InStr(1, strtemp, "是一")  '取到位置
    End Sub

Answer 2

对于3，用instr查找第一个“赔”和“ vip:”，然后用mid
对于151，instr查找“,总额:”和“金”，然后用mid

Answer 3

你也可以把它当作一个xml进行分析，封装一个解析的函数，这样使用起来也方便

Answer 4

感谢各位的解答,可惜还是不能解决问题.1赔3.0   vip:1赔3.3 <br/> (总投注:5,总额:151金) <br/> <input   type="text"   name="tou1"   value="" 1赔4.0   vip:1赔4.4 <br/> (总投注:5,总额:2222金) <br/> <input   type="text"   name="tou2"   value="" 
如果是2行甚至3行,1,2楼的方法似乎不适合.instr取不到特征字符位置.3楼hongqi162 的方法似懂非懂........
继续顶!希望解决...............

Answer 5

这个需要用到正则表达式,网上找一下正则表达式的用法就知道怎么做了
set re = RegEx("1赔(\d) *vip:1赔3.3总额:(\d)金","ig")