---

Hallo,

ich  möchte in einer Textdatei Zeilen mit bestimmtem Inhalt löschen und einzelne Einträge ersetzen. Das Ersetzen habe ich schon.
Nun soll z.B. eine Zeile, die mit xyz beginnt, gelöscht werden. Kann jemand meinen Code ergänzen? Ich kenne mich leider gar nicht aus.
Das habe ich bisher im Internet gefunden und für meine Zwecke umgebastelt:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForWriting = 2

' Datei öffnen und Text einlesen und schließen
Set objFile = objFSO.OpenTextFile("prog_1", ForReading)
strText = objFile.ReadAll
objFile.Close

' Änderungen am Inhalt
strNewText = Replace(strText, "A", "M10 o6.1")
strNewText = Replace(strNewText, "S70", "")
strNewText = Replace(strNewText, "M6", "")
strNewText = Replace(strNewText, "M3", "")
strNewText = Replace(strNewText, "M8", "")

' Neue Datei erstellen mit neuen Inhalten füllen
set resultFile = objFSO.CreateTextFile("Name.knc", true)
resultFile.WriteLine strNewText
resultFile.Close

Vielen Dank im Voraus.

------------------
Grüße
Julia

[Diese Nachricht wurde von Beemer328 am 26. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Beemer328 am 26. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Beemer328 am 26. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hall Julia,

Quick'n'Dirty und sicher verbesserungswürdig:

Bei Zugriff auf Dateinamen solltest du dir angewöhnen, immer den kompletten Pfad einzubauen.
Wenn du alles in einem Verzeichnis machst,  kannst du dafür eine Konstante definieren.
Dann ist das auch einfach zu pflegen, falls sich der Verzeichnisname mal ändert.

Code:

---

Option Explicit

Dim objFSO, objFile, resultfile
Dim strText As String
Dim strNewText As String
Const ForReading = 1
Const ForWriting = 2
Dim Zeilen As Variant
Dim Zeile As String
Dim n As Integer

Const WorkDir = "c:\temp\"

Sub main()

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Datei öffnen und Text einlesen und schließen
Set objFile = objFSO.OpenTextFile(WorkDir & "test.txt", ForReading)
strText = objFile.ReadAll
objFile.Close

' Änderungen am Inhalt
strNewText = Replace(strText, "A", "M10 o6.1")
strNewText = Replace(strNewText, "S70", "")
strNewText = Replace(strNewText, "M6", "")
strNewText = Replace(strNewText, "M3", "")
strNewText = Replace(strNewText, "M8", "")

'Kompletten String in einzel-Strings umwandeln.
'Jeder Teil-String entspricht einer Zeile
Zeilen = Split(strNewText, vbNewLine)
strNewText = "" 'leer machen, wird neu befüllt
'Jede Zeile prüfen, ob sie den "bösen" Teilstring enthält:

For n = 0 To UBound(Zeilen)
    If InStr(Zeilen(n), "xyz") <> 1 Then 'wenn "xyz" an erste Stelle steht, ist das Suchergebnis = 1
        'nichts gefunden, also zum Gesamtstring hinzufügen und Zeilenschaltung anhängen
        strNewText = strNewText & Zeilen(n) & vbNewLine
    End If
Next

' Neue Datei erstellen mit neuen Inhalten füllen
Set resultfile = objFSO.CreateTextFile(WorkDir & "test_result.txt", True)
resultfile.write strNewText
resultfile.Close

End Sub

---

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

prog_1.txt

Vielen Dank erstmal.
Funktioniert!    Wie kann ich das für mehrere Werte/Zeilen erweitern?
Es müssen immer die Zeilen mit den Anfängen G99, G90 und G17 weg.

------------------
Grüße
Julia

[Diese Nachricht wurde von Beemer328 am 27. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Beemer328 am 27. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Beemer328 am 27. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Beemer328 am 27. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habs hingekriegt! Hab einfach den unteren Teil ein paar Mal kopiert und andere Werte eingesetzt. Ist bestimmt furchtbar "dirty", aber es geht.

Dankeschön!!

------------------
Grüße
Julia

[Diese Nachricht wurde von Beemer328 am 27. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann ich mir jetzt nicht so ganz vorstellen, aber wenn's funktioniert 

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP