PureBoard

Verfasst: **26.06.2009 20:52**

Dann kauf Dir Klicktel o. ä. und exportiere ein paar tausend Adressen. Dafür
benötigste dann aber auch Rufident.

Verfasst: **26.06.2009 20:57**

@Kaeru Gaman

Na, ich denke, es fällt schon auf, wenn man in einer Spalte untereinander liest:

ehmann
chmidt
üller
ecker

aber nicht so sehr wenn man liest

hdiiash
fadshf
afdadf
fadaf

Mensch vs. Maschine Vorteil

Viele Grüße,
padawan

Verfasst: **29.07.2009 08:38**

Hier mal ein kleines Beispiel für einen einfachen Adressgenerator. Wenn du vielfältigere Adressen willst, dann kannst du entweder die DataSections erweitern, oder gleich irgendwelche Orts-/Namenslisten einlesen um das Programm zu füttern.

Code: Alles auswählen

;Zufällige Adressdaten generieren

EnableExplicit

#trenner = "---------------------"

Define Dateiname.s = "Adressen.txt"
Define AnzahlAdressen = 10
Define i
Global Vorname.s, Nachname.s, Strasse.s, HausNr.s, PLZ.s, Ort.s
Global Dim Vornamen.s(0)
Global Dim Nachnamen.s(0)
Global Dim Strassen.s(0)
Global Dim Orte.s(0)

RandomSeed(ElapsedMilliseconds())

Procedure.s generatePLZ()
  ProcedureReturn Str(Random(99999-10000)+10000)
EndProcedure

Procedure.s generateHausNr()
  Protected HausNr.s = Str(Random(249)+1)
  If Random(1) = 1
    HausNr + Chr(Random(Asc("c")-Asc("a"))+Asc("a"))
  EndIf
  ProcedureReturn HausNr
EndProcedure

Restore Vornamen
While Vorname <> "###"
  Read.s Vorname
  If Vorname <> "###"
    ReDim Vornamen(ArraySize(Vornamen())+1)
    Vornamen(ArraySize(Vornamen())-1) = Vorname
  EndIf
Wend

Restore Nachnamen
While Nachname <> "###"
  Read.s Nachname
  If Nachname <> "###"
    ReDim Nachnamen(ArraySize(Nachnamen())+1)
    Nachnamen(ArraySize(Nachnamen())-1) = Nachname
  EndIf
Wend

Restore Strassen
While Strasse <> "###"
  Read.s Strasse
  If Strasse <> "###"
    ReDim Strassen(ArraySize(Strassen())+1)
    Strassen(ArraySize(Strassen())-1) = Strasse
  EndIf
Wend

Restore Orte
While Ort <> "###"
  Read.s Ort
  If Ort <> "###"
    ReDim Orte(ArraySize(Orte())+1)
    Orte(ArraySize(Orte())-1) = Ort
  EndIf
Wend

If Not CreateFile(0,Dateiname)
  Debug "Fehler beim Erstellen der Datei!"
  End
EndIf

For i = 1 To AnzahlAdressen
  Vorname = Vornamen(Random(ArraySize(Vornamen())-1))
  Nachname = Nachnamen(Random(ArraySize(Nachnamen())-1))
  Strasse = Strassen(Random(ArraySize(Strassen())-1))
  HausNr = generateHausNr()
  PLZ = generatePLZ()
  Ort = Orte(Random(ArraySize(Orte())-1))
  WriteString(0,Vorname+" "+Nachname+#CRLF$+Strasse+" "+HausNr+#CRLF$+PLZ+" "+Ort+#CRLF$+#trenner+#CRLF$)
Next i

DataSection
  Vornamen:
  Data.s "Andreas", "Kurt", "Herbert", "Susanne", "Katharina", "Hans", "Egon", "Gabi", "Markus"
  Data.s "Stefan", "Sandra", "Melanie", "Heike", "Sabine", "Alexander", "Rudolf", "Heinz", "Max"
  Data.s "###"
  Nachnamen:
  Data.s "Müller", "Meier", "Huber", "Schmidt", "Mustermann"
  Data.s "###"
  Strassen:
  Data.s "Bahnhofsstrasse", "Waldweg", "Hauptstrasse", "Nebenweg", "Bäckergasse", "Dorfstrasse"
  Data.s "Rathausplatz", "Am Berg", "Albert-Einstein-Strasse", "Am Fluss"
  Data.s "###"
  Orte:
  Data.s "Musterstadt", "München", "Hamburg"
  Data.s "###"
EndDataSection

PureBoard

suche Dummy-Adresslisten