ph0rl2
Goto Top

VBS String in Datei suchen und Nachfolgendes löschen

Hallo,

ich möchte folgendes realiesieren:

ich habe eine Textdatei, die beispielsweise so aussieht:
asddd
asdaga
dsfas
dfas
ghasg
er
asdaf
asdsa

Jetzt suche ich nach "er" und speicher die zeilennummer in der das "er" vorkommt. In diesem Beispiel "6".
Nun möchte ich alles was nach "er" kommt löschen.

Wie kann ich mit VBS alles ab einer bestimmten Zeile löschen?
Viele Grüße und Danke

Content-Key: 148748

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

Ausgedruckt am: 28.03.2024 um 14:03 Uhr

Mitglied: 76109
76109 11.08.2010 um 10:25:57 Uhr
Goto Top
Hallo ph0rl2!

Sollte in etwa so gehen:
Const Path = "E:\Test.txt"  

Dim Fso, File, Text, Suchtext
    
Set Fso = CreateObject("Scripting.FileSystemObject")  

Suchtext = InputBox("Bitte Suchtext eingeben:", "Suchen")  
    
If Suchtext = "" Then WScript.Quit  
   
Text = Split(Fso.OpenTextFile(Path).ReadAll, Suchtext)

Set File = Fso.CreateTextFile(Path)

If UBound(Text) > 0 Then File.Write Text(0) & Suchtext Else File.Write Text(0)

File.Close
wobei die Datei überschrieben wird.

Gruß Dieter

PS. Aha, Beitrag nochmal schnell geändert face-wink, sollte aber vom Kontext her das gleiche sein
Mitglied: ph0rl2
ph0rl2 11.08.2010 um 11:35:26 Uhr
Goto Top
Super funktionier bestens face-smile
Danke
Mitglied: 76109
76109 11.08.2010 um 11:51:53 Uhr
Goto Top
Yepp, gern geschehenface-wink

Gruß Dieter