如何用VB.net 讀寫Unicode編碼的文本

不要用do until，用for:

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供雨湖網(wǎng)站建設(shè)、雨湖做網(wǎng)站、雨湖網(wǎng)站設(shè)計(jì)、雨湖網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、雨湖企業(yè)網(wǎng)站模板建站服務(wù)，十年雨湖做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

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了。

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

哈，是我的失誤沒想到還有可能有半角的日文。

用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 如何將編碼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

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

vb.netmp4視頻怎么改編碼

打開格式轉(zhuǎn)換

進(jìn)入軟件，然后打開視頻格式轉(zhuǎn)換功能。

2/3

導(dǎo)入視頻

進(jìn)入轉(zhuǎn)換功能后，選擇一段視頻，然后點(diǎn)擊下一步。

完美動(dòng)力怎么剪輯視頻-CG行業(yè)全能人才孵化基地

值得一看的視頻相關(guān)信息推薦

完美動(dòng)力廣告

3/3

設(shè)置編碼格式

視頻導(dǎo)入成功后，首先設(shè)置目標(biāo)編碼格式，然后點(diǎn)擊開始轉(zhuǎn)換即可。