call repeated block of code

[christina_applegate]

hi all,

my question relates to taking a block of code and saving it as function? then calling this as needed as you would with a vba call 'macro name here'

eg of the code below

#RequireAdmin
ShellExecute("C:\Users\frank\Documents\SFiles\C\Arizona Diamondbacks.sfcht")
AutoItSetOption('MouseCoordMode', 0)
AutoItSetOption('SendKeyDelay', 150)


WinWait('Chart Database')
WinActivate('Chart Database')
ControlClick('Chart Database', '', 'Button15')
WinWait('File Management')
WinActivate('File Management')
ControlClick('File Management', '', 'Button1')
WinWait('Chart Database')
WinActivate('Chart Database')
ControlClick('Chart Database', '', 'Button5')
WinWait('Edit Chart Data')
WinActivate('Edit Chart Data')
ControlCommand('Edit Chart Data', '', 'ThunderRT6CheckBox2', 'UnCheck')
WinWait('Edit Chart Data')
WinActivate('Edit Chart Data')
ControlClick('Edit Chart Data', '', 'ThunderRT6TextBox1')
Send('{CTRLDOWN}')
Send('{v}')
Send('{CTRLUP}')
ClipPut("")

  i wouid like to take

AutoItSetOption('MouseCoordMode', 0)
AutoItSetOption('SendKeyDelay', 150)

WinWait('Chart Database')
WinActivate('Chart Database')
ControlClick('Chart Database', '', 'Button15')
WinWait('File Management')
WinActivate('File Management')
ControlClick('File Management', '', 'Button1')
WinWait('Chart Database')
WinActivate('Chart Database')
ControlClick('Chart Database', '', 'Button5')
WinWait('Edit Chart Data')
WinActivate('Edit Chart Data')
ControlCommand('Edit Chart Data', '', 'ThunderRT6CheckBox2', 'UnCheck')
WinWait('Edit Chart Data')
WinActivate('Edit Chart Data')
ControlClick('Edit Chart Data', '', 'ThunderRT6TextBox1')
Send('{CTRLDOWN}')
Send('{v}')
Send('{CTRLUP}')
ClipPut("")

and call that 'ABC'

then subsequently my new code would be;

#RequireAdmin
ShellExecute("C:\Users\frank\Documents\SFiles\C\Arizona Diamondbacks.sfcht")

call ABC

thanks

christinaA

Edited October 19, 2015 by Melba23
Added code tags

[JohnOne]

It's a function your are describing...

ABC()

Func ABC()
    WinWait('Chart Database')
    WinActivate('Chart Database')
    ControlClick('Chart Database', '', 'Button15')
    WinWait('File Management')
    WinActivate('File Management')
    ControlClick('File Management', '', 'Button1')
    WinWait('Chart Database')
    WinActivate('Chart Database')
    ControlClick('Chart Database', '', 'Button5')
    WinWait('Edit Chart Data')
    WinActivate('Edit Chart Data')
    ControlCommand('Edit Chart Data', '', 'ThunderRT6CheckBox2', 'UnCheck')
    WinWait('Edit Chart Data')
    WinActivate('Edit Chart Data')
    ControlClick('Edit Chart Data', '', 'ThunderRT6TextBox1')
    Send('{CTRLDOWN}')
    Send('{v}')
    Send('{CTRLUP}')
    ClipPut("")
EndFunc   ;==>ABC

 

[Melba23]

christina_applegate,

When you post code please use Code tags - see here how to do it.  Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

M23

[christina_applegate]

thanks JohnOne

where & how would i save that so when i write another script i may call it again

i had some attempts at working with the include folder but couldn't get it working

ps sorry Melba23 i know better now

[christina_applegate]

am i correct in thinking i need to create a new UDF?

i have been looking through posts and help files

can anyone point me in the direction of an example of this?

thanks

christinaA

[JohnOne]

You can simply save in in an .au3 file anywhere on your computer and paste it into your code when you need it.

However there is an article in wiki on how to store permanently your UDF so it does not have to be in script folder, sorry I don't know the link.

Have a little browse.

[Melba23]

christina_applegate,

Adding UDFs to AutoIt and SciTE

M23

 

[gruntydatsun]

You can use an include statement to add another file easily.
 

Save the below to C:\ScriptA.au3

msgbox(1,"ScriptA","This command from ScriptA.au3")

Then save this to C:\ScriptB.au3

#include "C:\ScriptA.au3"
msgbox(1,"ScriptB","This command from ScriptB.au3")

Run ScriptB and you'll get both message boxes displayed.