Code: Alles auswählen
Procedure.s AppleScript(Script.s)
Protected retVal.s, strVal, numItems, i
Protected aScript = CocoaMessage(0, CocoaMessage(0, CocoaMessage(0, 0, "NSAppleScript alloc"), "initWithSource:$", @Script), "autorelease")
Protected eventDesc = CocoaMessage(0, aScript, "executeAndReturnError:", #nil)
If eventDesc
numItems = CocoaMessage(0, eventDesc, "numberOfItems")
If numItems
For i = 1 To numItems
strVal = CocoaMessage(0, CocoaMessage(0, eventDesc, "descriptorAtIndex:", i), "stringValue")
If strVal
retVal + PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8)
If i <> numItems : retVal + #LF$ : EndIf
EndIf
Next
Else
strVal = CocoaMessage(0, eventDesc, "stringValue")
If strVal : retVal = PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8) : EndIf
EndIf
EndIf
ProcedureReturn retVal
EndProcedure
Funktioniert wunderbar.
Wie bekomme ich jedoch das Ergebnis (Rückmeldung) aus dem AppleScript in eine Variable?
Danke im Voraus.
Ingo