wie kann man Text aus Dialog in Zellen einfügen

[mr_weeds]

Anfänger sucht Hilfe!

1.)ich habe keine Infos gefunden, wie man den eingegebenen Text eines Textfeldes eines Dialoges in eine Zelle eintragen kann,

2.)dabei sollen aber nur 20 Zeichen begrenzt eingetragen werden, damit ist die Zelle voll und es soll die Zelle nächste dran sein, sozusagen Splitten des Textes (wenn möglich Trennung nach Worten und nicht nach Zeichen).
Ist so etwas überhaupt möglich?

vielen Dank im Voraus für Eure Bemühungen

[Toxitom]

Hey mr_weeds,

alles möglich, nur, du musst es halt programmieren

Das Prinzip ist einfach:

Code: Alles auswählen

REM Zellobjekt A! des ersten Tabellenblattes
oZelle = thisComponent.sheets(0).getCellRangeByName("A1")
REM Inhalt des Textfeldes "text1" des Dialoges "oDlg"
sText = oDlg.getControl("text1").text
REM Text in Zelle schreiben:
oZelle.string = sText

Willst du den Text vorher analysieren und kürzen, so kannst du aas ebenfalls alles machen - die Varaible "sText" hat je nun den Inhalt

Gruss
Thomas

[mr_weeds]

ich glaube ich muss jetzt meine Unfähigkeit zur Schau stellen. Es geht nicht, welche Variablen muss ich noch benennen?

Danke

[Toxitom]

Hey mr_weeds,

ich hab ja nur das Prinzip dargestellt - das musst du natürlich für deine Verhältnisse anpassen.

Poste einfach mal den Code, den du schon hast - vom Dialog bis hin zu den verbundenen Schaltflächen - dann sehn wir weiter.

Gruss
Thomas

[mr_weeds]

der Dialog besitzt nur das Textfenster und eine Schaltfläche, diese soll den Vorgang auslösen. Zum Öffnen des Dialoges verwende ich folgendes:

Code: Alles auswählen

Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
MyDlg.execute()

[Toxitom]

Gut, dann musst du als erstes "MyDlg" vor der ersten sub oder function definieren - als globale Varaible. In meinen Codezeilen ersetzt du dann "oDlg" mit "MyDlg". Es sollte dannn so ähnlich aussehen:

Code: Alles auswählen

Dim MyDlg as Object

sub DialogAufrufen
  Dialoglibraries.Loadlibrary("Standard")
  MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
  MyDlg.execute() 
end sub

sub WertEintragen
  MyDlg.endExecute()
  REM Zellobjekt A! des ersten Tabellenblattes
  oZelle = thisComponent.sheets(0).getCellRangeByName("A1")
  REM Inhalt des Textfeldes "text1" des Dialoges "MyDlg"
  sText = MyDlg.getControl("text1").text
  REM Text in Zelle schreiben:
  oZelle.string = sText
end sub

Wenn jetzt noch das Textfeld deines Dialoges den Namen "text1" trägt (Eigenschaften) und du das Makro "WertEintragen" dem Ereignis "Auslösen" der Schaltfläche zuordnest, dann hast du, was du willst. Der Inhalt wird in Zelle A1 des ersten Tabellenblattes geschrieben.

Gruss
Thomas

[mr_weeds]

funktioniert, danke für die schnelle kompetente Hilfe

[Hömmelmann]

Hallo mr_weeds

In deiner Frage schreibst du:

<<2.)dabei sollen aber nur 20 Zeichen begrenzt eingetragen werden, damit ist die Zelle voll und es soll die Zelle nächste dran sein, sozusagen Splitten des Textes (wenn möglich Trennung nach Worten und nicht nach Zeichen).>>

Ich habe den Code <WertEintragen> dahingehend geändert, dass der Inhalt der Variablen sText auf die Zellen A1, A2, A3,.... aufgeteilt wird:

sub WertEintragen
dim teilstring as string
dim zeile as integer

MyDlg.endExecute()

REM Inhalt des Textfeldes "text1" des Dialoges "MyDlg"
sText = MyDlg.getControl("text1").text

doc=thiscomponent
MySheet=doc.sheets(0)
sText=MySheet.getcellbyposition(0,0).string
zeile = 0
do until len(sText)=0
teilstring=left(sText,20)
if instr(teilstring," ")>0 then
do until right(teilstring,1)=" "
teilstring = left(teilstring,len(teilstring)-1)
loop
end if
MySheet.getcellbyposition(2,zeile).string = teilstring
zeile=zeile + 1
sText=right(sText,len(sText)-len(teilstring))
loop
end sub

Gruß, Friedhelm

[mr_weeds]

jetzt bin ich überwältigt!
Danke
Danke
Danke

[mr_weeds]

aber es funktioniert bei mir nicht
die Zellen bleiben leer

[Hömmelmann]

Hallo nochmal.

logisch bleiben deine Zellen leer. Mein Fehler. Ich habe (da ich natürlich den Dialog nicht habe, statt dessen den Inhalt der Zelle A1 genommen - also den Text darin erfasst)
Leider habe ich die Zuweisung für die Variable sText nicht herausgenommen. Wenn du also die Zeile

Code: Alles auswählen

 sText=MySheet.getcellbyposition(0,0).string

aus dem Makro löscht, müsste es klappen.


Gruß, Friedhelm

[mr_weeds]

super, geht
danke

[mr_weeds]

Hallo
ich brauche leider noch mal Hilfe. Das letzte Wort steht immer in einer extra Zeile, egal ob die vorhergehende 20 Zeichen erreicht hat.
ich hab es leider nicht hinbekommen die Formel zu ändern