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

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

Content-ID: 148748

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

Ausgedruckt am: 23.11.2024 um 01:11 Uhr

3 Kommentare

Neuester Kommentar

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