您好,登录后才能下订单哦!
密码登录
登录注册
点击 登录注册 即表示同意《亿速云用户服务条款》
这篇“VBS字符串编码转换函数代码怎么写”文章的知识点大部分人都不太理解,所以小编给大家总结了以下内容,内容详细,步骤清晰,具有一定的借鉴价值,希望大家阅读完这篇文章能有所收获,下面我们一起来看看这篇“VBS字符串编码转换函数代码怎么写”文章吧。
因为业务需要将一些字符串转换为指定编码方便后期操作
核心代码
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字符串编码转换函数代码怎么写”这篇文章的内容,相信大家都有了一定的了解,希望小编分享的内容对大家有帮助,若想了解更多相关的知识内容,请关注亿速云行业资讯频道。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。