5
VBS - Zeile ersetzen
Hallo Ihr Lieben,
ich suche nach einer Möglichkeit die eine bestimmt Zeile sucht und diese vollständig ersetzt.
Suche nach
-H HUEL-SERVER (hinter -H kann auch was anderes stehen, also muss nur nach einer Zeile -H am Anfang gesucht werden)
Ersetzen durch
H- neuer Server
DANKE DANKE DANKE
VG, Marc
ich suche nach einer Möglichkeit die eine bestimmt Zeile sucht und diese vollständig ersetzt.
Suche nach
-H HUEL-SERVER (hinter -H kann auch was anderes stehen, also muss nur nach einer Zeile -H am Anfang gesucht werden)
Ersetzen durch
H- neuer Server
DANKE DANKE DANKE
VG, Marc
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 104094
Url: https://administrator.de/contentid/104094
Printed on: April 26, 2024 at 17:04 o'clock
5 Comments
Latest comment
Moin Moin
Gruß L.
ich suche nach einer Möglichkeit die eine bestimmt Zeile sucht und diese vollständig ersetzt.
Zeile won was? Textdatei, Excel, ...Gruß L.
sorry, die Zeile soll in einer Textdatei ersetzt werden
Moin
DAs solte in etwa sein was du suchst (ungetestet).
Gruß L.
DAs solte in etwa sein was du suchst (ungetestet).
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile("C:\Source.txt", 1)
Set objDestFile = objFSO.CreateTextFile("C:\Dest.txt", True)
Do Until objSourceFile.AtEndOfStream
szNextLine = objSourceFile.Readline
If Instr(szNextLine,"-H ")=1 Then
szNextLine = "H- neuer Server"
end if
objDestFile.writeline szNextLine
LoopGruß L.
Vielen Dank erstmal!!!
Ich möchte die Zeile in der gleichen Datei ersetzen und keine neue Zeile in einer anderen Datei hinzufügen.
Vielleicht hat jemand noch eine Idee?
Ich möchte die Zeile in der gleichen Datei ersetzen und keine neue Zeile in einer anderen Datei hinzufügen.
Vielleicht hat jemand noch eine Idee?
Moin Moin
Wenn Du die zeile in der gleichen Datei ersetzen willst (was schon ginge) dann müstet Du nach jedem ersetzen diese Speicher und erneut öffnen.
Sinniger ist es die "alte Datei auszulesen, Zeilen zu ersetzen und diese in die "neue zu schreiben. Danach die alte löschen und die neue unbenennen.
Da hängst du einfach hinten noch ein...
ran.
Gruß L.
Wenn Du die zeile in der gleichen Datei ersetzen willst (was schon ginge) dann müstet Du nach jedem ersetzen diese Speicher und erneut öffnen.
Sinniger ist es die "alte Datei auszulesen, Zeilen zu ersetzen und diese in die "neue zu schreiben. Danach die alte löschen und die neue unbenennen.
Da hängst du einfach hinten noch ein...
...
objFSO.DeleteFile "C:\Source.txt", True
objFSO.MoveFile "C:\Dest.txt", "C:\Source.txt" Gruß L.