OpenOffice.info

Verfasst: **Sa, 15.02.2014 17:32**

Hi,
das hängt von Inhalt, den du einlesen möchtest, ab.
Zum Beispiel ist es ein Unterschied, ob du die Formel, die in einer Zelle steht, oder das Rechenergebnis dieser Formel haben möchtest.
Es können Texte oder Zahlen in einer Zelle stehen.
Du müsstest schon genauer beschreiben, was du überhaupt mit den eingelesenen Daten anstellen möchtest.
Gruß R
PS: Die Frage gehört eigentlich ins Unterforum OOo Basic und Java

Verfasst: **Sa, 15.02.2014 20:17**

Also, die Infos sind immer noch dünn, was du mit den Texten anstellen willst, fehlt.
Du bekommst zum Beispiel mit

Code: Alles auswählen

Sub get_text_array
   osheet = thiscomponent.sheets.getbyname("Tabelle1")
   ocursor = osheet.createcursor
   ocursor.gotoendofusedarea(false)
   aRangeaddress = ocursor.rangeaddress
   oRange = osheet.getcellrangebyposition(0,0,aRangeaddress.endcolumn,aRangeaddress.endrow)
   adataarray = oRange.dataArray
   for i = 0 to ubound(adataarray)
       arow  = adataarray(i)
       for k = 0 to ubound(adataarray(0))
         stext = arow(k)
         msgbox stext
       next k
   next i
End Sub

alle Texte im benutzten Zellbereich nacheinander zeilenweise angezeigt.

Code: Alles auswählen

adataarray

ist dabei dein Textarray

Code: Alles auswählen

arow = adataarray(0)

ist die erste Zeile

Code: Alles auswählen

arow(0)

ist der erste Wert dieser Zeile, also der Wert in Spalte A

Code: Alles auswählen

arow(1)

ist der zweite Wert dieser Zeile, also der Wert in Spalte B
HTH R

Verfasst: **So, 16.02.2014 11:28**

Code: Alles auswählen

       for i = 0 to ubound(adataarray)
           arow  = adataarray(i)
          if Instr(1,arow(0),"#") > 0 then
             goto 100
          end if

          for x = 0 to ubound(adataarray(0))
             stext = arow(x)
             arow(x) = Trim(stext)
          next x
       100:
       next i

Verfasst: **So, 16.02.2014 17:10**

Hallo Piet,

piet hat geschrieben:Wie kann ich so etwas anstellen ??

z.B. so

Code: Alles auswählen

while len(myText)<80
myText = myText & " "
wend

Verfasst: **So, 16.02.2014 23:24**

Hallo

Code: Alles auswählen

mytext & space(80-len(mytext)

Karolus

Verfasst: **Mo, 17.02.2014 13:26**

Karolus hat geschrieben:
Code: Alles auswählen
mytext & space(80-len(mytext)

Oh, das ist interessant... dürfte sicher etwas performanter sein als die Schleife von Clag. Geht das auch mit irgendwelchen Füllzeichen genauso elegant?

Grüße
TrueColor

Verfasst: **Mo, 17.02.2014 14:50**

Hallo

Suche in der Hilfe unter Laufzeitfunktionen→→Zeichenfolgen→→Inhalte vervielfachen

Karolus

Verfasst: **Di, 18.02.2014 09:19**

Code: Alles auswählen

MsgBox(mytext & string(80-len(mytext),"="))

Ah, also genau so einfach.
Danke, Karolus

Verfasst: **Sa, 22.02.2014 16:26**

Hi,
ersetzte

Code: Alles auswählen

osheet = thiscomponent.sheets.getbyname("Tabelle1")

durch

Code: Alles auswählen

osheet = thiscomponent.CurrentController.ActiveSheet

Gruß R

OpenOffice.info

Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen

Re: Calc per Script auslesen