(gelöst) Text aus Textfeld in ein Makro übernehmen?

[Snoopy]

Hi Leutz,

mein Anliegen ist eine Datei von "OpenOffice Base" mit der passenden Anwendung zu öffnen, anhand von Beispielen hier im Forum ist es mir gelungen ein Makro zu schreiben mit dem eine Datei die im Makro vorgegeben ist zu öffnen .

Was noch fehlt ist die Übernahme Pfad&Datei aus einem Textfeld, der Befehl "sFile = oDialog.getControl("txtDatei").Text" will irgendwie nicht funktionieren .

So sieht das Makro aus:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub OpenFile

	REM --- Pfad & Datei in die String-Variable sFile übergeben
	sFile = "/home/hermann/public_html/Datenbanken/X Dateien öffnen X/Kabelbelegung.pdf"

REM sFile = oDialog.getControl("txtDatei").Text

	REM --- Pfad & Datei als URL (immer diese Leerzeichen)
	sURL = ConvertToURL(sFile)

	REM --- Datei mit dem Konqueror öffnen
	Shell "konqueror " & sURL

End Sub

Betriebssystem: Linux, Suse 10.irgendwas

Hat Jemand eine Idee?

Gruß, Hermann

[komma4]

Willkommen im Forum, Hermann.

der Befehl "sFile = oDialog.getControl("txtDatei").Text" will irgendwie nicht funktionieren .

Dann solltest Du uns die relevanten Codestellen zeigen ....

Wie ist oDialog besetzt? Dein Kontrollelement heisst wirklich "txtDatei" (case-sensitive)

[Snoopy]

...Wie ist oDialog besetzt? Dein Kontrollelement heisst wirklich "txtDatei" (case-sensitive)

Hi Winfried,

den Code-Schnipsel habe ich von hier genommen: viewtopic.php?p=92071#p92071

...2. aus einen Textfeld in deinem Dialog/Formular?...

...zu 2.

Code: Alles auswählen

 Inhalt = oDialog.getControl("TextField1").Text   'Falls die Werte z.B. in einer Textfeld stehen.

...

nun war ich im Glauben das "TextField1" gegen den Namen (bei Eigenschaften: Textfeld) von meinem Textfeld ausgetauscht wird und gut ist, habe ich da etwas falsch verstanden?

[Snoopy]

...Wie ist oDialog besetzt?...

Hi Winfried,

anhand Deiner Frage konnte ich weitersuchen und wurde fündig , DANKE für den Schubser in die richtige Richtung.

In diesem Fred wurde es gelöst: viewtopic.php?p=84883&sid=f907397269d39 ... ff8#p84883

Das Ergebnis sieht nun so aus:

Code: Alles auswählen

Sub OpenFile

dim oDoc as Object
dim oForm as Object
dim oFeld as Object
dim sFile as string
dim sURL as string

	oDoc = ThisComponent
	oForm = oDoc.drawpage.forms(0)
	oFeld = oForm.getByName( "txtDatei" )

	REM --- Pfad & Datei in die String-Variable sFile übergeben
	sFile = oFeld.Text

	REM --- Pfad & Datei als URL (immer diese Leerzeichen)
	sURL = ConvertToURL(sFile)

	REM --- Datei mit dem Konqueror öffnen
	Shell "konqueror " & sURL

End Sub