Convert library to filesystem dictionary

[CraigSchumacker]

Re: Convert library to filesystem dictionary

Dave:

"I went as far as I needed to find out how unimportant this is to me."

Thanks for the laugh.

I stumbled on this when I upgraded to version 11. Looked at what it did, tried it, scratched my head, and all but forgot about it.

One of the reasons I lurk around this board is the hope that a thread will bring new light to some hidden jewel in the Alpha Anywhere gold mine of nuggets. With no "Desktop specific" features being added, it's become a little hum drum. It's not that there a millions of things on my wish list, but there are a few that would be nice.

I suspect everyone who contributed here was also hoping to find something more than what appears to be there.

[WokingJon]

Re: Convert library to filesystem dictionary

Well, that didn't take long...

'backup all scripts and UDFs to a date-stamped text file (once per day)
'check if file exists for today. if not then export
bkp = file.filename_parse(a5.get_name(),"DPN") + " - " + dtoc(date(),"2-") + " -1.txt"
if file.exists(bkp) = .f. then
	export_scripts_and_udfs()
end if

I have to agree with the other contributors to this post - I see absolutely no benefit to myself in converting scripts/udfs to filesystem, but I do see several pitfalls as already mentioned.

[MoGrace]

Re: Convert library to filesystem dictionary

What I'd really like is a combination of the 'convert to filesystem' which creates a separate file for each script and UDF and the 'export_scripts_and_udf()' function which creates a date-stamped single text file with all scripts and UDFs concatenated.

Hi Jon,
But using the function will still let you select from a backup which script or function you want to import using the right click Import on the code tab.

[Stan Mathews]

Re: Convert library to filesystem dictionary

That would be fairly easy to create with

a5.Udf_Enum()
a5.Script_Enum()
udf_load()
script_load()
save_to_file()

No bells, certainly no whistles.

udfs = a5.Udf_Enum()
for each udf_found in udfs
	udf_name = word(udf_found,1,"@")
	fil = udf_load(udf_name)
	save_to_file(fil,"C:\temp\udf_backup_"+udf_name+".txt",.F.)
next
scrpts = a5.script_Enum()
for each scrpt_found in scrpts
	scrpt_name = word(scrpt_found,1,"@")
	fil = script_load(scrpt_name)
	save_to_file(fil,"C:\temp\script_backup_"+scrpt_name+".txt",.F.)
next

[pboomwork]

Re: Convert library to filesystem dictionary

I often come to the Forums looking for a solution to my Alpha problems. Sometimes I find clues that set me in the right direction, other times I find others trying to do the same thing I am attempting. On a few occasions I dig in and come up with the solution myself and then post the solution to a rather old topic.

Then there are time like this, when I find the solution has already been written and I just needed to change a few lines.

Thanks Stan.