Export script

[Clunes]

I want to be able to export one script/function. I see there is the function EXPORT_SCRIPTS_AND_UDF( [ Filename as C ] ) but by default this exports them all. Is there a way to filter this outcome to only a couple? I want to do as a user request from a button on a form, not from the control panel

[Tim Kiebert]

Re: Export script

May be use Script_Load() and UDF_load() to populate a variable and then write to a file.

[Bob Whitaker]

Re: Export script

Hi Guys -

Right click the UDF in the control panel - select Export is the simple way but I note the you want it to be user driven so search the code archive for Jim Chapmans priceless Import / Export routine which allows you export any alpha object - script, udf, operation, form, browse etc as a single binary file which can then be used to update another application. I build the import routine into every application I develop.

Bob

[Clunes]

Re: Export script

Thanks All - Tim's answer got me the closest to my goal. I ended up with the following:

dim myloc as c
dim myfile as c
dim yea as n

myloc = UI_BROWSE_FOR_FOLDER("Store file to:")
If right(myloc,1) <> chr(92) then

myloc = myloc + chr(92)


end if


while myfile = ""

myfile = ui_get_text("Name Export File","Name only - no extension required","")
if myfile = "" then
yea = ui_msg_box("Nothing entered","You have not entered a file name. Do you wish to cancel?",UI_YES_NO)
if yea = 6 then
end
end if
end if

end while
myfile = myfile + ".txt"
Dim mytext as c
myfile = myloc + myfile
mytext = <<%str%


Index of Scripts
----------------
1: autoexec



Script Name ( 1): autoexec
--------------------------------------------------------------------------------

%str%
FILE.APPEND(myfile,mytext )


x = script_load("create code")
FILE.APPEND(myfile,x )


mytext = <<%str%

End Script ( 1)---------------------------------------------------------------

%str%
FILE.APPEND(myfile,mytext )

[Al Buchholz]

Re: Export script

What about this code?

'Execute menu command: '!A5_export_scripts_udfs(CONTROLPANEL.ACTIVE(),"export")'.
A5_export_scripts_udfs(CONTROLPANEL.ACTIVE(),"export")exportscripts_actionscripting.png

[Clunes]

Re: Export script

My requirement was for the user to export a specific script to specific locations

[Al Buchholz]

Re: Export script

I want to be able to export one script/function. Is there a way to filter this outcome to only a couple? I want to do as a user request from a button on a form, not from the control panel

My requirement was for the user to export a specific script to specific locations

I'm confused my these statements in your initial post. They logically conflict with each other.

So I'm not exactly sure what you are exactly looking for...

[Clunes]

Re: Export script

replace script_load("with a script name") in the above script then run it. Using the above I can control the script/functions to specific ones I want exported. I wanted this capability for another post on Adding a 30 Day Trial into Software