XProfan

Declarar String datei, bezirke, spalten, item
Declarar Handle btn1, grid, lb
Declarar Largo ende, js ,xs
bezirke = "NH,NY,PR,VI,MA,RI,ME,VT,CT,NJ,AE,PA,DE,DC,VA,MD,WV,NC,SC,\
GA,FL,AA,AL,TN,MS,KY,OH,IN,MI,IA,WI,MN,SD,ND,MT,IL,MO,KS,NE,LA,AR,OK,\
TX,CO,WY,ID,UT,AZ,NM,NV,CA,AP,HI,AS,GU,PW,FM,MP,MH,O,WA,AK"
spalten = "Bezirk;0;60;Bundes-Staat;0;120;Zip-Code;0;100"
ende = 0
datei = "F:\ZipCodes.Json"' ***************** PFAD ANPASSEN ***************************
Título de la ventana "US-ZipCodes (Postleitzahlen) USA"
Ventana 600, 400
btn1 = Crear("Button",  %HWnd, "Ende", 10, 10, 60, 25)
grid = Crear("GridBox", %HWnd, spalten, 0, 10, 50, 300, 200)
Crear("Text", %HWnd, "vorhandene Bezirke", 400, 25, 140, 25)
lb   = Crear("Listbox", %HWnd, 1, 400, 50, 60, 200)
InitListbox()

If FileExists(datei)

    js = Crear("Json", datei)

Más

    MessageBox("Keine Expediente ZipCodes.Json vorhanden", "Fehler", 0)
    End

EndIf

Sinestar encargado ende

    WaitInput

    If Clicked(btn1)

        ende = 1

    ElseIf Clicked(lb)

        item = GetString$(lb, GetCurSel(lb))

        If item <> ""

            Suchen(item)

        EndIf

    EndIf

EndWhile

Proc InitListbox

    ClearList
    Move("StrToList", bezirke, ",")
    Move("ListToHandle", lb)

ENDPROC

Proc Suchen

    Parámetros String item
    Declarar Hash eintrag[], String Schluessel, Valor, Largo i

    WhileLoop 0, Json("Count", js) - 1

        If Json("Name", js, &LOOP) = item

            xs = Json("GetObject", js, item)
            eintrag[] = Json("Hash", xs)
            ClearList grid
            ForEach eintrag[], Schluessel, Valor
            AddStrings(grid, item + "|" + Valor + "|" + Schluessel)
            EndFor
            Romper

        EndIf

    EndWhile

ENDPROC

End