怎样截取一段字符中间的数字？

军临城下

怎样截取一段字符中间的数字？例如：
innertext:=共21条，/11页
我只要获取11这个数字

但当innertext:=共15条，/5页的时候
我只要获取5这个数字


请问论坛的XDJM，这个应该怎么样去处理呢？

lingxin5013

Str="innertext:=共21条,/11页 "
arr=split(Str,"/")
arr1=split(arr(1),"页")
msgbox arr1(0)
　自己运行看结果吧！　希望对你帮助

happychap

lingxin5013的做法应该是对的，哈哈。

centurystone

lingxin5013的做法应该是对的

军临城下

谢谢lingxin5013这位朋友啦！呵呵
你的思路很清晰，处理的很好哦！
我刚开始以为要用一个正则表达式来写，晕啊！

lingxin5013

不谢　　共同学习　共同提高

gjay1688

貌似可以直接用函数...

军临城下

这个地方用split来实现确实很方便啊~呵呵。。。

dabie

还未了解QTP,刚开始看,问个问题:qtp中没有mid吗,splite都有

hsjzfling

原帖由 军临城下 于 2008-9-2 16:57 发表
谢谢lingxin5013这位朋友啦！呵呵
你的思路很清晰，处理的很好哦！
我刚开始以为要用一个正则表达式来写，晕啊！

用正则表达式来写思路也很正确啊，Copy下帮助中的代码，稍微改一点点就行了
只要去取字符串中的第二个数字就可以了，只要简单的这样写就行咯

WScript.Echo RegExpTest("\d+","innertext:=共21条，/11页")

Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = patrn         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
  regEx.Global = True         ' 设置全局可用性。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  RegExpTest = Matches(1)    '取匹配到的第二个值
End Function

maguschen

另一种做法~

Str="innertext:=共21条，/11页 "
slashPosition = InStr (str,"/")
yePosition = InStr (str,"页")
number = Mid(str,slashPosition+1,yePosition-slashPosition-1)
MsgBox number

lingxin5013

原帖由 dabie 于 2008-9-2 17:30 发表
还未了解QTP,刚开始看,问个问题:qtp中没有mid吗,splite都有

当然支持mid 你可以在QTP看帮助文档

dabie

谢谢楼上.