home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / vargen.zip / VARGEN.PRG
Text File  |  1987-07-19  |  2KB  |  70 lines
  1. * Vargen.prg
  2. * 07/16/87 David L. West, Reinbeck IA
  3. * 
  4. * Input:   Database file name (with extension!)
  5. *          Output file name
  6. *
  7. * Output:  Text file with dBase III code to store the contents of a record
  8. *          to variables named after the fields, and replace the record with
  9. *          the contents of those variables
  10. *
  11. * Comment: Yeah, it ain't pretty, but I got tired of typing STORE this to that,
  12. *          REPLACE this with that, ad infinitum.
  13. *
  14. SET TALK OFF
  15. SET BELL OFF
  16. close databases
  17. do while .t.
  18.  
  19.    clear
  20.    store space(80) to DBFname,outfile
  21.    
  22.    @ 2,1 say "Enter database file name: " get DBFname picture "@!S40"
  23.    @ 3,1 say "Output file name:         " GET OutFile PICTURE "@!S40"
  24.    read
  25.    
  26.    if DBFname=space(80)
  27.       exit
  28.    endif
  29.    store trim(DBFname) to DBFname
  30.    
  31.    if .not. file("&DBFname")
  32.       @ 4,0
  33.       wait " No such database! Press any key ...."
  34.       loop
  35.    else
  36.       use &DbfName
  37.    endif
  38.    clear
  39.    store trim(outfile) to OutFile
  40.    set alternate to &OutFile
  41.    set alternate on
  42.    ? "** Store fields to identically named memvars"
  43.    store 1 to n
  44.    do while len(field(n))#0
  45.       store "STORE "+TRIM(FIELD(N))+" TO M->"+TRIM(FIELD(N)) TO LINE
  46.       ? line
  47.       store n+1 to N
  48.    enddo
  49.    ?
  50.    ?
  51.    ? "** Replace fields with identically named memvars"
  52.    store 1 to n
  53.    do while len(field(n))#0
  54.       store "REPLACE "+TRIM(FIELD(N))+" WITH M->"+TRIM(FIELD(N)) TO LINE
  55.       do while len(field(N))#0 .and. len(line) + (len(field(n))*2)+7 < 144
  56.          store line+","+TRIM(FIELD(N))+" WITH M->"+TRIM(FIELD(N)) to line
  57.          store n+1 to n
  58.       enddo
  59.       ? line
  60.       store n+1 to N
  61.    enddo
  62.    ?
  63.    SET ALTERNATE TO
  64.    SET ALTERNATE OFF
  65.    CLOSE ALTERNATE
  66.    ?
  67.    wait " Finished."
  68.    loop
  69. enddo
  70.