cc = '地址、电话'
cc = Strconv(cc,5)
? Transform(0h+cc, '@R xxxx;xxxx;xxxx;xxxx;xxxx;')
这不一回事吗?不同之处仅仅是一个大头(BE),一个小头(LE),交换一下高低字节就一样了
?Unescape(STRTRAN(STRTRAN("地 址、电 话:",'','\u'),';','')) Function Unescape(pstrInput As String) local objScrCtl As Object,tmp as String objScrCtl = CreateObject("MSScriptControl.ScriptControl") objScrCtl.Language = "Javascript" TRY tmp = objScrCtl.Eval("unescape('" + pstrInput + "')") ENDTRY RELEASE objScrCtl RETURN tmp ENDFUNC
[此贴子已经被作者于2023-6-11 19:33编辑过]