VFP 愛用者社區

[CPS0204]

CLEAR


LCJSONSTRING = '{"key1": "值value1BB", "key2A": "值value2FFF", "key3": "value值34443", "key4": "value4234值", "key5": "值value5"}'
LCJSONSTRING = STRTRAN(LCJSONSTRING, '{', '') &&去除多餘符號
LCJSONSTRING = STRTRAN(LCJSONSTRING, '}', '') &&去除多餘符號
LCJSONSTRING = STRTRAN(LCJSONSTRING, '"', '') &&去除多餘符號
LCJSONSTRING = STRTRAN(LCJSONSTRING, ['], '') &&去除多餘符號
=MESSAGEBOX('原本的json字串:'+CHR(13)+LCJSONSTRING)

LOJSONOBJECT = CREATEOBJECT("Empty")
DIMENSION LAPAIRS[1]
J=ALINES(LAPAIRS, LCJSONSTRING, 1, ",")

FOR EACH LCPAIR IN LAPAIRS
LOCAL LNCOLONPOS
LNCOLONPOS = AT(":", LCPAIR)
* =MESSAGEBOX(TRANSFORM(LCPAIR)+' '+TRANSFORM(lnColonPos))
* 取key和值
LCKEY = ALLTRIM(LEFT(LCPAIR, LNCOLONPOS - 1))
LCVALUE = ALLTRIM(SUBSTR(LCPAIR, LNCOLONPOS + 1))
=MESSAGEBOX(TRANSFORM(LCPAIR)+' =分離後得到 '+LCKEY+' '+LCVALUE)
ADDPROPERTY(LOJSONOBJECT, LCKEY, LCVALUE) &&添加屬性的子件
NEXT

? LOJSONOBJECT.KEY1
? LOJSONOBJECT.KEY2A
? LOJSONOBJECT.KEY3
? LOJSONOBJECT.KEY4
? LOJSONOBJECT.KEY5


缺點: 每組鍵值及後面的值,不能有逗號 (,) (") ,('),等字元........否則報錯
只能簡單地處理

備註:json文串的檢查網址 https://jsonlint.com/

[lygcw9603]

用alines()更方便