Question

VB 判断字符串

text1显示 40923423#4#9 判断从左到右 从第一个不是数字开始后面的字符串全部去掉 显示到text2 上

举例 43253647878*0*4#1 text2上显示 43253647878
7898754#1￥5……7432@ text2上显示 7898754

Answer 1

Private Sub Command1_Click()
Dim I As Integer, L As Integer, S As String
S = Trim(Text1.Text)
L = Len(S)
For I = 1 To L
If IsNumeric(Mid(S, I, 1)) = False Then
Exit For
End If
Next
Text2.Text = Left(S, I - 1)
End Sub