Writerdocument als Txt - Datei speichern

[ROM]

Hallo,

ich möchte gerne meinen Writerinhalt als Textdatei speichern. Leider ist der Inhalt der Textdatei nicht lesbar. Wie muss das Property dafür gesetzt werden?

Code: Alles auswählen

sub StoreAsTextDatei

   Dim sEingabe, sNachname, sURL, sPDF as String
   Dim oFeld, oDoc, oTxtFelder as Object

   oDoc = thiscomponent
   
   sUrl = "file:///c:/Scripts/Datei.txt"
   
   Dim FileProperties(1) as new com.sun.star.beans.PropertyValue
   FileProperties(0).Name = "FilterName"
   FileProperties(0).Value = "Text - txt - odt"
   FileProperties(0).Name = "OverWrite"
   FileProperties(0).Value = true
      
   oDoc.storeToURL(sURl, FileProperties())
end sub

Danke für eine kurze Info

[ykcim]

Hallo,

der gewählte Filter ist verkehrt. Richtig ist einfach "Text".
Außerdem überschreibst Du den Filter wieder.
Versuche es mal mit

Code: Alles auswählen

   Dim FileProperties(1) as new com.sun.star.beans.PropertyValue
   FileProperties(0).Name = "FilterName"
   FileProperties(0).Value = "Text"
   FileProperties(1).Name = "OverWrite"
   FileProperties(1).Value = true

mfg
Michael

[clag]

Hallo Leutz,

wie man ein Writer Dokument als Text Datei abspeichern kann wurde bereits hier verständlich besprochen.

Aber, nun wüsste ich auch noch gern wie man die Optionen für txt-codiert in Unicode übergibt ?

So wie hier ausgewählt ...

unicode_txt.png (3.11 KiB) 1552 mal betrachtet

Wer verrät mir das, Bitte !

[Karolus]

Hallo
Mein OOo schlägt mir an dieser Stelle Unicode(UTF-8) vor, was auch der Zeichencodierung meines BS entspricht.

Gruß Karo

[clag]

Hallo Karo,

mit deinem Vorschlag komme ich nicht zurecht und mit dem was der Makrorecorder mir aufgezeichnet hat aber auch nicht
was mach ich da nur wieder falsch ?

unicode-export.png (8.52 KiB) 1540 mal betrachtet

mit dem auskommentieren 2 Zeilen hat es anstandslos eine Standard .txt exportiert

deine Vorschlag hatte ich so verstanden

Code: Alles auswählen

myFileProptxt(0).Name = "FilterName"
myFileProptxt(0).Value = "Unicode(UTF-8)"

[Karolus]

Hallo
Was soll der Screenshot ? - bist du damit überfordert die zwei kurzen Sätze der Fehlermeldung abzutippen..

Wenn du 2 Name/Value Paare übergibst solltest du vorher auch entsprechend dimensionieren:
Dim MyFileProptxt(1)...

Gruß Karo

[clag]

Hallo Karo,

naja mit einem sreenshot vehindert man zumindest Schreibfehler........
du hattest recht, denn kaum macht man es richtigt (1) schon funktioniert es auch