meta data for this page
Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.
mustervergleich [2016/10/08 17:51] – Externe Bearbeitung 127.0.0.1 | mustervergleich [2020/01/03 10:42] (aktuell) – michael | ||
---|---|---|---|
Zeile 2: | Zeile 2: | ||
\\ Um bei Eingaben von Werten oder Texten eine Gültigkeitsprüfung durchzuführen, | \\ Um bei Eingaben von Werten oder Texten eine Gültigkeitsprüfung durchzuführen, | ||
==== einige Beispiele für Musterdefinitionen: | ==== einige Beispiele für Musterdefinitionen: | ||
+ | <code VBScript [enable_line_numbers=" | ||
' Bsp.: Suchmuster für die Eingabe von Länge und Breite eines Bildes. wobei jeder Wert zwei- oder dreistellig sein muss. | ' Bsp.: Suchmuster für die Eingabe von Länge und Breite eines Bildes. wobei jeder Wert zwei- oder dreistellig sein muss. | ||
' Die beiden Werte müssen durch ein " | ' Die beiden Werte müssen durch ein " | ||
Zeile 24: | Zeile 25: | ||
' ... zusätzlich werden Nullwerte vermieden und Leerzeichen vor und nach dem Trennzeichen zugelassen | ' ... zusätzlich werden Nullwerte vermieden und Leerzeichen vor und nach dem Trennzeichen zugelassen | ||
Suchmuster = " | Suchmuster = " | ||
+ | </ | ||
==== Gültigkeitsprüfung ==== | ==== Gültigkeitsprüfung ==== | ||
- | VBScript\\ | + | |
+ | **VBScript** | ||
+ | |||
+ | <code VBScript [enable_line_numbers=" | ||
Suchmuster = " | Suchmuster = " | ||
Eingabe = InputBox ("Text eingeben" | Eingabe = InputBox ("Text eingeben" | ||
Zeile 48: | Zeile 52: | ||
End If | End If | ||
End Function | End Function | ||
+ | </ | ||
+ | |||
==== Text ersetzen ==== | ==== Text ersetzen ==== | ||
- | VBScript\\ | + | |
+ | VBScript | ||
+ | |||
+ | <code VBScript [enable_line_numbers=" | ||
Function ReplaceRegAusdruck(Zeichenfolge, | Function ReplaceRegAusdruck(Zeichenfolge, | ||
' In einer Zeichenfolge wird der dem SuchMuster entsprechende Text ersetzt durch | ' In einer Zeichenfolge wird der dem SuchMuster entsprechende Text ersetzt durch | ||
Zeile 60: | Zeile 69: | ||
ReplaceRegAusdruck = regAusdr.Replace(Zeichenfolge, | ReplaceRegAusdruck = regAusdr.Replace(Zeichenfolge, | ||
End Function | End Function | ||
- | Wenn verhindert werden soll, dass Leerzeichen eine Eingabe fehlerhaft machen, können diese herausgefiltert werden: | + | </ |
+ | |||
+ | Wenn verhindert werden soll, dass Leerzeichen eine Eingabe fehlerhaft machen, können diese herausgefiltert werden: | ||
+ | <code VBScript [enable_line_numbers=" | ||
Eingaben = ReplaceRegAusdruck(Eingabe, | Eingaben = ReplaceRegAusdruck(Eingabe, | ||
+ | </ | ||
Unter VBScript bietet es sich an, für diese einfache Aufgabe direkt die Funktion // | Unter VBScript bietet es sich an, für diese einfache Aufgabe direkt die Funktion // |