VB點(diǎn)虐 用正則表達(dá)式提取數(shù)字！

Dim?測(cè)試亂灶文本?=?"td?class=''68/tdtd?class=''65/tdtd?class=''169/td"

廣信ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來(lái)市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

Dim?匹配集合?棚銀=?(New?Regex("(?is)(?=)[^]+(?=)")).Matches(測(cè)試文本)

Dim?結(jié)果列表?As?New?List（Of?Decimal）

For?Each?匹配?As?Match?In?匹配集合

If?IsNumeric(匹嘩和扮配.Value)?Then?結(jié)果列表.Add(CDec(匹配.Value))

Next

軟糖來(lái)回答吧， 已測(cè)試可用。

如滿意請(qǐng)采納，謝謝。

VB.Net 怎樣提取TextBox中指定文本前的數(shù)字？比如提取“34X+45Y=67Z"里的數(shù)字

如果是固定格式的，

str=34X+45Y=67Z

x=split(str,"X")(0) ‘枝數(shù)模以X分割，取第0段，即：34

y=split(split(str,'+')(1),'Y')(0) '以+分割，取第1段即：45Y=67Z，再以Y分割，取0段得45

z=split(split(str,'=')(1),'Y')(0) '同上

把字符串分割，查找，截取這些常用畢族字符串處理函數(shù)掌握了，

就差不多能隨心所欲的處理猛緩了...

以上是vb6.0代碼,

VB.NET用正則表達(dá)提取數(shù)字的問(wèn)題！

你把替換所有非數(shù)字為空字符串,改為替換拿閉所有非數(shù)字為空格,就可以把每組數(shù)字分開(kāi)了.

完整的程序如下(改動(dòng)的地方見(jiàn)注釋)

Dim?bbb?As?String

bbb?=?TextBox1.Text??

Dim?My_str?As?String?=?Regex.Replace(bbb,?"[^0-9]",?"?盯帶")?'這里把替換所有非數(shù)字為空字符串凱敏蘆,改為替換所有非數(shù)字為空格

MsgBox(My_str)

vb點(diǎn)虐 2010 如何把文本框中的數(shù)字提取出來(lái)

源代碼如下：（代碼寫在按鈕點(diǎn)擊事件里）

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

Next

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

Next

此方法用的是mid 將一個(gè)字符串拆分成單個(gè)字符，然后用like運(yùn)算符進(jìn)行對(duì)比是否為數(shù)字，關(guān)于這兩個(gè)函數(shù)的用法如果不懂的可以自己搜索下，搜襲睜此外還有別的方法，這里就不多說(shuō)了