VB语言怎么提取字符串中的数字比
Private Sub Command1_Click()
Dim AAA, BBB As String
Dim I, JJ As Integer
I = 0
BBB = ""
AAA = "sd12f5/6t/0/20f100"
For JJ = 1 To Len(AAA)
If Asc(Mid(AAA, JJ, 1)) >= 48 And Asc(Mid(AAA, JJ, 1)) <= 57 Then
BBB = BBB & Mid(AAA, JJ, 1)
Else
I = I + Val(BBB)
BBB = ""
End If
Next
I = I + Val(BBB)
MsgBox...全部
Private Sub Command1_Click()
Dim AAA, BBB As String
Dim I, JJ As Integer
I = 0
BBB = ""
AAA = "sd12f5/6t/0/20f100"
For JJ = 1 To Len(AAA)
If Asc(Mid(AAA, JJ, 1)) >= 48 And Asc(Mid(AAA, JJ, 1)) <= 57 Then
BBB = BBB & Mid(AAA, JJ, 1)
Else
I = I + Val(BBB)
BBB = ""
End If
Next
I = I + Val(BBB)
MsgBox I
End Sub。
收起