mid 截取判断问题 忘高手指点。。。

Titanic8712

Browser("网上交易系统Web版2.0 Beta版").Page("网上交易系统Web版2.0 Beta版_2").Frame("mainFrame").WebElement("可购量:123").GetROProperty("outertext")
                outtertext=Browser("网上交易系统Web版2.0 Beta版").Page("网上交易系统Web版2.0 Beta版_2").Frame("mainFrame").WebElement("可购量:123").GetROProperty("outertext")
          box = Mid(outtertext,5, 3)


我要截取后面的数量 然后用if判断数量大于0
  但是每次运行后可购量会变化  
        忘高手指点。。。

TIB

可以试试下面的函数，利用了Mid函数来实现从一个字符串中查找并返回两个指定字符串之间的字符：

Function getStrBetween(Str,StartStr,EndStr)  
StartStrPos = Instr(Str, StartStr)+Len(StartStr)   
EndStrPos = Instr(Str,EndStr)   
Length = EndStrPos  - StartStrPos   
Res= Mid(Str,StartStrPos,Length)   
getStrBetween = Res
End Function

Str = "如何获取两个字符串之间的字符串？"
StartStr ="获取"
EndStr = "字符串"
Res = getStrBetween(Str,StartStr,EndStr)
Msgbox Res

TIB

或者借用一下Len函数来这样实现：
str = "可购量:123"
box = Mid(str,5,Len(str)-4)
print box

Titanic8712

谢谢  不胜感激