VBScript Zeichenfolge aus String entfernen
Hallo, Community!
Ich habe da ein Problem: Ich schreibe einen kleinen "LAN-Chat" mit VBScript/VBS. D.h. auf einem Laufwerk, auf das mehrere User gleichzeitig zugreifen können (im beispiel S:\) liegt eine Datei namens "Data.chat". Der Chat (eine InputBox) zeigt den inhalt der Inhalt an, und wenn der User etwas in das Eingabefeld eingibt und absendet, wird das als neue Zeile in die Textdatei geschrieben. Ich wollte aber noch eine Funktion einbauen, mit der man sehen kann, wer "online" ist. Ich dachte mir, ich nehme den Username, adde diesen als neue Zeile in eine zweite Datei namens "Onliname.chat", und wenn man /online eingibt, kommt eine MsgBox, die einem anzeigt, Was in der Datei "Onliname.chat" steht. So weit bin ich momentan. Dann fehlt mir jedoch noch eine Funktion, die -wenn man den Chat schließt- den namen des Users entfernt, der den chat verlassen hat. Ich bekomme bei meinen versuchen jedoch nur Fehlermeldungen. Also: Kann mir jemand helfen ein Skript zu erstellen, das den inhalt einer Textdatei ausliest, nach einer bestimmten Zeile sucht, um diese zu löschen?
Danke im vorauß
Leogal0010
PS:
Wer rechtschreibfehler findet, darf sie behalten! :D
Ich habe da ein Problem: Ich schreibe einen kleinen "LAN-Chat" mit VBScript/VBS. D.h. auf einem Laufwerk, auf das mehrere User gleichzeitig zugreifen können (im beispiel S:\) liegt eine Datei namens "Data.chat". Der Chat (eine InputBox) zeigt den inhalt der Inhalt an, und wenn der User etwas in das Eingabefeld eingibt und absendet, wird das als neue Zeile in die Textdatei geschrieben. Ich wollte aber noch eine Funktion einbauen, mit der man sehen kann, wer "online" ist. Ich dachte mir, ich nehme den Username, adde diesen als neue Zeile in eine zweite Datei namens "Onliname.chat", und wenn man /online eingibt, kommt eine MsgBox, die einem anzeigt, Was in der Datei "Onliname.chat" steht. So weit bin ich momentan. Dann fehlt mir jedoch noch eine Funktion, die -wenn man den Chat schließt- den namen des Users entfernt, der den chat verlassen hat. Ich bekomme bei meinen versuchen jedoch nur Fehlermeldungen. Also: Kann mir jemand helfen ein Skript zu erstellen, das den inhalt einer Textdatei ausliest, nach einer bestimmten Zeile sucht, um diese zu löschen?
Danke im vorauß
Leogal0010
PS:
Wer rechtschreibfehler findet, darf sie behalten! :D
Please also mark the comments that contributed to the solution of the article
Content-Key: 264858
Url: https://administrator.de/contentid/264858
Printed on: April 25, 2024 at 22:04 o'clock
1 Comment
Set fso = CreateObject("Scripting.FilesystemObject")
strNewText = Replace(fso.OpenTextFile("s:\onliname.chat",1).ReadAll(),"UserXYZ" & vbNewline, "",1,1,1)
fso.OpenTextFile("s:\onliname.chat",2).Write(strNewText)
Gruß jodel32