ZIP - Codes der USA

H.Brill

Hallo, ich habe gerade mal die dBase Schnelligkeit getestet und war überrascht,

wie schnell doch gesucht wird, auch ohne Index. Die DB hat über 42000 Einträge

und ist ideal für solche Tests. Wo hat man schon so große Datenbanken, auch nur

schon über 1000 Sätze ?

Anbei ein kleines Programm und eine .zip - Datei, die die .dbf und die ursprüngliche

Textdatei enthält. In die Textdatei kann man reinschauen, um zu sehen, welche

Bezirkscodes (letztes Feld mit 2 Buchstaben) enthalten sind. Um sie hier aufzulisten

sind es zu viele. Einfach zum Probieren in den Windowseditor laden und scrollen.

Dann kann man mal mit dem Suchen beginnen.

Code

Declare Handle Grid, btn1, btn2, text1, edit1
Declare String spalten, such
Declare Long anz, ende

spalten = "POSTALCODE;0;120;STAAT;0;120;BEZIRK;2;80"
ende = 0

Window 600, 400
btn1  = Create("Button",  %HWnd, "Suche", 10, 10, 60, 25)
btn2  = Create("Button",  %HWnd, "Ende",  400, 10, 60, 25)
text1 = Create("Text",    %HWnd, "Suche Bezirk", 10, 50, 120, 25)
edit1 = Create("Edit",    %HWnd, "", 135, 50, 60, 25)
Grid  = Create("Gridbox", %HWnd, spalten, 0, 10, 90, 340, 150)

db("Open", #1, $ProgDir + "ZIPCODE.DBF")

db("Use", #1)


WindowTitle Str$(&dbRecCount) + "  Datensätze in Datenbank gefunden !"

WhileNot ende
  WaitInput
  If Clicked(btn1)
     ' Suche
      such = GetText$(edit1)
      If such <> ""
         Suchen()
      EndIf
  ElseIf Clicked(btn2)
     ende = 1
  EndIf
EndWhile

db("Close", #1)

Proc Suchen
Declare Long Satz, String feld
db("go","|<")
ClearList Grid
WhileNot %dbeof
     Satz = db("Seek", "BEZIRK", Trim$(Upper$(such)), 1)
     If Satz > 0
        AddString(Grid, db("Get", "POSTALCODE") + "|" + db("Get", "STAAT") + "|" + db("Get", "BEZIRK"))
     EndIf
     db("go",">")
EndWhile
EndProc

End

Alles anzeigen

Viel Spaß damit.

THFR

42000 ist für dbf nicht viel. Schon 1990, mit dBase III+ geschriebenes Programm, wurde in meinem selbst erstelltem Wörterbuch (33000 Sätze D-S) das Gesuchte auf einem HP 95LX (DOS 6) fix gefunden.

Heute, und mit XProfan, noch schneller und besser als in üblichen Wörtebüchern, da fix in einer anderen Listbox alle Wörter mit einem gesuchten Wortteil aufgelistet werden können .

Größere Prüfdatenmengen habe ich heute noch mit PLZ-Ort-BL (44000) und BLZ/BIC , die ja meist bei Mitgliederverwaltungen gebraucht werden, im Einsatz.

H.Brill

Da habe ich gerade noch was gefunden für die JSON - Interessierten.

DB mit PLZ usw.

primary_key;zipcode;city;state;community;latitude;longitude

Kann man evtl. auch zum Testen mal brauchen oder zur

Validierung bei Adressen - Eingaben (Vereine usw.).

Längen - und Breitengrade sind inklusive.

Eine .csv Datei ist natürlich auch dabei.

H.Brill

Hier noch ein kleines Programm dazu :

Code

Declare Handle Grid, btn1, btn2, text1, edit1
Declare String spalten, such
Declare Long js, pc, anz, ende

spalten = "Plz;0;60;Ort;0;180;Land;0;180;Kreis;0;180;LT;0;80;LG;0;80"
'primary_key;zipcode;city;state;community;latitude;longitude
ende = 0

js = create("json", $ProgDir + "postal-codes.json")
anz = json("Count", js)

WindowTitle Str$(anz) + " Datensätze vorhanden !"
Window 850, 400
btn1  = Create("Button",  %HWnd, "Suche", 10, 10, 60, 25)
btn2  = Create("Button",  %HWnd, "Ende",  400, 10, 60, 25)
text1 = Create("Text",    %HWnd, "Suche PLZ", 10, 50, 120, 25)
edit1 = Create("Edit",    %HWnd, "", 135, 50, 60, 25)
Grid  = Create("Gridbox", %HWnd, spalten, 0, 10, 90, 800, 100)

WhileNot ende
  WaitInput
  If Clicked(btn1)
     ' Suche
      such = GetText$(edit1)
      If such <> ""
         Suchen(such)
      EndIf
  ElseIf Clicked(btn2)
     ende = 1
  EndIf
EndWhile

Proc Suchen
Parameters String s
Declare Long Satz
Declare String zipcode, city, state, community, lt, lg
ClearList Grid
Satz = 0
WhileLoop 1, anz
   UseCursor 2
   pc = JSON("GetObject", js, Str$(&LOOP))
   zipcode = Json("GetString", pc, "zipcode")
   If zipcode = s
      Satz = 1
      AddString(Grid, zipcode + "|" + Json("GetString", pc, "city") + "|" + Json("GetString", pc, "state") + "|" + Json("GetString", pc, "community") + "|" + Str$(Json("GetNumber", pc, "latitude")) + "|" + Str$(Json("GetNumber", pc, "longitude")))
   EndIf
EndWhile
UseCursor 0
Case Satz = 0 : MessageBox("Keinen Eintrag gefunden !", "Info", 0)
EndProc

End

Alles anzeigen

Die DB scheint nicht vollständig zu sein.

Ich habe da Anschriften, wie z.B. Westfalia Werkzeug mit 58082 Hagen, wo die PLZ nicht gefunden wird.

THFR

Kann mir nicht vorstellen, dass 58082 nicht in der DB ist. Ich habe die CSV als DBF gespeichert, und da iist sie Vorhanden.

Screen.jpg

H.Brill

Also in der CSV habe ich sie auch nicht gefunden.

Kann man ja ganz leicht mit dem Windows - Editor suchen.

Da gibt es zwar verschiedene Hagen, aber nicht mit dieser

PLZ (58082). Um es einzugrenzen, habe ich sogar ";Hagen;"

benutzt. Aber als erstes natürlich nach der PLZ gesucht.

Auch in der Jsondatei habe ich nichts gefunden. Ist ja auch

reiner Text.

Oder hast du eine andere CSV, als die von mir hochgeladene

konvertiert ?

Der Eintrag kann ja nicht plötzlich verschwunden sein.

THFR

Ich habe sie ca. 2010 erstellt, und da sind für Hagen 58xxx

1 bis 40, 2x 60er, 1x 70er, 7x 80er, 5x 90er und ü100 20x vorhanden.

Vielleicht sind heute einige Bereiche zusammengefasst worden?

Hast du mal nach der Adresse gegoge, da wird ja die PLZ angezeigt?

H.Brill

Naja, beim Westfalia Katalog sind ja auch vorgedruckte

Bestellformulare mit Anschrift von Westfalia dabei. Da

braucht man nur seine Artikel eintragen, Briefmarke drauf

und einwerfen.

Wenn die ja nicht so bekannt wären, käme sowas dann

gar nicht oder sehr verspätet an. Ich denke mal, daß die

Post die Briefe auch nach PLZ sortiert. Und die wäre in

diesem Falle falsch.

THFR

Da könnte es sein, dass das ein "Postfach" ist, die sind heute vielleicht nicht mehr in der Datei gelistet.

Gerade einmal aufgerufen, und da kommt: Werkzeugstraße 1, 58093 Hagen

H.Brill

Ja, es geht aber jetzt mehr um den Katalog bzw. Bestellkarte und die PLZ.

Den Katalog bekomme ich ja ein paar mal im Jahr, er ist also nicht anna dazumal.

Und zudem gibt es ja Leute (kenne selber etliche), die keinen PC, geschweige

denn Internet haben. Höchstens ein Smartphone zum Telefonieren und wenn

es gut geht, noch WhatsApp. Und auch solche, die über Internet nicht bestellen

wollen oder können. Deswegen gibt es ja immer noch diese Bestellkarten und

das nicht nur bei Westfalia.

Deshalb wundere ich mich, daß die Marketingleute bei Westfalia das noch

nicht geändert haben. Die wollen ja auch solche Leute als Kunden haben, die

ich gerade beschrieben habe. Anbei mal so eine Bestellkarte für Neukunden

bzw. Bestandskunden mit Kundennummer.

THFR

Wie zu sehen, es fehlt die Straße + Nummer, ist es eine Postleitzahl für Firmen und andere Großkunden, die können eine Eigene haben. Ob die alle in öffentlich zugänglichen Daten noch gelistet werden ???

H.Brill

Hier mein Programm noch erweitert mit Ortssuche.

Code

Declare Handle Grid, btn1, bc1, btn2, text1, btn3, edit1, text2, edit2
Declare String spalten, such, objekte[]
Declare Long js, pc, anz, ende

spalten = "Plz;0;60;Ort;0;180;Land;0;180;Kreis;0;180;LT;0;80;LG;0;80"
'primary_key;zipcode;city;state;community;latitude;longitude
ende = 0

js = create("json", $ProgDir + "postal-codes.json")
anz = json("Count", js)

WindowTitle Str$(anz) + " Datensätze vorhanden !"
Window 850, 400
btn1  = Create("Button",  %HWnd, "Suche PLZ", 10, 10, 80, 25)
bc1   = Create("Button",  %HWnd, "ClearList", 700, 40, 70, 25)
btn2  = Create("Button",  %HWnd, "Ende",  700, 10, 70, 25)
text1 = Create("Text",    %HWnd, "Suche PLZ", 10, 50, 120, 25)
edit1 = Create("Edit",    %HWnd, "", 135, 50, 60, 25)
text2 = Create("Text",    %HWnd, "Suche Ort", 250, 50, 80, 25)
edit2 = Create("Edit",    %HWnd, "", 375, 50, 240, 25)
btn3  = Create("Button",  %HWnd, "Suche Ort", 400, 10, 80, 25)
Grid  = Create("Gridbox", %HWnd, spalten, 0, 10, 90, 800, 100)

WhileNot ende
  WaitInput
  If Clicked(btn1)
     ' Suche
      such = GetText$(edit1)
      If such <> ""
         Suchen(Trim$(such), 1)
      EndIf
  ElseIf Clicked(btn3)
      such = GetText$(edit2)
      If such <> ""
         Suchen(Trim$(such), 2)
      EndIf
  ElseIf Clicked(bc1)
      ClearList Grid
  ElseIf Clicked(btn2)
     ende = 1
  EndIf
EndWhile

Proc Suchen
Parameters String s, Long mode
Declare Long Satz
Declare String zipcode, city
Satz = 0
WhileLoop 1, anz
   UseCursor 2
   pc = JSON("GetObject", js, Str$(&LOOP))
   Select mode
     CaseOf 1
        zipcode = Trim$(Json("GetString", pc, "zipcode"))
        If zipcode = s
           AddString(Grid, zipcode + "|" + Json("GetString", pc, "city") + "|" + Json("GetString", pc, "state") + "|" + Json("GetString", pc, "community") + "|" + Str$(Json("GetNumber", pc, "latitude")) + "|" + Str$(Json("GetNumber", pc, "longitude")))
           Satz = 1
        EndIf
     CaseOf 2
        city = Trim$(Json("GetString", pc, "city"))
        If InStr(s, city)
           AddString(Grid, Json("GetString", pc, "zipcode") + "|" + city + "|" + Json("GetString", pc, "state") + "|" + Json("GetString", pc, "community") + "|" + Str$(Json("GetNumber", pc, "latitude")) + "|" + Str$(Json("GetNumber", pc, "longitude")))
           Satz = 1
        EndIf
   EndSelect
EndWhile
UseCursor 0
Case Satz = 0 : MessageBox("Keinen Eintrag gefunden !", "Info", 0)
EndProc

End

Alles anzeigen

So macht es etwas mehr Sinn.

Ich hatte zwar noch die regulären Ausdrücke mit reingenommen, aber dann war es

quälend langsam. Ohne geht es schneller.

Jetzt mitmachen!