vb点虐提取数字 vb字符串提取

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

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

创新互联的客户来自各行各业，为了共同目标，我们在工作上密切配合，从创业型小企业到企事业单位，感谢他们对我们的要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括网站设计、成都网站建设、电商网站开发、微信营销、系统平台开发。

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

Dim bbb As String

bbb = TextBox1.Text

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

MsgBox(My_str)

源代码如下：（代码写在按钮点击事件里）

Label1.Text = ""

Label2.Text = ""

Dim a As String = TextBox1.Text

Dim b As String = TextBox2.Text

For x = 1 To a.Length

Dim txt As String = Mid(a, x, 1)

If txt Like "#" Then

Label1.Text = Label1.Text txt

End If

For x = 1 To b.Length

Dim txt As String = Mid(b, x, 1)

If txt Like "#" Then

Label2.Text = Label2.Text txt

End If

此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了

Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"

Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)

Dim 结果列表 As New List（Of Decimal）

For Each 匹配 As Match In 匹配集合

If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))

软糖来回答吧，已测试可用。

如满意请采纳，谢谢。

本文题目：vb点虐提取数字 vb字符串提取
分享链接：http://shouzuofang.com/article/ddjejoh.html