Zufallstext erzeugen

Einfaches Erzeugen eines Zufalls-Text. Die Funktion gibt einen Zufalls-Text in der angegebenen Wortlänge zurück. Die Funktion lässt sich z.B. für automatisch generierte Kundenummern oder Artikelnummern einsetzen. In Kombination mit der Funktion zum Erzeugen von Zufallszahlen, lassen sich Zufalls-Strings mit Text und Zahlen generieren.

Code:

Function ZufallsText(WortLänge As Integer)   ' ---------------------------------------------------------- ' Gibt einen Zufallstext in der angegebenen Länge zurück ' ----------------------------------------------------------   Dim j As Integer, AsciiCode As Integer Dim merk As String * 1   WortLänge = ZufallsInteger(2, WortLänge) For j = 1 To WortLänge AsciiCode = ZufallsInteger(97, 125) Select Case AsciiCode Case 123 merk = "a" Case 124 merk = "o" Case 125 merk = "u" Case Else merk = Chr(AsciiCode) End Select ZufallsText = ZufallsText & merk Next j   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!