Inhalt Textdatei über Macro in Writer einlesen
Verfasst: Di, 19.06.2012 11:18
Tach zusammen. VORSICHT, Flachzangenfrage: 
ich will per Basic-Macro den Inhalt einer Textdatei (.odt) in einen Writertext einlesen. Dieser soll z.B. an einer Textmarke eingefügt werden. Dabei möchte ich die Formatierungen möglichst erhalten. Als Basic-Flaschzange scheitere ich Einfügen des Inhaltes. Datei öffen und Zeilenweise einlesen schein klar. Dazu habe ich folgendes gefunden:
Trotz fleißigem Lesen von "Star-Basic-FAQ", "Basic Programmieren", "OOME_3_0_deutsch" und anderen hier im Forum erwähnten Texten habe ich nichts dazu gefunden, was passt. Vielleicht verstehe ich es ja auch einfach nicht. Also meine Frage:
Wie füge ich den eingelesenen Text in das Writerdocument ein, mit allen Formatierungen?
Zum Testen habe ich eine MessageBox verwendet, um den eingelesenen Text mal anzuzeigen.
Das hat aber nur mit einer einfachen Textdatei (*.txt) funktioniert, ohne jede Formatierung. Bei einer *.odt kamen nur Steuerzeichen. Das half also nicht weiter. Muss ich das Pferd von einer ganz anderen Seite her aufzäumen?
ich will per Basic-Macro den Inhalt einer Textdatei (.odt) in einen Writertext einlesen. Dieser soll z.B. an einer Textmarke eingefügt werden. Dabei möchte ich die Formatierungen möglichst erhalten. Als Basic-Flaschzange scheitere ich Einfügen des Inhaltes. Datei öffen und Zeilenweise einlesen schein klar. Dazu habe ich folgendes gefunden:
Code: Alles auswählen
FileNo = Freefile 'freien Datenkanal öffnen
Open Filename For Input As FileNo
Do While not eof(FileNo) ' Prüfen, ob Dateiende erreicht ist
Line Input #FileNo, CurrentLine ' Zeile lesenWie füge ich den eingelesenen Text in das Writerdocument ein, mit allen Formatierungen?
Zum Testen habe ich eine MessageBox verwendet, um den eingelesenen Text mal anzuzeigen.
Code: Alles auswählen
If CurrentLine <>"" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop