2 namedajipai namedajipai 于 2016.03.21 16:44 提问

Viusla Basic 6..0 语言编写一个函数,把uncode字符串转换为utf-8字符串

Viusla Basic 6..0 语言编写一个函数,把uncode字符串转换为utf-8字符串

2个回答

caozhy
caozhy   Ds   Rxr 2016.03.29 17:11
已采纳
 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  & "')")
wangxugangzy05
wangxugangzy05   2016.03.21 17:50
Csdn user default icon
上传中...
上传图片
插入图片