Dann kauf Dir Klicktel o. ä. und exportiere ein paar tausend Adressen. Dafür
benötigste dann aber auch Rufident.
suche Dummy-Adresslisten
- ts-soft
- Beiträge: 22292
- Registriert: 08.09.2004 00:57
- Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel - Wohnort: Berlin
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
-
- Beiträge: 167
- Registriert: 29.12.2005 09:58
- Computerausstattung: Intel Core2 Quad (4x2,4 GHz), 4096 MB RAM, GForce 8800GTX 786 MB
Windows XP 32 Bit, PureBasic 4.40 (x86)
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