如何快速转换\Uxxxx

shizi0 发布于 2023-07-17 19:49， 786 次点击

网页返回类似：
"project_name":"\u6e56\u5357\u5b89\u5168\u6280\u672f\u804c\u4e1a
如何快速转换这些\Uxxxx

4 回复

nbwww2023-07-17 22:18

  ?Unescape(STRTRAN(STRTRAN("地址、电话:",'&#x','\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

shizi02023-07-17 23:54

回复 2楼 nbwww

谢谢！
我原来借用InternetExplorer.Application处理，个别电脑不知道是IE环境不同还是咋的，处理不了，而且效率不如这个ScriptControl。

shizi02023-07-18 00:56

回复 2楼 nbwww

如果pstrInput中含有单引号，会影响Eval后面的拼接串，造成“截断”导致错误。
我不懂ScriptControl，只能硬生生先 pstrInput=Strtran(pstrInput,['],[＇]) ，最后再改回来Strtran(Tmp,[＇],[']) 。
但这会影响原字符串中的＇符号，希望改下非Vfp部分

[此贴子已经被作者于2023-7-18 02:20编辑过]

吹水佬2023-07-19 05:24

以下是引用shizi0在2023-7-17 19:49:05的发言：

网页返回类似：
"project_name":"\u6e56\u5357\u5b89\u5168\u6280\u672f\u804c\u4e1a
如何快速转换这些\Uxxxx

看似json，用json方法取project_name的值再转换