vb.net如何以u(píng)nicode編碼將文本寫(xiě)入到文件里

只要指定寫(xiě)入文件的編碼就行了，很簡(jiǎn)單的。

成都創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括墊江網(wǎng)站建設(shè)、墊江網(wǎng)站制作、墊江網(wǎng)頁(yè)制作以及墊江網(wǎng)絡(luò)營(yíng)銷(xiāo)策劃等。多年來(lái)，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，墊江網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到墊江省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

Dim vSW As New IO.StreamWriter("C:\Test.txt", False, System.Text.Encoding.Unicode)

vSW.Write("這是unicode編碼的文本")

vSW.Close()

VB.NET UNICODE碼 顯示

Public?Class?Form1

Dim?b()?As?Byte

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

b?=?System.Text.Encoding.Default.GetBytes(TextBox1.Text)

For?i?=?0?To?UBound(b)

TextBox2.AppendText(i.ToString??"?")

Next

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

TextBox1.Text?=?System.Text.Encoding.Default.GetString(b)

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

TextBox1.Text?=?"Google?free?online?translation?service?instantly?translates?text?and?web?pages。?該翻譯器支持:?中文(簡(jiǎn)體),?中文(繁體),?shqip,?日本語(yǔ),?русский,?langue?fran?aise?..."

End?Sub

End?ClassVB.Net中用String類(lèi)型表示字符串，內(nèi)部采用Unicode編碼。當(dāng)需要在網(wǎng)絡(luò)或串口中收發(fā)字符串時(shí)，就需要在String和Byte數(shù)組之間進(jìn)行轉(zhuǎn)換，這項(xiàng)功能可以通過(guò)System.Text.Encoding類(lèi)實(shí)現(xiàn)。

Private zeroChars()?As Char?=?{ChrW(0)}

Dim descBytes()?As Byte?=?System.Text.Encoding.Unicode.GetBytes(mDescription)

Dim?description As?String?=?System.Text.Encoding.Unicode.GetString(rBuffer,?offset,?length).TrimEnd(zeroChars)

說(shuō)明：C語(yǔ)言中用'\0'表示字符串結(jié)束，而String類(lèi)型中0是有效字符，顯示時(shí)是空白字符，會(huì)占用顯示寬度，可以用TrimEnd方法將字符串末尾的零字符去掉。

主要敘說(shuō)一下StrConv 函數(shù)conversion參數(shù)最后兩個(gè)值的含義和用途，并舉例說(shuō)明。

1、語(yǔ)法

StrConv(string, conversion, LCID)

StrConv 函數(shù)的語(yǔ)法有下面的命名參數(shù)：

部分 說(shuō)明

string 必要參數(shù)。要轉(zhuǎn)換的字符串表達(dá)式。

conversion 必要參數(shù)。Integer。其值的和決定轉(zhuǎn)換的類(lèi)型。

LCID 可選的。如果與系統(tǒng)LocaleID不同，則為L(zhǎng)ocaleID（系統(tǒng)LocaleID為缺省值。）

設(shè)置值

conversion 參數(shù)的設(shè)置值為：

常數(shù) 值 說(shuō)明

vbUpperCase 1 將字符串文字轉(zhuǎn)成大寫(xiě)。

vbLowerCase 2 將字符串文字轉(zhuǎn)成小寫(xiě)。

vbProperCase 3 將字符串中每個(gè)字的開(kāi)頭字母轉(zhuǎn)成大寫(xiě)。

vbWide* 4* 將字符串中單字節(jié)字符轉(zhuǎn)成雙字節(jié)字符。

vbNarrow* 8* 將字符串中雙字節(jié)字符轉(zhuǎn)成單字節(jié)字符。

vbKatakana** 16** 將字符串中平假名字符轉(zhuǎn)成片假名字符。

vbHiragana** 32** 將字符串中片假名字符轉(zhuǎn)成平假名字符。

vbUnicode 64 根據(jù)系統(tǒng)的缺省碼頁(yè)將字符串轉(zhuǎn)成 Unicode。

vbFromUnicode 128 將字符串由 Unicode 轉(zhuǎn)成系統(tǒng)的缺省碼頁(yè)。

*應(yīng)用到遠(yuǎn)東國(guó)別。

**僅應(yīng)用到日本。

說(shuō)明：前面3個(gè)參數(shù)比較簡(jiǎn)單，后面4個(gè)我們用不上，就不說(shuō)了，主要說(shuō)說(shuō)后面兩個(gè)。

2、ANSI 格式

語(yǔ)法中說(shuō)的缺省碼頁(yè)就是ANSI模式，英文環(huán)境下 的ANSI 格式其實(shí)也就是ASCII碼，其它環(huán)境就不一樣了，比如中文環(huán)境，就是ASCII，一個(gè)字節(jié)表示一個(gè)字符，GB2312，2個(gè)字節(jié)表示一個(gè)漢字，所以中文環(huán)境下的ANSI格式就是ASCII碼+GB2312，早期的DOS系統(tǒng)中純文本就是這種格式，這種格式下，通過(guò)最高位來(lái)判斷是中文字符（最高位是1）還是ASCII字符（最高位是0）。中文環(huán)境下保存文本文件時(shí)一般都采用ANSI格式，不過(guò)也有其他格式，比如UTF-8。

3、Unicode編碼

Unicode（統(tǒng)一碼、萬(wàn)國(guó)碼、單一碼）是一種在計(jì)算機(jī)上使用的字符編碼。Unicode 是為了解決傳統(tǒng)的字符編碼方案的局限而產(chǎn)生的，它為每種語(yǔ)言中的每個(gè)字符設(shè)定了統(tǒng)一并且唯一的二進(jìn)制編碼，以滿足跨語(yǔ)言、跨平臺(tái)進(jìn)行文本轉(zhuǎn)換、處理的要求。Unicode用兩個(gè)字節(jié)表示一個(gè)字符，涵蓋了世界上所有字符，和以前的字符集都不兼容，VB內(nèi)部字符串就是采用Unicode編碼，所以當(dāng)我們打開(kāi)一個(gè)文本文件讀入數(shù)據(jù)的時(shí)候，其內(nèi)存中的內(nèi)容和文本文件的內(nèi)容是不一樣的，經(jīng)過(guò)了轉(zhuǎn)換，除非你采用二進(jìn)制方式讀入。

4、vbUnicode和vbFromUnicode含義

有了上面敘說(shuō)，這兩個(gè)參數(shù)的含義就好理解了，就是Unicode編碼和ANSI編碼的互換，例如：

? ? ? textline= StrConv(plaintext,vbUnicode) ?

這兒textline是以字符串變量，plaintext是以字節(jié)變量保存著ANSI模式的字符內(nèi)容，例如，“2”這個(gè)字符，一個(gè)字節(jié)，值是50，16進(jìn)制是32，“皖”這個(gè)漢字，兩個(gè)字節(jié)，值是205和238，同樣是這兩個(gè)字符，作為字符串在內(nèi)存中都是兩個(gè)字節(jié)，例如，“2”這個(gè)字符在內(nèi)存中16進(jìn)制值是0032。當(dāng)VB打開(kāi)一個(gè)文件讀取文本內(nèi)容是，實(shí)際上自動(dòng)進(jìn)行了上述轉(zhuǎn)換。

? ? ?plaintext?= StrConv(textline,?vbFromUnicode)

這兒進(jìn)行相反的轉(zhuǎn)換，就是將Unicode字符串轉(zhuǎn)換成ANSI模式，轉(zhuǎn)換結(jié)果必須以字節(jié)方式保存。

5、vbUnicode和vbFromUnicode用途

由于字符在內(nèi)存中的內(nèi)容和文件中的內(nèi)容不一致，所以必須要用到這種轉(zhuǎn)換，特別是系統(tǒng)間進(jìn)行數(shù)據(jù)交換、數(shù)據(jù)加密和解密，如果不做轉(zhuǎn)換可能導(dǎo)致得不到正確的結(jié)果。

比如，我們對(duì)一個(gè)文本文件進(jìn)行加密，這個(gè)文件是ANSI格式存儲(chǔ)的，當(dāng)從文件內(nèi)容讀入一行到內(nèi)存的時(shí)候，自動(dòng)將內(nèi)容轉(zhuǎn)換成了Unicode格式，如果這時(shí)候?qū)ζ渥黾用苓\(yùn)算，其結(jié)果和文件中字符串加密結(jié)果是不一樣的，這樣的結(jié)果如果讓別人解密將無(wú)法得到正確的結(jié)果。如果對(duì)讀入內(nèi)存的內(nèi)容先做個(gè)轉(zhuǎn)換（textline是讀入內(nèi)容）：

? ? ?plaintext?= StrConv(textline,?vbFromUnicode)

再對(duì)plaintext做加密，其結(jié)果就一樣了。

舉例（按行做加密和解密運(yùn)算，算法是AES+Base64）：

[vb]?view plain?copy

Status?=?"Encrypting?File"

Open?FileName?For?Input?As?#1??????'?打開(kāi)輸入文件。

Open?FileName2?For?Output?As?#2?????'?打開(kāi)輸出文件。

Do?While?Not?EOF(1)

Line?Input?#1,?TextLine

plaintext?=?StrConv(TextLine,?vbFromUnicode)

Status?=?"Encrypting?Data"

m_Rijndael.SetCipherKey?pass,?KeyBits

m_Rijndael.ArrayEncrypt?plaintext,?ciphertext,?0

Status?=?"Converting?Text?to?Base64"

TextLine?=?Base64Encode(ciphertext)

Status?=?""

Print?#2,?TextLine????'?將字符串寫(xiě)入文件。

Loop

Close

[vb]?view plain?copy

Status?=?"Decrypting?File"

Open?FileName?For?Input?As?#1??????'?打開(kāi)輸入文件。

Open?FileName2?For?Output?As?#2????'?打開(kāi)輸出文件。

Do?While?Not?EOF(1)

Line?Input?#1,?TextLine

Status?=?"Converting?Base64?to?Text"

ciphertext?=?Base64Decode(TextLine)

Status?=?"Decrypting?Data"

m_Rijndael.SetCipherKey?pass,?KeyBits

If?m_Rijndael.ArrayDecrypt(plaintext,?ciphertext,?0)??0?Then

Status?=?""

Exit?Sub

End?If

TextLine?=?StrConv(plaintext,?vbUnicode)

For?i?=?0?To?UBound(plaintext)

Debug.Print?plaintext(i)

Next?i

k?=?InStr(1,?TextLine,?Chr(0),?vbBinaryCompare)

If?k??0?Then?TextLine?=?Left(TextLine,?k?-?1)????'截掉加密時(shí)補(bǔ)的0

MsgBox?TextLine??"end"

Status?=?""

Print?#2,?TextLine????'?將字符串寫(xiě)入文件。

Loop

Close

vb.net 如何將編碼GB2312轉(zhuǎn)成UTF8

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

說(shuō)明：strData參數(shù)是GB2312字符串，函數(shù)返回UTF8字節(jié)數(shù)組

如何用VB.net 讀寫(xiě)Unicode編碼的文本

不要用do until，用for:

Dim arr() As String, i As Integer

arr = Split(r.ReadLine, " ")

For i = LBound(arr) To UBound(arr)

MsgBox(arr(i))

Next

－－－－－－－－－－－－－－－－－－－－

還是用readline,如果你要提取兩個(gè)非連續(xù)空格之間的字符串，可以用

Dim arr() As String

arr = Split(r.ReadLine, " ")

arr()數(shù)組里就存了你要的單詞。

快要下班了，明后天不上班，如果16：30之前還搞不定就要下個(gè)星期1了。

----------------------------------

哈，是我的失誤沒(méi)想到還有可能有半角的日文。

用utf-8就OK了，代碼如下：

（文本文件存的時(shí)候不能存成ansi，要存成utf-8，或是Unicode）

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

Dim r As System.IO.StreamReader

r = New System.IO.StreamReader("c:\a.txt", System.Text.Encoding.GetEncoding("utf-8"))

Do While Not r.EndOfStream

MsgBox(r.ReadLine)

Loop

End Sub

名稱欄目：vb.net文本編碼 VB代碼格式
本文來(lái)源：http://jinyejixie.com/article38/hpcdsp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、標(biāo)簽優(yōu)化、、云服務(wù)器、網(wǎng)站設(shè)計(jì)公司、品牌網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)