vb.net轉(zhuǎn)換文件編碼 vb數(shù)據(jù)類型轉(zhuǎn)換

vb.net中string 轉(zhuǎn) unicode 編碼

Unicode編碼是一個(gè)數(shù)組，其中每個(gè)元素代表一個(gè)位碼，還有ASCII和UTF8兩種編碼格式。

我們提供的服務(wù)有：成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、碭山ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的碭山網(wǎng)站制作公司

Unicode：

Dim bytes() As Byte() = System.Text.Encoding.Unicode.GetBytes("字符串")

ASCII：

Dim bytes() As Byte() = System.Text.Encoding.ASCII.GetBytes("字符串")

UTF8：

Dim bytes() As Byte() = System.Text.Encoding.UTF8.GetBytes("字符串")

vb.net怎么把漢字轉(zhuǎn)換為GB2312編碼,例如“廣東”變成%B9%E3%B6%AB

GB2312是GBK編碼的子集，使用GBK編碼函數(shù)即可

'GBK編碼(結(jié)果以百分號(hào)%進(jìn)行分隔)

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中都是以u(píng)nicode編碼存儲(chǔ)的

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

vb.netmp4視頻怎么改編碼

打開(kāi)格式轉(zhuǎn)換

進(jìn)入軟件，然后打開(kāi)視頻格式轉(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)擊開(kāi)始轉(zhuǎn)換即可。

VB 怎么更改TXT編碼格式和讀取Txt指定字符

VB可以通過(guò)CreateObject函數(shù)來(lái)實(shí)現(xiàn)打開(kāi)UTF-8編碼格式文本文件，將它顯示于文本框中。并可通過(guò)Print # 語(yǔ)句將格式化顯示的數(shù)據(jù)以ANSI格式寫(xiě)入順序文件中。

CreateObject函數(shù)，創(chuàng)建并返回一個(gè)對(duì) ActiveX 對(duì)象的引用。

Print # 語(yǔ)句，將格式化顯示的數(shù)據(jù)寫(xiě)入順序文件中。

以下是實(shí)現(xiàn)代碼：

Private?Sub?Command1_Click()

Dim?ados?As?Object

Dim?str?As?String

CommonDialog1.FileName?=?""

CommonDialog1.Filter?=?"文本文件（*.txt）|*.txt|"

CommonDialog1.Action?=?1

str?=?CommonDialog1.FileName

Debug.Print?str

Set?ados?=?CreateObject("adodb.stream")

With?ados

.Charset?=?"utf-8"

.Type?=?2

.Open

.LoadFromFile?str

Text1.Text?=?.ReadText

.Close

End?With

Debug.Print?Mid(str,?1,?Len(str)?-?4)??"1.txt"

Open?Mid(str,?1,?Len(str)?-?4)??"1.txt"?For?Output?As?#1

Print?#1,?Text1.Text

Close?#1

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

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

gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法'>VB.net 字符轉(zhuǎn)換問(wèn)題 字符（漢字、數(shù)字、字母、符號(hào)）>gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法

字符編碼轉(zhuǎn)換嗎?

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中都是以u(píng)nicode編碼存儲(chǔ)的

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

'這里可以類推出好幾種。

當(dāng)前文章：vb.net轉(zhuǎn)換文件編碼 vb數(shù)據(jù)類型轉(zhuǎn)換
標(biāo)題網(wǎng)址：http://www.muchs.cn/article38/doocgpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、響應(yīng)式網(wǎng)站、自適應(yīng)網(wǎng)站、外貿(mào)建站、網(wǎng)站策劃、全網(wǎng)營(yí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)