vb中，取字符串中1到9的数字该如何写代码

来源：百度知道 编辑：UC知道 时间：2024/06/02 03:24:40
如某字符串如9GC0CQ7Y或58DG0GKK，该如何取出里面的1到9的数字并叠加（不是相加），如9GC0CQ7Y取出来应该是97，58DG0GKK取出来应该是58，用vb代码如何实现？

请大家指教，谢谢。

一个text 和command
Private Sub Command1_Click()
Dim i As String
Dim x As Integer
Dim y As String
i = CStr(Text1.Text)
If Len(i) = 0 Then
Print "错误！不能为空！"
Else
x = Len(i)
Do While x
If (Mid(i, x, 1)) > 0 And (Mid(i, x, 1)) <= 9 Then
y = Mid(i, x, 1) & y
x = x - 1
Else
x = x - 1
End If

Loop
Print y
End If

End Sub