Salvar e Recuperar Array em String

[Theotokos]

Bom Dia!!!

Tenho uma array assim: { {Codigo, Qtde, Preco} } e preciso gravar ele em BD no campo String e depois recupera

Exemplo: { {00001, 2, 34.50}, {00005, 1, 50.40}, {001230, 3, 12.34} }

Preciso Salvar esta array em um campo STRING (Memo) e depois recuperar de forma que fique esta array...

Atualmente uso Hb_aTokens, mas ele recuperar como Vetor, assim { 00001, 2, 34.50, 00005, 1, 50.40, 001230, 3, 12.34 }

[emotta]

Pega ai essa bem simplificada e eficaz.

A funcao u_Teste é um exemplo de uso

 

ArrayToString transforma o array em string (na verdade um json)

StringToArray lê o json salvo em arraytostring e devolve o array pronto

 

Function u_Teste()

Local aDados := {}

Local nI

 

For nI := 1 to 10

    aadd(aDados, nI)

Next

 

cSave_Array := ArrayToString(aDados)

 

aNew_Array := StringToArray(cSave_Array)

 

MsgStop(Sr_ShowVector(aNew_Array))

 

Return

 

Static Function ArrayToString(aDados)

Local hDados := Hash()

 

hDados["ARRAY"] := aDados

 

Return hb_jsonEncode(hDados,.t.)

 

Static Function StringToArray(cDados)

Local hDados := Hash()

Local aDados := {}

 

try

    hb_jsondecode(cDados, @hDados)

    aDados := hDados["ARRAY"]

catch

end

 

Return aDados

[Jmsilva]

Se vc usa a lib fivewin pode usar a funções ARead() e ASave(). Excelente veja exemplo no link abaixo.

https://wiki.fivetechsoft.com/doku.php?id=fivewin_function_aread

[emotta]

9 horas atrás, Jmsilva disse:

Se vc usa a lib fivewin pode usar a funções ARead() e ASave(). Excelente veja exemplo no link abaixo.

https://wiki.fivetechsoft.com/doku.php?id=fivewin_function_aread

Que legal essas funções, eu não as conhecia. Obrigado por compartilhar

[Theotokos]

Vlw emotta!!! REsolveu pra mim.... Obgdao fk com Deus!!!