字符編碼轉(zhuǎn)換嗎?
創(chuàng)新互聯(lián)公司主要為客戶提供服務(wù)項目涵蓋了網(wǎng)頁視覺設(shè)計、VI標(biāo)志設(shè)計、網(wǎng)絡(luò)營銷推廣、網(wǎng)站程序開發(fā)、HTML5響應(yīng)式成都網(wǎng)站建設(shè)、手機(jī)網(wǎng)站開發(fā)、微商城、網(wǎng)站托管及成都網(wǎng)站維護(hù)公司、WEB系統(tǒng)開發(fā)、域名注冊、國內(nèi)外服務(wù)器租用、視頻、平面設(shè)計、SEO優(yōu)化排名。設(shè)計、前端、后端三個建站步驟的完善服務(wù)體系。一人跟蹤測試的建站服務(wù)標(biāo)準(zhǔn)。已經(jīng)為成都自拌料攪拌車行業(yè)客戶提供了網(wǎng)站設(shè)計服務(wù)。
1.字符與gb2312(gbk的子集):
Public Function GBKEncode(ByVal sInput As String) As String
Dim ret_GBKEncode As String = ""
Dim i As Integer
Dim startIndex As Integer = 0
Dim endIndex As Integer
Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode編碼存儲的
endIndex = x.Length - 1
For i = startIndex To endIndex
ret_GBKEncode = "%" Hex(x(i))
Next
Return ret_GBKEncode
End Function
'GBK解碼
Public Function GBKDecode(ByVal sInput As String) As String
sInput = sInput.Replace("%", "")
Dim ret_GBKDecode As String = ""
Dim sLen As Integer = sInput.Length
Dim n As Integer = sLen \ 2
Dim sBytes(0 To n - 1) As Byte
'轉(zhuǎn)化為字節(jié)碼
For i As Integer = 1 To n
sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))
Next
'將字節(jié)碼轉(zhuǎn)化為字符串
ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)
Return ret_GBKDecode
End Function
2.Unicode字符串為UTF-8
Imports System.Text
Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
Dim bytes() As Byte
bytes = Encoding.UTF8.GetBytes(strData)
Return bytes
End Function
'這里可以類推出好幾種。
你可以用 Encoding 對象轉(zhuǎn)。先用 Encoding.Unicode 轉(zhuǎn)成 Byte(),再轉(zhuǎn)回 Ansi。
也可以自己寫代碼,把/u替換為H,再逐個用ChrW()函數(shù)取得漢字即可。
我用的C#,我和你說下,你要做這個的思路吧,要用到的知識點(diǎn):比如說你在文本框里輸入漢字,點(diǎn)一button按扭來轉(zhuǎn)換,也就是說獲取文本框字符串,然后切割字符串轉(zhuǎn)化為數(shù)組,string [] str=textbox.text.ToCharArray()接下來用循環(huán)來一個方法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ù)自己的需求}大概的知識點(diǎn)要用到這些,不過,還有待他人和你自己的補(bǔ)充,我用的C#,以前我做過一個類似的(數(shù)字轉(zhuǎn)為漢字哈),不過,那全是用if....else 來判斷的,希望你能看懂,對你有幫助