Notesstreamclass & End-of-line character(s)

[alex0178]

Ich möchte per LS eine DTAUS-Datei für ein Finanzbuchhaltungsprogramm erzeugen.
Dies funktioniert auch einwandfrei. Allerdings enthält der täglich neu erstellte Stream
am Ende immer noch ein CRLF. Weiß jemand, wie ich dieses Zeichen aus dem Stream löschen kann?

Anbei der Auszug aus dem Script.

   Set stream = s.CreateStream
   pathname = pathname & "\dtaus_" & Today & ".txt"
   If Not stream.Open(pathname, "ASCII") Then
      Messagebox pathname,, "Open failed"
      Exit Sub
   End If
   
   text =       "Bei manueller Ausführung wird lokal gespeichert: " + pathname
   Messagebox text   
   
   
   If stream.Bytes <> 0 Then
      Messagebox pathname,, "File already exists and has content"
      Exit Sub
   End If
   Call stream.WriteText(doc2.GetItemValue("ASatz")(0), EOL_NONE)
   Call stream.WriteText(doc2.GetItemValue("CSatz")(0), EOL_NONE)
   Call stream.WriteText(doc2.GetItemValue("ESatz")(0), EOL_NONE)
      
   Call stream.Close

Danke vorab.
   
alex0178