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

  ?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

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

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

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

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