Calc per Script auslesen

[F3K Total]

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

[F3K Total]

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

[F3K Total]

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

[clag]

Hallo Piet,

Wie kann ich so etwas anstellen ??

z.B. so

Code: Alles auswählen

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

[Karolus]

Hallo

Code: Alles auswählen

mytext & space(80-len(mytext)

Karolus

[TrueColor]

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

[Karolus]

Hallo

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

Karolus

[TrueColor]

Code: Alles auswählen

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

Ah, also genau so einfach.
Danke, Karolus

[F3K Total]

Hi,
ersetzte

Code: Alles auswählen

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

durch

Code: Alles auswählen

osheet = thiscomponent.CurrentController.ActiveSheet

Gruß R