vb中字符类型比如“红_4532”转换为数值类型比如说“4532”的小程序

来源：百度知道 编辑：UC知道 时间：2024/05/22 08:43:15
求一段小程序，谢谢，或者有没有字符转数值的公式呢？？？请各位大侠帮忙

好的程序来了,自己亲手为你编写的,已经验证OK了,你可以直接用!!!

Private Sub Command1_Click()
Dim str1, str2 As String
Dim i As Integer
str1 = "红_4532"
For i = 1 To Len(str1)
If IsNumeric(Mid(str1, i, 1)) Then
str2 = str2 & Mid(str1, i, 1)
End If
Next
MsgBox str2
End Sub

我也是学VB的新手,我们互相学习呗!!!呵呵!^_^

1.取字符串中的数字部分：【3，4】从3起4个长度。
2.val(结果）。
赋给数据变量。

直接使用函数val就可以了。