Question

VB 提取TEXT里的数字

如何才能把TEXI1里面的数字提取到TEXT2里。去掉中文和字母

Answer 1

Private Sub Command1_Click()
Dim i%
Text2.Text = ""
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) >= 48 And Asc(Mid(Text1.Text, i, 1)) <= 57 Then Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
Next
End Sub