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
vba:functions:rndstring [04.05.2017 16:12:22]
yaslaw [Beispiele]
vba:functions:rndstring [04.09.2019 11:56:01] (current)
yaslaw
Line 1: Line 1:
 <​const>​ <​const>​
-    version=1.0.0 +    version=1.0.1 
-    vdate=04.05.2017+    vdate=04.09.2019
     fname=udf_rndstring.bas     fname=udf_rndstring.bas
     ns=%NAMESPACE% ​   ​     ns=%NAMESPACE% ​   ​
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.
vba/functions/rndstring.1493907142.txt.gz · Last modified: 04.05.2017 16:12:22 by yaslaw