Powerbuilder无法对URL的参数进行编码/解码

Question

我使用powerbuilder ole对象来编码/解码像JSON这样的字符串，但是当我使用ole对象时，我不知道如何将我的数据编码为

这是我的测试数据： 我的测试数据就像[{“ref”：“T213445677”，“pickdtime”：“2018-02-02 09:00:00”，“compname”：“永基鞋业公司”}]

这是我的编码

OleObject wsh
Integer  li_rc
string ls_temp

wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.language = "javascript"

ls_temp = wsh.Eval("escape('[{"ref":"T213445677","pickdtime":"2018-02-02 
09:00:00","compname":"Wing Kei Shoes Company"}]')")

MessageBox( "ESCAPE" , ls_temp)

ls_temp = wsh.Eval("unescape('" + ls_temp + "')")

MessageBox( "UNESCAPE" , ls_temp)

Answer 1

您可能希望查看有关使用Visual Basic for Applications（VBA）编写的JSON解析器的这篇文章。可在此处找到：http://ashuvba.blogspot.com/2014/09/json-parser-in-vba-browsing-through-net.html

当前版本的PowerBuilder（2017 R2）在数据窗口中内置了原生JSON解析。

Answer 2

我有一个示例应用程序，展示了如何从PowerBuilder向Twitter发布消息。它包括编码功能。 zip文件包括PB 8和PB 10版本。