Hallo :)
ich habe ein VBS file um eine Zeile in einem Ini file zu löschen was klappt
Set MyFiles = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 varDatei="C:\Temp\test.ini" varTmpDatei="C:\Temp\test.txt" Set fin = MyFiles.OpenTextFile(varDatei, ForReading) Set fout = MyFiles.OpenTextFile(varTmpDatei, ForWriting, True) strSearch = "FaultRecovery_Build=Release 2.3" do while not fin.AtEndOfStream strline = fin.readLine() if instr(1,strline, strSearch) = 0 then 'Zeile nicht gefunden, also Zeile ausgeben fout.writeline strline end if loop
der String
strSearch = "FaultRecovery_Build=Release 2.3"
wird wunderbar entfernt.
Problem
----------
Neu, soll der ganze Text des ini Files von Zeile 10 bis EOF [EndofFile] gelöscht werden
Einträge können varieren und auch das Ende des Eintrages ist nicht immer am gleichen Ort.
Was Konstant ist
--------------------
Immer von der 10 Zeile an bis EndofFile
Krieg ich irgendwie nicht hin
Danke für die mögliche Hilfe
