重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
创新互联建站服务项目包括西宁网站建设、西宁网站制作、西宁网页制作以及西宁网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,西宁网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到西宁省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i
i = i + 1
TextBox1.Text = i
End Sub
End Class
你试试上面吗的代码,应该可以的呀。vb 2010上 0.1s可以显示 的呀。
Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr = Text2.Text
myint = InStr(mystr, ".")
If myint = 0 Then
mystr = Text2.Text
Else
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)
If mystr3 "" Then '转换小数位
mystr4 = Left(mystr3, 1)
mystr3 = Right(mystr3, Len(mystr3) - 1)
If mystr4 "0" Then
mystr2 = mystr2 + setdata(Val(mystr4)) + "角"
End If
If mystr3 "" Then
mystr4 = Left(mystr3, 1)
mystr2 = mystr2 + setdata(Val(mystr4)) + "分"
End If
End If
mystr = Left(Text2.Text, myint - 1)
End If
j = Len(mystr)
For i = 1 To Len(mystr) '转换整数位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"
Else
If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"
End If
Else
mystr1 = mystr1 setdata(money1) + chang(j)
End If
j = j - 1
Next i
Text1.Text = mystr1 "元" mystr2 '显示大写
End Sub
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字!")
else
msgbox("不是数字!")
end if