cadsys-chemnitz
Goto Top

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:

Content-Key: 192718

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

Ausgedruckt am: 29.03.2024 um 07:03 Uhr

Mitglied: TsukiSan
TsukiSan 13.10.2012 aktualisiert um 13:41:25 Uhr
Goto Top
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 face-wink
[/Edit]
Mitglied: bastla
bastla 13.10.2012 aktualisiert um 13:32:58 Uhr
Goto Top
@ 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 ... face-wink

Grüße
bastla
Mitglied: TsukiSan
TsukiSan 13.10.2012 um 13:37:37 Uhr
Goto Top
@ bastla,

ja, die Samstagabende scheinen öfters sehr abenteurlich face-wink
Unser lieber andere Kollege hat da so seine Mühe mit den Montagen face-wink

Schauen wir mal, was der TO so meint.

Grüße

Tsuki
Mitglied: bastla
bastla 13.10.2012 um 14:05:33 Uhr
Goto Top
[OT] @ Tsuki
Samstagabend? In welcher Zeitzone bist Du denn jetzt gerade wieder?

Grüße
bastla
[/OT]
Mitglied: TsukiSan
TsukiSan 13.10.2012 um 14:08:12 Uhr
Goto Top
[OT]

face-wink @ bastla,

In welcher Zeitzone bist Du denn jetzt gerade wieder?
Ich bin schon wieder 6 Stunden vorne weg.

Hier "dämmert's" schon face-wink

Viele Grüße

Tsuki

[/OT]