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 // | ||