你用的都是vb6的代碼,改成:
為青田等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù),及青田網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計、做網(wǎng)站、青田網(wǎng)站設(shè)計,以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("輸入有非數(shù)字字符,請重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
源代碼如下:(代碼寫在按鈕點擊事件里)
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 將一個字符串拆分成單個字符,然后用like運算符進(jìn)行對比是否為數(shù)字,關(guān)于這兩個函數(shù)的用法如果不懂的可以自己搜索下,此外還有別的方法,這里就不多說了
你把替換所有非數(shù)字為空字符串,改為替換所有非數(shù)字為空格,就可以把每組數(shù)字分開了.
完整的程序如下(改動的地方見注釋)
Dim?bbb?As?String
bbb?=?TextBox1.Text??
Dim?My_str?As?String?=?Regex.Replace(bbb,?"[^0-9]",?"?")?'這里把替換所有非數(shù)字為空字符串,改為替換所有非數(shù)字為空格
MsgBox(My_str)
Dim?測試文本?=?"td?class=''68/tdtd?class=''65/tdtd?class=''169/td"
Dim?匹配集合?=?(New?Regex("(?is)(?=)[^]+(?=)")).Matches(測試文本)
Dim?結(jié)果列表?As?New?List(Of?Decimal)
For?Each?匹配?As?Match?In?匹配集合
If?IsNumeric(匹配.Value)?Then?結(jié)果列表.Add(CDec(匹配.Value))
Next
軟糖來回答吧, 已測試可用。
如滿意請采納,謝謝。
可以用VB6里的函數(shù)
isnumeric()
比如要判斷文本框里的內(nèi)容是否數(shù)字
if isnumeric(TextBox1.text) Then
msgbox("是數(shù)字!")
else
msgbox("不是數(shù)字!")
end if
如果用常規(guī)編程的方法:
直接用split(str1,“,”)的形式把str1字符串分成字符串?dāng)?shù)組,然后用for循環(huán)判斷每個數(shù)組元素是否是數(shù)字或者是字符串就可以了。
文章名稱:關(guān)于vb.net數(shù)字識別的信息
文章網(wǎng)址:http://chinadenli.net/article24/hedjje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供建站公司、軟件開發(fā)、小程序開發(fā)、網(wǎng)站設(shè)計、Google、移動網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)