Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei ändern

Textdatei ändern
15.12.2007 15:15:06
ioannis
Hallo zusammen,
es ist mit VBA möglich eine TextDatei ForReading, ForWriting oder ForAppending zu öffnen. Ich versuche aber, nachdem die Textdatei in Excel eingelesen und bearbeitet wurde, sie direkt aus Excel an bestimmten Stellen zu ändern. Dafür muss ich sie zeilenweise lesen und gleichzeitig ändern. Geht das?
Ich bedanke mich für die Unterstützung.
Freundliche Grüsse
Ioannis

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

Betreff
Datum
Anwender
Anzeige
AW: Textdatei ändern
15.12.2007 15:48:00
Peter
Hallo Ioannes,
hier ein Makro-Beispiel, wie es gehen könnte.

Sub ZeilenMit10Aendern()
Dim Datei      As String
Dim Temp       As String
Dim Text       As String
Dim AnzStelle  As Integer
Dim Stelle     As Integer
Dim Zeile      As String
Datei = "C:\Temp\Daten10oder20.txt"  ' Name der Textdatei
Temp = Datei & ".tmp"                ' temporäre Datei
Stelle = 128    ' ab Stelle 128
AnzStelle = 3   ' 3 Zeichen ersetzen
Text = "XYZ"    ' der Text, der eingefügt werden soll
Open Datei For Input As 1  ' Textdatei zum Lesen öffnen
Open Temp For Output As 2  ' TEMP-Datei zum Schreiben öffnen
While Not EOF(1)
Line Input #1, Zeile    ' Zeile einlesen
If Left(Zeile, 2) = "10" Then ' wenn die Zeile mit "10" beginnt
Zeile = Left(Zeile, Stelle - 1) & Text & _
Mid(Zeile, Stelle + AnzStelle, Len(Zeile))
End If
Print #2, Zeile         ' Zeile in TEMP-Datei schreiben
Wend
Close                      ' alle Dateien schließen
'   ACHTUNG : Hier wird die TEXTDATEI gelöscht und durch die TEMPORÄRE Datei ersetzt :
Kill Datei
Name Temp As Datei
End Sub


Gruß Peter

Anzeige
AW: Textdatei ändern
15.12.2007 22:04:00
ioannis
Vielen Dank für die schnelle und kompetente Antwort.
Ioannis

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige