Peter,
Here's a method that creates a script.
You simply:
a) Write your 4D method that you want to run in a script
b) Select it all and copy it.
c) Run the ScriptCreator method.
// ScriptCreator
//Create an executable script
// The script contents must first be copied to the pasteboard
*C_TEXT*($script)
$Script:=*Get text from pasteboard*
*Case of*
*:* ($Script="")
*ALERT* ("Please copy the script to the Pastebaord")
*Else*
$ok:=* CONFIRM* ("Script has been copied to the pasteboard?")
*If* ($ok=1)
*ARRAY TEXT*($atPathname;0)
$doc:=*Select document*("";"TEXT";"Enter the script name";File name entry;
$atPathname)
*If* (ok=1)
$script:="<!--#4DCODE"+*Char*(13)+$script+*Char*(13)+"-->"
// You could add encryption here
$newdoc:=*Create document*($atPathname{1})
*SEND PACKET*($newdoc;$script)
*CLOSE DOCUMENT*($newdoc)
$script:=""
*End if*
*End if*
*End case*
On Sat, 23 Feb 2019 at 08:33, Peter Adam via 4D_Tech <4d_tech@lists.4d.com>
wrote:
> Fir many years I have been running scripts for 4D write documents using
> Footrunner, then nifty plugin from Footprints.
>
> Now with v16 I no longer have this tool available.
>
> There is a comment on the Footprints web site about looking for a
> capability in v16 that replaces Footrunner.
>
> I am going blind, so I must =have missed the way to do this.
>
> Can anyone point me in the right direction?
>
>
>
>
> Cheers
>
> Peter Adam
> Adam, Zievert & Associates Pty Ltd
> Melbourne Australia
> Skype Phone: +61 3 9016 379
> p: +61 3 9836 3539
> f: +61 3 9836 9730
> m: 0419 552 462
> e: peter.a...@me.com <mailto:peter.a...@me.com>
> w: www.adamzievert.com.au <http://www.adamzievert.com.au/>
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> Archive: http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
> **********************************************************************
--
*************************************************
CatBase - Top Dog in Data Publishing
tel: +44 (0) 207 118 7889
w: http://www.catbase.com
skype: pat.bensky
*************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
