XProfan

Déclarer String fichier, bezirke, spalten, item
Déclarer Handle btn1, grid, lb
Déclarer Long ende, js ,xs
bezirke = "NH,New York,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,OU,WA,AK"
spalten = "Bezirk;0;60;Bundes-Staat;0;120;Zip-Code;0;100"
ende = 0
fichier = "F:\ZipCodes.Json"' ***************** PFAD ANPASSEN ***************************
Titre de la fenêtre "US-ZipCodes (Postleitzahlen) USA"
Fenêtre 600, 400
btn1 = Créer("Button",  %HWnd, "Ende", 10, 10, 60, 25)
grid = Créer("GridBox", %HWnd, spalten, 0, 10, 50, 300, 200)
Créer("Text", %HWnd, "vorhandene Bezirke", 400, 25, 140, 25)
lb   = Créer("Listbox", %HWnd, 1, 400, 50, 60, 200)
InitListbox()

Si FileExists(fichier)

    js = Créer("Json", fichier)

D'autre

    MessageBox("Keine Dossier ZipCodes.Json vorhanden", "Fehler", 0)
    Fin

EndIf

WhileNot ende

    WaitInput

    Si Clicked(btn1)

        ende = 1

    ElseIf Clicked(lb)

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

        Si item <> »

            chercher(item)

        EndIf

    EndIf

Endwhile

Proc InitListbox

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

ENDPROC

Proc chercher

    Paramètres String item
    Déclarer Hash eintrag[], String Schluessel, Wert, Long i

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

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

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

        EndIf

    Endwhile

ENDPROC

Fin