Question

VB中如何提取字符串中的部分数字

比如字符串：共 3 条，每页显示 50 100 条
如何获取里面的动态数字 3 ？
已经解决了：
a = Browser("****").Page("****").Frame("main").WebTable("日期").GetCellData(2,1)
msgbox a
msgbox len(a)
s=""
for i=1 to len(a)
b=mid(a,i,1)
If b= "条" then exit FOR
if b>="0" and b<="9" then s=s & b
next
msgbox s

请问下如何将这个功能写成公共函数，将 a 参数化，调用这个函数的时候给a赋值，并返回s，下面这个总是提示 缺少 ），什么意思？
Function getTotal (PageValue as string) as string
PageValue= ""
For i= 1 to len(PageValue)
j= mid(PageValue,i,1)
If j= "条" then exit For
If j>="0" and j<="9" then PageValue=PageValue & j
next

End Function

Answer 1

更简单通用的：
for i=1 to len(a)
b=mid(a,i,1)
If isnumeric(b) then
s=val(mid(a,i))
exit for
end if
next

追问

这样的话返回值就是 350100，不是需要的 3

追答

不会的，val会在碰到非数字字符后返回。