Forums Neueste Beiträge
 

letzte Zeile löschen

13/08/2008 - 13:36 von Johann Dorner | Report spam
Hallo NG-User
bei meiner kleinen Application in vb6 erstelle ich eine txt-datei aus einer
anderen txt-datei.
jedoch erhalte ich immer eine letzte "leere Zeile" ;das soll aber nicht
sein.


Open dateiname For Input As #1
Dim z As String

do until eof(1)
Line Input #1, z
z=z+z & chr$(13)
loop
close #1
Open dateiname For Input As #2
print #2, z
close #2


LG
Johann Dorner
 

Lesen sie die antworten

#1 Christian Zimmermann
13/08/2008 - 13:45 | Warnen spam
Hallo Johann,

Johann Dorner schrieb:

bei meiner kleinen Application in vb6 erstelle ich eine txt-datei aus einer
anderen txt-datei.
jedoch erhalte ich immer eine letzte "leere Zeile" ;das soll aber nicht
sein.


Open dateiname For Input As #1
Dim z As String

do until eof(1)
Line Input #1, z
z=z+z & chr$(13)
loop
close #1
Open dateiname For Input As #2
print #2, z
close #2



Irgendwie komme ich nicht wirklich dahinter, was du mit diesem Code
eigentlich machen willst. Vielleicht beschreibst du mal, was du vorhast.
By the way: wenn du in eine Datei schreiben willst, dann öffnest du sie
mit Output, Append, Binary oder Random. Input ist zum Lesen dar und ich
kann nicht glauben, dass diese Öffnungsmethode zum Schreiben benutzt
werden kann.

Gruß

Christian

Ähnliche fragen