wie kann man Text aus Dialog in Zellen einfügen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: wie kann man Text aus Dialog in Zellen einfügen

von mr_weeds » Mo, 02.04.2007 21:53

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 :(

von mr_weeds » Di, 27.03.2007 22:55

super, geht
danke :D

von Hömmelmann » Di, 27.03.2007 13:48

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

von mr_weeds » Di, 27.03.2007 12:48

aber es funktioniert bei mir nicht :(
die Zellen bleiben leer

von mr_weeds » Di, 27.03.2007 11:51

jetzt bin ich überwältigt!
Danke
Danke
Danke

Text auf mehrere Zellen aufteilen

von Hömmelmann » Di, 27.03.2007 11:13

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

von mr_weeds » Di, 27.03.2007 10:51

funktioniert, danke für die schnelle kompetente Hilfe

von Toxitom » Mo, 26.03.2007 18:10

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

von mr_weeds » Mo, 26.03.2007 12:47

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()

von Toxitom » Mo, 26.03.2007 12:15

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

von mr_weeds » Mo, 26.03.2007 11:26

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

Danke

von Toxitom » Mo, 26.03.2007 08:34

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

wie kann man Text aus Dialog in Zellen einfügen

von mr_weeds » So, 25.03.2007 18:42

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

Nach oben