OpenOffice.info

Hallo,

wenn Du Beispiele für StarBasic unter LibreOffich/Openoffice suchst, würde ich erstmal Danbenhoefer empfehlen. Zum Einfügen von Text beispielsweise:
[url]http://www.dannenhoefer.de/faqstarbasic/WiekannmanTexteinfgen.html#Zweig266[/url]

Du wirst wohl etwas weiter vorn anfangen müssen, aber Einarbeiten in das frühere StarOffice-Umfeld dürfte Zeitverschwendung sein. Der BASIC-Teil bleibt, aber der Zugriff auf Dokumente geht heute anders.

Mfg, Jörn

[quote=mikeleb post_id=277186 time=1535040556 user_id=43151]
Hallo,
wenn der Quelltext so in dem Handbuch steht (das ich nicht kenne) ...
[/quote]
Ja, das habe ich so kopiert. Ich hatte vor langer Zeit mir mehrere Quellen runtergeladen. Zum Einstieg erschien diese mir besser geeignet, weil sie deutsch und relativ einfach war. Die anderen sind riesig und man sucht sich tot, wenn man einfache Dinge probieren will.
[quote]Im Prinzip alles an diesem Code läuft (meiner flüchtigen Einschätzung nach) unter AOO/LO nicht.
[/quote]
Sehr schade!

[quote=mikeleb post_id=277185 time=1535040167 user_id=43151]
Hallo,
auf welche dieser Zeil[b]en[/b] bezieht sich die Fehlermeldung?
[/quote]
Wie gesagt, [b]auf die Zeile mit swriter4[/b].
Ich hatte im Browserfenster hier im Forum die Zeile zunächst rot gefärbt, aber nach dem ich die Option [i]code [/i]gewählt hatte, färbt sich nichts mehr rot. Also habe ich rot wieder raus genommen, um niemand zu verwirren.

Hallo,
wenn der Quelltext so in dem Handbuch steht (das ich nicht kenne), dann solltest du es gaaanz weit weglegen.
Im Prinzip alles an diesem Code läuft (meiner flüchtigen Einschätzung nach) unter AOO/LO nicht.
Das gilt natürlich nicht, wenn du mit Staroffice 4.0 arbeitest.

Hallo,
auf welche dieser Zeil[b]en[/b] bezieht sich die Fehlermeldung?

Sub ExampleWorkWithAFile
  Dim iNumber As Integer
  Dim sZeile As String
  Dim aFile As String
  aFile = "c:\daten.txt"
  iNumber = Freefile
  Open aFile For Output As #iNumber
  Print #iNumber, "Das ist eine Zeile Text"
  Print #iNumber, "Das ist eine weitere Zeile Text"
  Close #iNumber
  Documents.Add("swriter4")
  wait 1
  iNumber = Freefile
  Open aFile For Input As #iNumber
  While not eof(#iNumber)
    Line Input #iNumber, sZeile
      If sZeile <>"" then
        Selection.Text.InsertPara()
        Selection.Text.Insert(Trim$(sZeile))
      end if
  wend
  Close #iNumber
End Sub

Hallo,
Ich versuche mich in die StarBasic-Programmierung mit einem Beispiel aus dem StarBasic-Handbuch für StarOfiice 4.0 einzuarbeiten. Aber gleich hapert es. Erst einmal ist ein offensichtlicher Schreibfehler drin (switer4 anstelle swriter4), aber dennoch kommt obige Fehlermeldung, die sich auf diese Programmzeile bezieht:

[code]Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sZeile As String
Dim aFile As String
aFile = "c:\daten.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Das ist eine Zeile Text"
Print #iNumber, "Das ist eine weitere Zeile Text"
Close #iNumber
Documents.Add("swriter4")
wait 1
iNumber = Freefile
Open aFile For Input As #iNumber
While not eof(#iNumber)
Line Input #iNumber, sZeile
If sZeile <>"" then
Selection.Text.InsertPara()
Selection.Text.Insert(Trim$(sZeile))
end if
wend
Close #iNumber
End Sub[/code]

Wer kann mir auf den Sprung helfen?