Question

VB怎麼提取一段字符串裏的数字

如"2014/2/10"，运行後非数字的字符都没了，结果是“2014210”

Answer 1

Private Sub Command1_Click()

s = "2014/02/10 12:03:48"

Print s

i = 1

While i <= Len(s)

  s1 = Mid(s, i, 1)

  If s1 < "0" Or s1 > "9" Then s = Replace(s, s1, "") Else i = i + 1

Wend

Print s

End Sub

Answer 2

你该学学正则表达式，用它来处理很快的。

Private Sub Command1_Click()
    Text = "如""2014/2/10""，运行後非数字的字符都没了，结果是“2014210”"
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.Pattern = "\D+"'匹配非数字
    Text = regex.Replace(Text, " ") '把非数字替换为一个空格
    MsgBox Text
End Sub

Answer 3

使用 VAL函数可以提取字符串中的数字，但只能提取连续的

遇到符号即停止

解决办法是分段提取，然后在组合