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

創(chuàng)新互聯(lián)自2013年創(chuàng)立以來,先為長(zhǎng)順等服務(wù)建站,長(zhǎng)順等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為長(zhǎng)順企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
完整的程序如下(改動(dòng)的地方見注釋)
Dim?bbb?As?String
bbb?=?TextBox1.Text??
Dim?My_str?As?String?=?Regex.Replace(bbb,?"[^0-9]",?"?")?'這里把替換所有非數(shù)字為空字符串,改為替換所有非數(shù)字為空格
MsgBox(My_str)
源代碼如下:(代碼寫在按鈕點(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ù)的用法如果不懂的可以自己搜索下,此外還有別的方法,這里就不多說了
如果是固定格式的,
str=34X+45Y=67Z
x=split(str,"X")(0) ‘以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代碼,
Dim?測(cè)試文本?=?"td?class=''68/tdtd?class=''65/tdtd?class=''169/td"
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
軟糖來回答吧, 已測(cè)試可用。
如滿意請(qǐng)采納,謝謝。
網(wǎng)頁題目:vb.net提取數(shù)字,vb四位數(shù)提取
網(wǎng)頁URL:http://chinadenli.net/article25/dsiphci.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計(jì)、Google、ChatGPT、搜索引擎優(yōu)化、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)