Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: An betimmte Stelle in Textdatei schreiben

An betimmte Stelle in Textdatei schreiben
12.05.2006 10:57:55
andS
Hi,
habe immer noch das gleiche Problem wie am: 10.05.2006 12:42:30
Link: https://www.herber.de/forum/messages/762772.html
Leider bekomme ich es immer noch nicht hin...
Hier die Antwort von Micha:
"Öffne die zu lesende Datei #1
Lege eine neue Datei #2 an (Open "tmp.dat" for output as #2)
Lese Zeile für Zeile aus #1 und schreibe die Zeilen gleich wieder in #2
Wenn Du Deine bestimmte Zeile aus #1 gefunden hast, schreibe halt was anderes in #2
Wenn fertig, schliesst Du beide Dateien, löscht die Datei 1 und benennst die Datei 2 in Datei 1 um."
Leider komme ich damit nicht klar. Kann mir bitte nochmals jemand helfen? Eventuell ein kleines Code-Beispiel machen?
Das wäre sehr nett!
Grüße Andi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: An betimmte Stelle in Textdatei schreiben
12.05.2006 11:06:45
Reinhard
Hi Andi,
Option Explicit
Sub t()
Open "c:\temp\test.txt" For Input As #1
Open "c:\temp\test2.txt" For Output As #2
While Not EOF(1)
Line Input #1, sText
If InStr(1, sText, "#  Write Values", vbTextCompare) > 0 Then
'hier dann in die Datei schreiben (2 Zeilen tiefer)
Print #2, "Zeile1"
Print #2, "Zeile2"
Else
Print #2, sText
End If
Wend
Close
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Danke!
12.05.2006 12:12:00
andS
Danke für die Hilfe, jetzt werde ich klar kommen!!
Grüße Andi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige