dim e as object
Set
?e=CreateObject(
"MSScriptControl.ScriptControl"
)
e.Language?=?
"javascript"
dim d as stringd=?e.Eval(
"encodeURI(‘微软计算机‘)"
) ‘运行javascript脚本的函数
MsgBox?d
MsgBox?e.Eval(
"decodeURI(‘"
?&?d??&?
"‘)"
)
Posted Elcser
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VB 字符串转换为UTF-8相关的知识,希望对你有一定的参考价值。
dim e as object
Set
?e=CreateObject(
"MSScriptControl.ScriptControl"
)
e.Language?=?
"javascript"
dim d as stringd=?e.Eval(
"encodeURI(‘微软计算机‘)"
) ‘运行javascript脚本的函数
MsgBox?d
MsgBox?e.Eval(
"decodeURI(‘"
?&?d??&?
"‘)"
)
以上是关于VB 字符串转换为UTF-8的主要内容,如果未能解决你的问题,请参考以下文章