hb_jsondecode() bug on prg encode is 'big5', decode fail!!

[wen....@gmail.com]

sample prg:

func main()
local hData := {"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}
// local cJson := hb_jsonEncode( hData ) // <--- is ok
local cJson := '{"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}' // is fail!!
local hJson := {=>}, i
? 'json string-1: ',cJson
hJson := hb_jsonDecode( cJson )
aJson := hb_hKeys(hJson)
? 'json len: ', Len(aJson)
FOR i := 1 TO Len(aJson)
? i,':',hb_hKeyAt( hJson, i ), '=>', hb_hValueAt( hJson, i )
NEXT i

//
? 'json string-2: ',cJson
// cJson := hb_StrReplace( cJson, {'\'}, {'\\'} )
hJson := hb_jsonDecode( cJson )
aJson := hb_hKeys(hJson)
? 'json len: ', Len(aJson)
FOR i := 1 TO Len(aJson)
? i,':',hb_hKeyAt( hJson, i ), '=>', hb_hValueAt( hJson, i )
NEXT i
return

[Nelson Pires]

Maybe this ?

local cJson := '{"err_no":-1,"errmsg":"無法辨識的功能!!","errtil":"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}'

 

Nelson

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/20251004184440.EE86.CA28FD01%40gmail.com.

[wen....@gmail.com]

Chinese character "功", ASCII code is 'A5 5C'

 

日期(On) Tue, 7 Oct 2025 17:00:23 +0100

Nelson Pires <infor...@gmail.com> 寫信(write):

 

?

Maybe this ?

local cJson := '{"err_no":-1,"errmsg":"無法辨識的功能!!","errtil":"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}'

?

Nelson

wen....@gmail.com <wen....@gmail.com> escreveu (sabado, 4/10/2025 a(s) 11:44):

sample prg:

func main()
local hData := {"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}

// local cJson := hb_jsonEncode( hData )? // <--- is ok

local cJson := '{"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}' // is fail!!
local hJson := {=>}, i

? ? ? ? 'json string-1: ',cJson
? ? ? ? ? ? ? ? ? ? ? ? hJson := hb_jsonDecode( cJson )
? ? ? ? ? ? ? ? ? ? ? ? aJson := hb_hKeys(hJson)
? ? ? ? ? ? ? ? ? ? ? ? ? 'json len: ', Len(aJson)
? ? ? ? ? ? ? ? ? ? ? ? FOR i := 1 TO Len(aJson)
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? i,':',hb_hKeyAt( hJson, i ), '=>', hb_hValueAt( hJson, i )
? ? ? ? ? ? ? ? ? ? ? ? NEXT i

? ? ? //
? ? ? ? ? ? ? ? ? ? ? ? ? 'json string-2: ',cJson
? ? ? // cJson := hb_StrReplace( cJson, {'\'}, {'\\'} )
? ? ? ? ? ? ? ? ? ? ? ? hJson := hb_jsonDecode( cJson )
? ? ? ? ? ? ? ? ? ? ? ? aJson := hb_hKeys(hJson)
? ? ? ? ? ? ? ? ? ? ? ? ? 'json len: ', Len(aJson)
? ? ? ? ? ? ? ? ? ? ? ? FOR i := 1 TO Len(aJson)
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? i,':',hb_hKeyAt( hJson, i ), '=>', hb_hValueAt( hJson, i )
? ? ? ? ? ? ? ? ? ? ? ? NEXT i

return


--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/20251004184440.EE86.CA28FD01%40gmail.com.

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/harbour-users/CABLaPWQFwRufR96dNL1rxh-76FWCgH%2BOt7KBPTEkR%3Dji_oOOkg%40mail.gmail.com.

 

--

WenSheng <wen....@gmail.com>

[Nelson Pires]

Sorry, i was not clear. what i mean is using : instead of => in the string declaration

To view this discussion visit https://groups.google.com/d/msgid/harbour-users/20251010093927.9242.CA28FD01%40gmail.com.

[Alex Strickland]

Hi

As Nelson Pires says, this is not valid JSON:

'{"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}'

You are using Harbour hash syntax.

--

Regards

Alex

[wen....@gmail.com]

local cJson := '{"err_no":-1,"errmsg":"無法辨識的功能!!","errtil":"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}' 

or:

local cJson := '{"err_no"=>-1,"errmsg"=>"無法辨識的功能!!","errtil"=>"錯誤!!(3bc8d2ca-a101-4585-afae-a35d483c0796)"}'

all fail!!

Alex Strickland 在 2025年10月10日 星期五晚上8:42:47 [UTC+8] 的信中寫道：