Hallo Uwe,
also ich weiß über Mac garnichts, vielleicht ist aber untenstehende Antwort
trotzdem willkommen, weil das zum Teil unter dem Mac wie in Windows gehen
dürfte (im Fall SystemShellExecute) bzw. in Analogie zu übertragen wäre (die
anderen Hinweise)
Uwe Altmann schrieb:
> weiß jemand, ob es eine Möglichkeit gibt, aus Starbasic heraus ein
> Apple-Script-befehl abzusetzen? bzw. wer so was wissen könnte?
Ich sehe folgende potentielle Möglichkeiten:
Nutze SystemShellExecute um eine beliebige Datei mit der Defaultapplikation zu
öffnen und nimm als zu öffnende Datei ein Script das Deinen Befehl als einzigen
Eintrag enthält (unter Windows wäre das also ein Batch, oder ein WSH-Script,
ich weiß´nicht wie das unter Mac hieße:
Sub beliebige_Datei_starten
'Dateiendung muß auf dem System registriert sein
Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")
starten.execute(ConvertToUrl("U:\Template\help.bat"), "", 0)
End Sub
Du kannst auch das Script zur Laufzeit erstellen und im Abschluss wieder
löschen, zumindest unter Windows habe ich sowas schon gemacht.
Falls DEin 'Mac-Scripting' hingegen näher an WSH wäre, stelle ich hier noch ein
Beispiel rein wie man ein WSH-Script unter Windows direkt mittels StarBasic
übergibt:
Sub main( )
oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
WSH= oleService.createInstance("MSScriptControl.ScriptControl")
WSH.Language = "VBScript"
vbs=vbs+"set fs = CreateObject(""Scripting.FileSystemObject"")"+Chr(10)
vbs=vbs+"set Laufwerke = fs.Drives"+Chr(10)
vbs=vbs+"for Each Laufwerk in Laufwerke"+Chr(10)
vbs=vbs+"alle_lw = alle_lw & Laufwerk.DriveLetter & ""#"""+Chr(10)
vbs=vbs+"Next"
WSH.ExecuteStatement(vbs)
msgbox WSH.CodeObject.alle_lw
End Sub
Ich (im Forum nick "Stephan") hatte das mal im Forum einem Nutzer
vorgeschlagen, siehe:
http://de.openoffice.info/viewtopic.php?p=30475&sid=88752946377dba929eb5a20cc914a414#30475%&;
> Hintergrund: Ich möchte im Finder einen Ordner in einem neuen Fenster
> öffnen lassen.
Naja, dann reicht vielleicht mein erster Vorschlag, denn unter Windows öffnet:
SubOrdner_oeffnen()
'Dateiendung muß auf dem System registriert sein
Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")
starten.execute(ConvertToUrl("D:\test"), "", 0)
End Sub
problmlos den Ordner "D:\test" in der Defaultapplikation (Explorer)
> Möglicherweise würde der "shell"-Befehl ja sowas ermöglichen, aber ich
> hätte jetzt kleine blassen Schimmer, was da für Aufrufparameter
das sollte auch gehen, unter Windows könnte ich Dir Parameter für den Explorer
raussuchen, nutzt dir aber für Mac natürlich nichts
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscr...@de.openoffice.org
For additional commands, e-mail: dev-h...@de.openoffice.org
