问题描述
- Viusla Basic 6..0 语言编写一个函数,把uncode字符串转换为utf-8字符串
-
Viusla Basic 6..0 语言编写一个函数,把uncode字符串转换为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??&?"')")
解决方案二:
https://msdn.microsoft.com/zh-cn/library/ms172828.aspx
http://www.360doc.com/content/10/0408/10/541242_22057163.shtml
时间: 2024-10-25 13:49:39