User Tools

Site Tools


vba:functions:rndstring

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Last revision Both sides next revision
vba:functions:rndstring [04.05.2017 16:12:06]
yaslaw [Beispiele]
vba:functions:rndstring [18.12.2017 14:45:57]
yaslaw [Patterns]
Line 7: Line 7:
 </​const>​ </​const>​
 ====== [VBA] rndString() ====== ====== [VBA] rndString() ======
-//Stellt aufgrund eines Patterns ein Zufallstext zusammen//+//Stellt aufgrund eines Patterns ein Zufallstext zusammen. zB. für ein Passwortgenerator//
  
 ==Version %%version%% - %%vdate%%== ==Version %%version%% - %%vdate%%==
Line 22: Line 22:
 Public Function rndString(ByVal iPattern As String) As String</​code>​ Public Function rndString(ByVal iPattern As String) As String</​code>​
  
 +==== Patterns ====
 +Die Anwendungen findest du in den Beispielen
 +=== Zeichenpattern ===
 +  ***a** Lower-Case Alphanumeric ''​abcdefghijklmnopqrstuvwxyz 0123456789''​
 +  ***A** Mixed-Case Alphanumeric ''​ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0123456789''​
 +  ***U** Upper-Case Alphanumeric ''​ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789''​
 +  ***d** Digit ''​0123456789''​
 +  ***h** Lower-Case Hex Character ''​0123456789 abcdef''​
 +  ***H** Upper-Case Hex Character ''​0123456789 ABCDEF''​
 +  ***l** Lower-Case Letter ''​abcdefghijklmnopqrstuvwxyz''​
 +  ***L** Mixed-Case Letter ''​ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz''​
 +  ***u** Upper-Case Letter ''​ABCDEFGHIJKLMNOPQRSTUVWXYZ''​
 +  ***p** Punctuation '',​.;:''​
 +  ***b** Bracket ''​()[]{}<>''​
 +  ***s** Printable 7-Bit Special Character ''​!"#​$%&'​()*+,​-./:;<​=>?​@[\]^_`{|}~''​
 +  ***S** Printable 7-Bit ASCII ''​A-Z,​ a-z, 0-9, !"#​$%&'​()*+,​-./:;<​=>?​@[\]^_`{|}~''​
 +
 +=== Steuerpattern ===
 +  ***[...]** Mehrfachauswahl. Eines der Pattern davon wird verwendet
 +  ***{#}** Anzahl Zeichen
 +  ***{#,#}** Mindestens und Maximal Anzahl Zeichen
 +  ***(...)** Alle Patterns innerhalb der Klammern kommen vor. Die Reihenfolge wird gemischt
 +  ***\** Das folgende Zeichen ist kein Pattern sondern das Zeichen selber
 +  ***^*** Das folgende Zeichen/​Pattern wird von vorgehenden Pattern abgezogen. ''​a^d''​ entspricht somit dem ''​l''​
 +  ​
 ===== Beispiele ===== ===== Beispiele =====
 Einfache Beispiele. Einfache Beispiele.
Line 30: Line 55:
 'Im Vergleich dazu, 5 mal den Buchstaben a 'Im Vergleich dazu, 5 mal den Buchstaben a
 ?​rndString("​\a{5}"​) ?​rndString("​\a{5}"​)
 +aaaaa
  
 '5 Zeichen, die entweder ein Punkt- oder ein Klammerzeichen oder ein Kleinbuchstabe sind '5 Zeichen, die entweder ein Punkt- oder ein Klammerzeichen oder ein Kleinbuchstabe sind
Line 35: Line 61:
 f>;g( f>;g(
  
-'​dasselbe,​ aber mindestesn 4 Zeichen, maximal ​19 Zeichen+'​dasselbe,​ aber mindestesn 4 Zeichen, maximal ​10 Zeichen
 ?​rndString("​[pbl]{4,​ 10}") ?​rndString("​[pbl]{4,​ 10}")
 {}m>,>​ion] {}m>,>​ion]
Line 55: Line 81:
 6719115112343998 6719115112343998
  
-'10 Sonderzeichen ​ohn Klammern und Punkte+'10 Sonderzeichen ​ohne Klammern und Punkte
 ?​rndString("​s^[pb]{10}"​) ?​rndString("​s^[pb]{10}"​)
 %*"​|?​+'​`=&</​code>​ %*"​|?​+'​`=&</​code>​
  
-Und noch ein nütliches ​Beispiel.+Und noch ein nützliches ​Beispiel.
 <code vb>'​Ein Passwort. Beginnt mit einem Buchstaben. ​ <code vb>'​Ein Passwort. Beginnt mit einem Buchstaben. ​
 'Dann kommt ein Teil, bestehend aus 8 Buchstaben+Zahlen und 2 Sonderzeichen ohne Punkte und Klammern. 'Dann kommt ein Teil, bestehend aus 8 Buchstaben+Zahlen und 2 Sonderzeichen ohne Punkte und Klammern.
-??​rndString("​L(a{8}s^[pb]{2})"​)+?​rndString("​L(a{8}s^[pb]{2})"​)
 C$zr%i6z3md</​code>​ C$zr%i6z3md</​code>​
  
vba/functions/rndstring.txt · Last modified: 04.09.2019 11:56:01 by yaslaw