Zahl in Text Datei hochzählen

Bild

Betrifft: Zahl in Text Datei hochzählen
von: Andre´
Geschrieben am: 17.05.2015 22:49:31

Hallo alle zusammen,
ich möchte mit einem Makro erreichen, dass die Zahl in der ersten Zeile der Text-Datei mit jedem Ausführen um 1 hochgezählt wird.
Hier die Bsp.: TXT https://www.herber.de/bbs/user/97689.txt
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

Bild

Betrifft: AW: Zahl in Text Datei hochzählen
von: MatthiasG
Geschrieben am: 18.05.2015 00:52:55
Hallo Andre,
so, zum Beispiel, allerdings noch ohne Fehlerprüfungen:


Option Explicit
Sub Hochzaehlen()
Dim ff1 As Integer, ff2 As Integer
Dim zeile As String
Dim fn As String
fn = ThisWorkbook.Path & "\text.txt"
ff1 = FreeFile
Open fn For Input As #ff1
ff2 = FreeFile
Open fn & ".tmp" For Output As #ff2
'erste Zeile lesen, erhöhen und schreiben
If Not EOF(ff1) Then
    Line Input #ff1, zeile
    Print #ff2, CStr(Val(zeile) + 1)
End If
    
'Rest kopieren
While Not EOF(ff1)
    Line Input #ff1, zeile
    Print #ff2, zeile
Wend
'Alles schließen
Close #ff1
Close #ff2
'Alte Datei löschen, neue umbenennen
Kill fn
Name fn & ".tmp" As fn
End Sub

Gruß Matthias

Bild

Betrifft: AW: Zahl in Text Datei hochzählen
von: Andre´
Geschrieben am: 18.05.2015 12:53:13
Hallo Matthias,
vielen Dank für die Lösung, funktioniert wie gewünscht!
MFG Andre

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zahl in Text Datei hochzählen"