Question

vb text 只保留数字和小数点, 其他字符全部删除

例如：text1.text=dg4ds6dg8.dg9dg3d1.saf0啊.7的s
点击按钮之后
text2.text=468.93.0.7
上面的text2少一个数字
正确的
text2.text=468.931.0.7

Answer 1

Private Sub Command1_Click()
Dim i As Integer, s As String
Text2.Text = ""
For i = 1 To Len(Text1.Text)
    s = Mid(Text1.Text, i, 1)
    If (s >= "0" And s <= "9") Or s = "." Then Text2.Text = Text2.Text & s
Next
End Sub