VB 字符串转换为UTF-8

weixin_30522095

于 2018-02-01 23:25:00 发布

阅读量1.4k

点赞数

原文链接：http://www.cnblogs.com/Elcser/p/8401752.html

版权

本文介绍了一个使用VBA调用JavaScript进行URI编码和解码的例子。通过创建一个ScriptControl对象并设置其语言为JavaScript，可以实现直接在VBA环境中运行JavaScript脚本的功能。示例展示了如何对字符串“微软计算机”进行编码和随后的解码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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  &  
  "')" 
  ) 
 