Hallo Forum,
frohes neues Jahr,
Ransi hat mal ne Funktion publiziert, die unerwünschte Zeichen in einem String sucht (siehe unten) und WAHR oder FALSCH ausgibt (funktioniert gut).
Ich möchte gerne diese Zeichen auch austauschen.
Wie muß ich die Funktion ändern? Public Function erlaubt(strText As String) As Boolean 'CON , PRN, AUX, CLOCK$, NUL # VERBOTEN # 'COM0 , COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9 # VERBOTEN # 'LPT0, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8, und LPT9 # VERBOTEN # ' ? " : | \ / # VERBOTEN # 'Leerzeichen oder Punkt # VERBOTEN # Dim RegEx erlaubt = True Set RegEx = CreateObject("Vbscript.regexp") With RegEx .Pattern = "^(CON|PRN|AUX|CLOCK$|NUL|COM0|COM1|COM2|COM3|COM4|COM5|COM6|COM7|COM8|COM9|LPT0| _ LPT1|LPT2|LPT3|LPT4|LPT5|LPT6|LPT7|LPT8| LPT9)\..*$" If .test(strText) = True Then erlaubt = False Exit Function End If .Pattern = "(|\?|""|:|\||\\|\/|\*)" .Global = True If .test(strText) = True Then erlaubt = False Exit Function End If .Pattern = "( |\.).*\..*$" If .test(strText) = True Then erlaubt = False Exit Function End If End With End Function
Vielen Dank für eine Antwort
Mit freundlichen Grüßen
Albrecht