VBS字符串編碼轉(zhuǎn)換函數(shù)代碼
更新時間:2023年04月12日 10:49:07 作者:薛定諤的青蛙王梓
這篇文章主要介紹了vbs字符串在不同編碼之間的轉(zhuǎn)換,包括?ISO-8859-1,UTF-8,GBK,GB2312,GB18030之間的轉(zhuǎn)換,需要的朋友可以參考下
因為業(yè)務(wù)需要將一些字符串轉(zhuǎn)換為指定編碼方便后期操作
核心代碼
Const adTypeBinary = 1 Const adTypeText = 2 ' accept a string and convert it to Bytes array in the selected Charset Function StringToBytes(Str,Charset) Dim Stream : Set Stream = CreateObject("ADODB.Stream") Stream.Type = adTypeText Stream.Charset = Charset Stream.Open Stream.WriteText Str Stream.Flush Stream.Position = 0 ' rewind stream and read Bytes Stream.Type = adTypeBinary StringToBytes= Stream.Read Stream.Close Set Stream = Nothing End Function ' accept Bytes array and convert it to a string using the selected charset Function BytesToString(Bytes, Charset) Dim Stream : Set Stream = CreateObject("ADODB.Stream") Stream.Charset = Charset Stream.Type = adTypeBinary Stream.Open Stream.Write Bytes Stream.Flush Stream.Position = 0 ' rewind stream and read text Stream.Type = adTypeText BytesToString= Stream.ReadText Stream.Close Set Stream = Nothing End Function ' This will alter charset of a string from 1-byte charset(as windows-1252) ' to another 1-byte charset(as windows-1251) Function AlterCharset(Str, FromCharset, ToCharset) Dim Bytes Bytes = StringToBytes(Str, FromCharset) AlterCharset = BytesToString(Bytes, ToCharset) End Function
使用例子:
dim s1,s2,FromCharset,ToCharset s1 = "我的字符串之腳本之家" FromCharset = "GB2312" ToCharset = "ISO-8859-1" s2 = AlterCharset(s1,FromCharset,ToCharset)
到此這篇關(guān)于VBS字符串編碼轉(zhuǎn)換函數(shù)代碼的文章就介紹到這了,更多相關(guān)VBS編碼轉(zhuǎn)換內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!
相關(guān)文章
VBS教程:函數(shù)-FormatCurrency 函數(shù)
VBS教程:函數(shù)-FormatCurrency 函數(shù)...2006-11-11視頻轉(zhuǎn)換大師WinMPG Video Convert 6.63
視頻轉(zhuǎn)換大師WinMPG Video Convert 6.63...2007-04-04