主题：求助：文本的计算

还是不懂就上例子.

Dim str As String = "5箱"

Dim s As String = System.Text.RegularExpressions.Regex.match(str,"[0-9]+").Tostring()

if s <> "" then

MessageBox.show(s)

 '转数值可以用 Val(S)  或者cint(S)

end if