求一個(gè)可以把漢字轉(zhuǎn)換為數(shù)字的VB.NET程序

我用的C#，我和你說(shuō)下，你要做這個(gè)的思路吧，要用到的知識(shí)點(diǎn)：比如說(shuō)你在文本框里輸入漢字，點(diǎn)一button按扭來(lái)轉(zhuǎn)換，也就是說(shuō)獲取文本框字符串，然后切割字符串轉(zhuǎn)化為數(shù)組，string [] str=textbox.text.ToCharArray()接下來(lái)用循環(huán)來(lái)一個(gè)方法for(int i=0,istr.length;i++){if(str[i]=="壹"){str[i]=str[i].replace(壹,1);/pp}else{str[i]=str[i].replace(貳,2);} //這里根據(jù)自己的需求}大概的知識(shí)點(diǎn)要用到這些，不過(guò)，還有待他人和你自己的補(bǔ)充，我用的C#，以前我做過(guò)一個(gè)類似的(數(shù)字轉(zhuǎn)為漢字哈)，不過(guò)，那全是用if....else 來(lái)判斷的，希望你能看懂，對(duì)你有幫助

創(chuàng)新互聯(lián)專注于象山企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,成都商城網(wǎng)站開(kāi)發(fā)。象山網(wǎng)站建設(shè)公司,為象山等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

vb.net 2010 如何把文本框中的數(shù)字提取出來(lái)

源代碼如下：（代碼寫(xiě)在按鈕點(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ō)了

VB 怎樣將字符串轉(zhuǎn)化為數(shù)值

最簡(jiǎn)單的就是直接轉(zhuǎn)換，就是把字符串變量賦值給數(shù)值變量。\x0d\x0a數(shù)值變量=字符串\x0d\x0a\x0d\x0a如果必須轉(zhuǎn)換，就使用 Val 函數(shù)賦值，會(huì)把字符串轉(zhuǎn)換成雙精度數(shù)。\x0d\x0a比如：數(shù)值變量=Val(字符串)\x0d\x0a例：\x0d\x0an = Val("3.5") ' 變量n賦值為3.5\x0d\x0a\x0d\x0a或者使用取整函數(shù)，也可以轉(zhuǎn)換。\x0d\x0a比如：數(shù)值變量=Int(字符串) 或者 數(shù)值變量=CInt(字符串)\x0d\x0a例：\x0d\x0an = Int("3.5") ' 取整數(shù)，變量n賦值為3\x0d\x0a\x0d\x0an = CInt("3.5") ' 四舍五入取整數(shù)，變量n賦值為4

VB.NET如何把字符串（不全是數(shù)字或?yàn)榭眨┺D(zhuǎn)換成數(shù)字？

明白你的意思了,只要是字母都會(huì)轉(zhuǎn)換成數(shù)字,幫你寫(xiě)好了("usernane"和 "pasward" 我這里寫(xiě)成 "username" 和" password"）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim username, password As String

Dim temp As Long

Dim r As String = ""

Dim v As String = TextBox1.Text

For Each c In v.ToString

If IsNumeric(c) Then

r = c

Else

r = ((Asc(c) - 65).ToString("00"))

End If

Next

username = r

temp = username * 3 - 500

password = CStr(temp)

TextBox2.Text = password

End Sub

標(biāo)題名稱：vb.net文本轉(zhuǎn)數(shù)字 vba數(shù)字轉(zhuǎn)文本
鏈接地址：http://jinyejixie.com/article2/ddogdoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷型網(wǎng)站建設(shè)、App設(shè)計(jì)、全網(wǎng)營(yíng)銷推廣、響應(yīng)式網(wǎng)站、微信小程序、網(wǎng)站策劃

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)