VB.NET用正则表达提取数字的问题！

你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.

创新互联建站服务项目包括西宁网站建设、西宁网站制作、西宁网页制作以及西宁网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，西宁网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到西宁省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

完整的程序如下(改动的地方见注释)

Dim bbb As String

bbb = TextBox1.Text  

Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格

MsgBox(My_str)

如何用vb.net 实现定时显示数字且能看到数字在变化

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可以显示 的呀。

vb.net 如何把大写金额转换成阿拉伯数字金额？

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

VB.NET中判断输入的是字符还是数字

可以用VB6里的函数

isnumeric()

比如要判断文本框里的内容是否数字

if isnumeric(TextBox1.text) Then

msgbox("是数字！")

else

msgbox("不是数字！")

end if

当前名称：vb.net数字 vbnet substring
链接URL：http://csdahua.cn/article/dopgogc.html