✔ vb6 - Textdatei speichern ohne den letzten Zeilenumbruch.

[Morpheling]

Hallo alle mit einander.

Hab ein kleines Problem und zwar möchte ich den Text aus einer multiline TextBox in eine Textdatei speichert, alles schön und einfach aber ich will dass mein Programm am ende der Datei keinen Zeilenumbruch mitreinschreibt.
Das heist, ich will das genaue Abbild der TextBox speichern

Hat da jemand eine Lösung ?
Google hat mir nichts herausgespuckt was mir weiterhelfen könnte und in diesem Forum h abe ich auch nichts gefunden.


Danke im Vorraus
---Da- Morpheling

 

[wincnc]

Hallo
Das kannst durch ein Semikolon am Ende von Print verhindern, vorausgesetzt in der TextBox ist keine leere Zeile am Ende vorhanden.

Beispiel:

Private Sub Command1_Click()
Dim FNr As Integer
  FNr = FreeFile
  Open "C:\Dein.txt" For Output As #FNr
    Print #FNr, Text1.Text; ' Hier
  Close #FNr
End Sub

 

[Morpheling]

Danke dir.

War genau dass, was ich gesucht habe ^^


MfG
---Da- Morpheling

 

[DrSoong]

Alternativ kannst du das ganze auch als Binary schreiben:

Private Sub Command1_Click()
Dim FNr As Integer
  FNr = FreeFile
  Open "C:\Dein.txt" For Binary As #FNr
    Put #FNr, , Text1.Text
  Close #FNr
End Sub

Der Doc!