G'day everyone
Here's something I just cooked up as part of a test frame. It's a way of evaluating VBScript code from newLISP.
(define (vbscript text)
(begin
(set 'aFile (open "c:/temp/temp.vbs" "write"))
(write-line aFile (string text))
(close aFile)
(exec "cmd.exe /C c:\windows\system32\cscript.exe c:\temp\temp.vbs >c:\temp\temp.out" )
(set 'aFile (open "c:/temp/temp.out" "read"))
(set 'result (string (read-line aFile)))
(close aFile)
result
)
)
And here's an example of its use:
(set 'foo "dim a
a = "hello world"
msgbox a
")
(vbscript foo)
Kind regards,
Bruce.
Good to see you're exploring and trying new things. You might also be interested in
Quote from: "m35"
Oh wow, that looks so cool. I've gotta try that out real soon.
Thanks.
Bruce.