1. 程式人生 > >VB 字符串轉換為UTF-8

VB 字符串轉換為UTF-8

body obj eat lang string dex create plain log

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