注册 登录
编程论坛 → VB6论坛

请问如何取一段字符串中的数字以及小数点

yflovevb01 发布于 2017-05-03 18:45， 4900 次点击
Private Sub Command1_Click()
Dim i, temp
temp = ""
For i = 1 To Len(Text1)
If IsNumeric(Mid(Text1, i, 1)) Then
temp = temp & Mid(Text1, i, 1)
End If
Next i
Text2.Text = temp
End Sub

这是我写的一段代码
我在text1中输入一段字符串
然后点击comm1   text2就会显示text1中的所有数字
但是他不会管小数点
例如我输入的“123abc456def789”
他会给我返回123456789
但是我如果输入的是“abc123.456”
他返回给我的也是123456
我现在需要他小数点也取出来
请问大神我应该更改哪个地方
3 回复
#2
yflovevb012017-05-03 19:06
在线等在线等！！！！！！！！！！
#3
风吹过b2017-05-03 20:55
程序代码：
Private Sub Command1_Click()
Dim i As Long, temp As String
Dim j As Long
temp = ""
For i = 1 To Len(Text1)
    j = Asc(Mid(Text1.Text, i, 1))
    If (j > 47 And j < 58) Or j = 46 Then           '数字或小数点
        temp = temp & Mid(Text1.Text, i, 1)
    End If
Next i
Text2.Text = temp
End Sub


1、代码未优化
2、未考虑多个小数点情况
#4
yflovevb012017-05-03 22:45
谢谢版主！
不需要多个小数点
一个就可以了
1
©2025, BC-CN.NET
电脑版