---

Hallo zusammen,

ich habe mir aus DS Code-Beispielen folgende Sequenz zum Schreiben eines Files zusammenkopiert. Diese funktioniert auch. Leider bringe ich aber keine Newline bzw CR hinter meine Zeile. Ich habe beide Versionen EOL und CRLF ausprobiert.
Besten Dank im Voraus für eure Hinweise.

Dim EOL As String
Dim CRLF As String
Set aFileSyst = Catia.FileSystem
FileName = "/tmp/Copy_aus_VPM"
Set FileOut = aFileSyst.CreateFile(FileName,true)
Set FileOutStream = FileOut.OpenAsTextStream("ForWriting")
FileOutStream.Write sKPL & CRLF
FileOutStream.close

------------------
Gruss
Stefan Inderbitzin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Stefan,

ich hab dein Beispiel mal erweitert:

Code:

---

Dim EOL As String
Dim CRLF As String

EOL = Chr(10)
CRLF = Chr(13) & Chr(10)

Set aFileSyst = Catia.FileSystem
FileName = "/tmp/Copy_aus_VPM"
Set FileOut = aFileSyst.CreateFile(FileName,true)
Set FileOutStream = FileOut.OpenAsTextStream("ForWriting")
FileOutStream.Write sKPL & CRLF
FileOutStream.close

---

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Proofin,

genau das was ich gesucht habe. Funktioniert bestens !

Herzlichen Dank.

------------------
Gruss
Stefan Inderbitzin

[Diese Nachricht wurde von Stefan_I am 16. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP