* convert text file to memo field * WARNING: UNTESTED CODE! THIS IS JUST OFF THE TOP OF MY HEAD! * programmer, Todd Sherman, for Fred! * 7/14/99 * This program is free to anyone and anywhere. I'm not to blame if it doesn't * do what you think it should, claims to do, or doesn't claim to do! * * Conventions: UPPER case for wierd stuff, MixEd Case for Names of Things & * such, lower case for every thing else! * You might want to change the Variable and Table names so the program makes * sense! * * Assumes that you copied all relevant files to a single dir, and only those * files are in the dir. If you can't do that, you fix the program! * Also assumes that you want one record per file, if you want all the files in * one record, then you fix the program (remark out the append blank line?) local Number_Of_Files, All_Files, Cur_File Number_Of_Files = adir(All_Files, "MyDir\*.*" if Number_Of_Files = 0 then wait window 'Either put the files in MyDir, or fix the program!' return endif create cursor Big_Text (File_Name C (254), File_Content M) for Cur_File = 1 to Number_Of_Files append blank append memo File_Content from (All_Files(Cur_File, 1)) replace File_Name with All_Files(Cur_File, 1)) next * if you want to save the cursor forever, COPY TO BIG_TEXT * cut and paste this into a .prg file, then you should be able to run it! * Have a Great Day!******