Textfile letzte Zeile

Guten Morgen allerseits
mein Beitrag von gestern ist noch offen
https://www.herber.de/forum/messages/1003499.html
ich möchte meine Frage jetzt mal anders formulieren. Ich speichere ein Excelsheet als Textdatei ab. Wie ich auch aus mehreren Beiträgen entnehmen konnte, fügt Excel beim "als Text speichern" am Ende eine Leerzeile ein. Dies muß verhindert werden.
Meine Idee: das Textfile nochmal öffnen, untersuchen, ob letzte Zeile eine Leerzeile ist und diese dann löschen. Das Ganze sollte als Makro funktionieren! Doch wie? Meine bescheidene Kenntnisse reichen da nicht aus und hier im Archiv habe ich auch nichts Brauchbares gefunden.
Kann mir jemand helfen?
Liebe Grüße und noch einen schönen, erfolgreichen Tag!
Petra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Open "c:\Temp\kopie.txt" For Input As #1 Open "c:\Temp\kopie3.txt" For Output As #2 Dim tmp As String Do Line Input #1, tmp If EOF(1) And tmp = "" Then Close #2 Else Print #2, tmp End If Loop Until EOF(1) Close #1 MsgBox "Fertig" End Sub

Hallo Petra! Hab mir mal deine text-datei angeschaut und hab festgestellt das die letzte zeile von excel bereits als EOF (EndOfFile) annimmt. Demnach kann man einfach folgendes schreiben:


Sub test()
Open "c:\Temp\kopie.txt" For Input As #1
Open "c:\Temp\kopie3.txt" For Output As #2
Dim tmp As String
Dim tmp As String
Do
Line Input #1, tmp
Print #2, tmp
Loop Until EOF(1)
Close #2
Close #1
MsgBox "Fertig"
End Sub

Und wie gesagt, falls die alte datei ersetzt werden sollte kann man vor "End Sub

" noch:
kill "c:\Temp\kopie.txt"
filecopy "c:\Temp\kopie3.txt", c:\Temp\kopie.txt
kill "c:\Temp\kopie3.txt"
schreiben.
Aber so wie mir das scheint hängt sich SAP eher an dem sonderzeichen in der letzten Zeile auf und nicht einfach nur am Zeilenumbruch. Kann auch sein das es ein LF (LineFeed) ist das beim neuschreiben der text-datei einfach umgewandelt wird. Jedenfalls sollte das nach dem einfachen ablaufen und neuschreiben der datei korrekt hochzuladen sein.
Wenn nicht einfach noch mal fragen, dann schau ich mal wie man einfach grundsätzlich die letzte Zeile unterbindet.
Gruß Chris

Sub test() Open "c:\Temp\kopie.txt" For Input As #1 Open "c:\Temp\kopie3.txt" For Output As #2 Dim tmp As String Do Line Input #1, tmp Print #2, tmp Loop Until EOF(1) Close #2 Close #1 MsgBox "Fertig" End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread