Sonderzeichen bei Textboxeingabe

Bastle gerade an eine Tool zum ablegen von Bestellinformationen nach Nutzeren.

Hab folgendes Problem:

Wenn ich einen neuen Benutzer anlege wird Automatisch ein neuer Ordner für den Benutzer angelegt.

Also Simple ich habe eine Textbox (dort kommt der neue Benutzername rein) und nen Speicherbutton.

        Dim a = Textbox1.text

        FSO = CreateObject("ADODB.Stream")  
        FSO.Open()
        FSO.Type = 1
        FSO.SaveToFile("O:\Profile\" & a & "\User.txt")  
        FSO.Close()
        
        FileOpen(1, "O:\Profile\" & a & "\User.txt", OpenMode.Output)  
        PrintLine(1, a)
        FileClose(1)

Nun hab ich das Problem wenn Jemand einen Benutzernamen eingiebt der ein Leerzeichen enthält. Das der Ordner nicht erstellt wird.

Wie kann ich beim drücken des Speicherbuttons testen ob Leerzeichen enthalten sind bevor ich versuche das ganze zu speichern.

Also irgendwie so:

        If Textbox1.text = "mit Leerzeichen" then  
             MSGbox("keine Leerzeichen verwenden")  
             goto 100
           Else
             goto 50
        End if

50:     Dim a = Textbox1.text

        FSO = CreateObject("ADODB.Stream")  
        FSO.Open()
        FSO.Type = 1
        FSO.SaveToFile("O:\Profile\" & a & "\User.txt")  
        FSO.Close()
        
        FileOpen(1, "O:\Profile\" & a & "\User.txt", OpenMode.Output)  
        PrintLine(1, a)
        FileClose(1)
 100:

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 192718

Url: https://administrator.de/contentid/192718

Ausgedruckt am: 25.11.2024 um 16:11 Uhr

5 Kommentare

Neuester Kommentar

Bastle gerade an einem Tool...

ist nicht unbedingt ein Begrüßungstext!

Trim und Replace können deine Freunde bei deinem Vorhaben sein.

Kleines Beispiel:

a = " Mitglied: Cadsys-Chemnitz Cadsys-Chemnitz  "  
b = Trim(Replace(a," " ,""))  
Wscript.Echo b

Gruss
Tsuki

Ps.: wobei das Trim "aussenrum" ziemlich unnötig ist! Aber als Beispiel!

[Edit]
Falls Wscript.Echo nicht funktioniert und eine Fehlermeldung bringt, dann bitte durch Msgbox ersetzen

[/Edit]

@ Tsuki
Auch wenn ich grundsätzlich ebenfalls zu "WScript.Echo" anstelle einer "MsgBox" tendiere, dürfte es hier wohl nicht ganz passen - obwohl der Code etwas abenteuerlich wirkt (Wozu eine Binärdatei, in die dann einfach Text geschrieben wird?), würde ich die Sprache doch (passend zur gewählten Rubrik) für VBA halten ...

Grüße
bastla