VBS字符串编码转换函数代码
作者:薛定谔的青蛙王梓
这篇文章主要介绍了vbs字符串在不同编码之间的转换,包括 ISO-8859-1,UTF-8,GBK,GB2312,GB18030之间的转换,需要的朋友可以参考下
因为业务需要将一些字符串转换为指定编码方便后期操作
核心代码
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)
到此这篇关于VBS字符串编码转换函数代码的文章就介绍到这了,更多相关VBS编码转换内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!