OpenOffice.info

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

[quote="komma4"]...Wie ist [color=#008000]oDialog [/color]besetzt?...[/quote]

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: http://de.openoffice.info/viewtopic.php?p=84883&sid=f907397269d3964efc4f46ec97556ff8#p84883

Das Ergebnis sieht nun so aus:

[code]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[/code]

[quote="komma4"]...Wie ist [color=#008000]oDialog [/color]besetzt? Dein Kontrollelement heisst wirklich "[color=#008000]txtDatei[/color]" ([i]case-sensitive[/i])[/quote]

Hi Winfried,

den Code-Schnipsel habe ich von hier genommen: http://de.openoffice.info/viewtopic.php?p=92071#p92071

[quote="Mobbi"]...2. aus einen Textfeld in deinem Dialog/Formular?...

...zu 2.
[code]
Inhalt = oDialog.getControl("TextField1").Text 'Falls die Werte z.B. in einer Textfeld stehen.[/code]...[/quote]

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?

Willkommen im Forum, Hermann.

[quote="Snoopy"] der Befehl "sFile = oDialog.getControl("txtDatei").Text" will irgendwie nicht funktionieren :( .[/quote]
Dann solltest Du uns die relevanten Codestellen zeigen ....

Wie ist [color=#008000]oDialog [/color]besetzt? Dein Kontrollelement heisst wirklich "[color=#008000]txtDatei[/color]" ([i]case-sensitive[/i])

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

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 :D .

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]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[/code]

Betriebssystem: Linux, Suse 10.irgendwas

Hat Jemand eine Idee?

Gruß, Hermann