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编辑过]