AW: Textbox Sonderzeichen
16.08.2021 08:01:12
Oberschlumpf
Hi Peter,
Sub sbTest
Dim lstrDateiname As String
lstrDateiname = Textbox2.Text & Textbox3.Text & Textbox4.Text
If fcMITSonderzeichen(lstrDateiname) = True Then
MsgBox "Dateiname enthält nicht erlaubte Sonderzeichen"
Exit Sub
End If
'ab hier dein Code zum Speichern mit lstrDateiname
End Sub
Function fcMITSonderzeichen(Byval dateiname As String) As Boolean
Dim lstrVergleich As String,liLen As Integer
lstrVergleich = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_"
For liLen = 1 To Len(dateiname)
If Instr(lstrVergleich, Mid(dateiname, liLen, 1)) = 0 Then
fcMITSonderzeichen = True
Exit Function
End If
Next
End Function
An die Funktion wird dein Inhalt aus den Textboxen 2,3 + 4 übergeben
In der Funktion wird jedes einzelne Zeichen geprüft, ob es in der Variablen lstrVergleich enthalten ist - wenn JA = alles ok, wenn auch nur 1 Zeichen NICHT enthalten ist, wird die Funktion verlassen und es erscheint die obige MsgBox; auch die obige Sub wird danach sofort verlassen.
Hilfts?
Ciao
Thorsten