Buscar dados de Array Multidimensional (Resolvido)

betovsp · May 6, 2020

Boa tarde pessoal.

Imaginem um arquivo txt contendo o seguinte:

Isso é um retorno em json,

Uso dessa forma:

aRetorno:= hb_hash()
hb_jsondecode( cRetorno, @aRetorno )

usando a xbrowse(aRetorno) me mostra tudo certo o array multidimensional, mas preciso pegar as variáveis e não estou conseguindo.

Alguém já passou por isso e pode me ajudar?

vagner · May 7, 2020

Beto, blz ?

Seguinte , vc teria que pegar por partes do texto, no caso, primeiramente teria que trocar alguns caracteres, como por exemplo do ,{"codigo":"7898943452238","vTotal":6.49,"vUn":6.49,"qtde":1} onde ": teria que mudar para ",, para não lhe dar problema na conversão e depois pegar o que lhe interessa, como :
codigo, vtotal etc

Abraços

PS: A troca pode ser feita através do StrTran(cTexto,Antigo,Novo)
Ex.: cTexto := StrTran(cTexto,[":],[",])

betovsp · May 7, 2020

Oi Vagner, tudo bem e como você está?

Então, vi aqui no forum, no forum do Rochinha, no internacional uma função que poderia resolver esse problema, mas em testes feito com dois servidores diferentes, um retorna o erro (justamente esse que estou precisando) e o outro não dá erro mas não retorna nada na função que é essa:

STATIC FUNCTION PesquisaHash( hTable, cTexto )
LOCAL oElement, xValue := ""

IF HHasKey( hTable, cTexto )
RETURN hTable[ cTexto ]
ENDIF
FOR EACH oElement IN hTable
IF ValType( oElement ) == "H"
xValue := PesquisaHash( oElement, cTexto )
IF ! Empty( xValue )
EXIT
ENDIF
ENDIF
NEXT

RETURN xValue

Esse é o erro:

Path and name: E:\PONTOB32\Source\Infotech\NOVOSCRIPT.EXE (32 bits)
Size: 2,118,144 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 07/05/2020, 11:02:52
Error description: Error BASE/1123 Argument error: HHASKEY
Args:
[ 1] = A { ... }
[ 2] = C email

Você que é o fera, conhece essa função?

Obrigado.

vagner · May 7, 2020

Olá Beto, pelo que sei o Hash é um array dimensional, e não multi-dimensional, não sei se serviria para você nesse caso

Abraços

betovsp · May 7, 2020

Então, o Rochinha me passou esse exemplo:

cRet := '{"result":[{"1":[{"placa":"ABC1234"},{"datahora":"25\/10\/2016 16:09:35"},{"latitude":"-23.5763034820557"},{"longitude":"-46.8151245117188"},{"velocidade":"0"},{"pos_chave":"0"},{"bloqueio":"0"},{"endereco":"Estrada das Rosas, 1234 OSASCO - SP"}],"2":[{"placa":"ABC1234"},{"datahora":"25\/10\/2016 17:25:45"},{"latitude":"-23.5766792297363"},{"longitude":"-46.8154640197754"},{"velocidade":"0"},{"pos_chave":"0"},{"bloqueio":"0"},{"endereco":"Rua A, 0 OSASCO - SP"}] }]}'

hb_JsonDecode( cRet, @hRet )

If Len(hRet) != 0
If HHasKey( hRet, "result" )

For nPos=1 To Len( hRet["result",1] )
cReg := Alltrim(Str(nPos))

If !Empty(hRet['result',1][cReg,3]['latitude']) .And.;
!Empty(hRet['result',1][cReg,4]['longitude'])

AADD(aARQ,{hRet['result',1][cReg,6]['pos_chave'] ,; // 01 - ignicao
hRet['result',1][cReg,5]['velocidade'] ,; // 02 - velocidade
hRet['result',1][cReg,3]['latitude'] ,; // 03 - latitude
hRet['result',1][cReg,4]['longitude'] ,; // 04 - longitude
hRet['result',1][cReg,1]['placa'] ,; // 05 - placa
Substr(hRet['result',1][cReg,2]['datahora'],1,10),; // 06 - Data Transmissão
Substr(hRet['result',1][cReg,2]['datahora'],12,5)+':00',; // 07 - Hora Transmissão
hRet['result',1][cReg,8]['endereco'],; // 08 - Endereco de Leitura
.F. } ) // 09 - lido
Endif
Next
Else
ALERT('ERRO - RASTREADOR : '+hb_UTF8ToStr(hRet['Message']))
RETURN(.F.)
Endif
Else
ALERT('ERRO - RASTREADOR : Erro no Envio da Chave
Return(.F.)
EndIf

RETURN(.T.)

Mas dá o erro justamente no HHasKey, aquele erro que passei anteriormente

betovsp · May 7, 2020

Pessoal

Fiz assim, meio arcaico, mas meio resolvido por enquanto:

   cRetorno := MemoRead( "VENCURL.OUT" )
   aRetorno:= hb_hash()
       hb_jsondecode( cRetorno, @aRetorno )
   nLen:= len(aRetorno)
       FOR i:=1 TO nLen
           //? aRetorno["status"][1]["descricao"], aRetorno["status"][1]["dataHoraInsert"]
           //? aRetorno["cliente"]["nomeUsuario"]
           // Dados do Cliente
           cNom := ALLTRIM(aRetorno["cliente"]["nomeUsuario"])
           cDoc := ALLTRIM(aRetorno["cliente"]["documento"])
           cBai := ALLTRIM(aRetorno["cliente"]["bairro"])
           cCep := ALLTRIM(aRetorno["cliente"]["cep"])
           cRua := ALLTRIM(aRetorno["cliente"]["rua"])
           cCom := ALLTRIM(aRetorno["cliente"]["complemento"])
           cNum := ALLTRIM(aRetorno["cliente"]["numero"])
           cCid := ALLTRIM(aRetorno["cliente"]["cidade"])
           cEst := ALLTRIM(aRetorno["cliente"]["estado"])
           cPais := ALLTRIM(aRetorno["cliente"]["pais"])
           cRef := ALLTRIM(aRetorno["cliente"]["pontoReferencia"])
           cEma := ALLTRIM(aRetorno["cliente"]["email"])
           cTel := ALLTRIM(aRetorno["cliente"]["telefone"])
           // Dados do Produtos
           nLenPro := len(aRetorno["produtos"])
           FOR j:=1 TO nLenPro
               cCodPro := ALLTRIM(aRetorno["produtos"][j]["codigo"])
               nQtdPro := aRetorno["produtos"][j]["qtde"]
               nVunPro := aRetorno["produtos"][j]["vUn"]
               nVtoPro := aRetorno["produtos"][j]["vTotal"]
           NEXT
           // Dados do Pagamento
           vFrePag := aRetorno["pagamento"]["vFrete"]
           vTroPag := aRetorno["pagamento"]["vTroco"]
           vProPag := aRetorno["pagamento"]["vProds"]
           vPagPag := aRetorno["pagamento"]["vPago"]
           vCupPag := ALLTRIM(aRetorno["pagamento"]["cupom"])
           vCupPPag := aRetorno["pagamento"]["cupomDescontoPorcentagem"]
           vCupRPag := aRetorno["pagamento"]["cupomDescontoReal"]
           vCupFPag := aRetorno["pagamento"]["cupomFreteGratis"]
           vDesPag := ALLTRIM(aRetorno["pagamento"]["descPag"])
       NEXT

***** mas não consigo achar e pegar na matriz a "dataPrevistaEntrega", se alguém tiver uma idéia a partir dessa minha solução vai ser de grande ajuda.

jfaguiar · May 15, 2020

Eu fiz essa função ha alguns anos:

aMEUARRAY := {}

nNUMERO := STRZERO(NUMERO08,2)
nPOSI := mASCAN(aMEUARRAY, nNUMERO)
IF nPOSI > 0
aMEUARRAY[nPOSI,2] += 1
ELSE
AADD(aMEUARRAY,{nNUMERO,1})
ENDIF

FUNCTION MAscan(aARRAY,WSEARCH,nCOLARRAY)
DEFAULT nCOLARRAY := 1
FOR _i = 1 TO LEN(aARRAY)
IF aARRAY[_i,nCOLARRAY] == WSEARCH
RETURN(_i)
ENDIF
NEXT
RETURN(0)
***************************************************************************

Sign In

Buscar dados de Array Multidimensional (Resolvido)

Recommended Posts

betovsp

Link to comment

Share on other sites

vagner

Link to comment

Share on other sites

betovsp

Link to comment

Share on other sites

vagner

Link to comment

Share on other sites

betovsp

Link to comment

Share on other sites

betovsp

Link to comment

Share on other sites

jfaguiar

Link to comment

Share on other sites

Join the conversation

Browse

Activity