This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | Next revision Both sides next revision | ||
AppleScript [2017/06/04 19:06] JMichaelTX [Get Existing Variable] |
AppleScript [2017/06/04 22:08] JMichaelTX [Create & Set Variable] Replace script with Ver 6+ compatible |
||
---|---|---|---|
Line 77: | Line 77: | ||
* They present an alternate method. | * They present an alternate method. | ||
- | ==== Create & Set Variable ==== | + | ==== Set Variable ==== |
+ | (will be created if necessary) | ||
```applescript | ```applescript | ||
- | --- Requires KM 7.0.2+ --- | + | my setKMVar("MY_KM_Variable", "some new value") |
- | --- Set AppleScript Variables to KM Variable Name and Value --- | + | on setKMVar(pKMVarNameStr, pValueStr) |
- | set myKMVar to "My KM Var Name" | + | |
- | set myASVar to "My data" | + | --- Compatible with Keyboard Maestro 6+ --- |
+ | -- • Creates the KM Variable it does not exist (just like KM 7 setvariable) | ||
+ | -- • Returns true if new Variable was created | ||
+ | |||
+ | set varCreatedBool to false | ||
+ | |||
+ | tell application "Keyboard Maestro Engine" | ||
+ | try | ||
+ | set value of variable pKMVarNameStr to pValueStr | ||
+ | |||
+ | on error errMsg number errNum | ||
+ | if (errNum = -10006) then --- KM Variable Does NOT Exist --- | ||
+ | |||
+ | --- Create & Set KM Variable --- | ||
+ | make new variable with properties {name:pKMVarNameStr, value:pValueStr} | ||
+ | set varCreatedBool to true | ||
+ | |||
+ | else | ||
+ | error ("Error " & errNum & ": " & errMsg) | ||
+ | end if | ||
+ | -- END on error | ||
+ | |||
+ | end try | ||
+ | end tell | ||
+ | |||
+ | return varCreatedBool | ||
+ | |||
+ | end setKMVar | ||
+ | ``` | ||
- | |||
- | tell application "Keyboard Maestro Engine" | ||
- | if variable myKMVar exists then | ||
- | --- SET KM Variable --- | ||
- | set value of variable myKMVar to myASVar | ||
- | else | ||
- | --- Create & Set KM Variable --- | ||
- | make new variable with properties {name:myKMVar, value:myASVar} | ||
- | end if | ||
- | end tell | ||
- | ``` | ||
==== Get Existing Variable ==== | ==== Get Existing Variable ==== |