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

Please also mark the comments that contributed to the solution of the article

Content-Key: 148748

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

Printed on: April 19, 2024 at 12:04 o'clock

3 Comments

Latest comment

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