home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST345.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.2 KB  |  43 lines
  1. *******************
  2.  
  3. FUNCTION O_dbftxt
  4.  
  5.    PARAMETERS _rootname
  6.  
  7.    PRIVATE _filename, _names, _fhandle, _qaz, _types, _sizes, _decs, _retto
  8.  
  9.    IF PCOUNT() = 0
  10.       _rootname = ALIAS()
  11.    ENDIF
  12.  
  13.    _filename = TRIM(LEFT(_rootname, 8)) + ".TXT"
  14.    _fhandle  = FOPEN(_filename)
  15.    IF _fhandle > 4
  16.       FWRITE(_fhandle, "* This file converted the .DBF information to TEXT file format" + CHR(13) + CHR(10))
  17.       FWRITE(_fhandle, CHR(13) + CHR(10))
  18.       FWRITE(_fhandle, _rootname + CHR(13) + CHR(10) )
  19.       DECLARE _names[FCOUNT()], _types[FCOUNT()], _sizes[FCOUNT()], _decs[FCOUNT()]
  20.       AFIELDS(_names, _types, _sizes, _decs)
  21.       FOR _qaz = 1 TO FCOUNT()
  22.          FWRITE(_fhandle, _names[_qaz] + "; " + _types[_qaz] + "; " + ;
  23.                 _sizes[_qaz] + "; " + _decs[_qaz] + CHR(13) + CHR(10) )
  24.       NEXT
  25.       _retto = INDEXORD()
  26.       FOR _qaz = 1 TO 20
  27.          IF !EMPTY(INDEXKEY(_qaz))
  28.             FWRITE(_fhandle, _rootname + "; " + INDEXKEY(_qaz) + ;
  29.                                 "; " + "<<needs a file name>>")
  30.          ENDIF
  31.       NEXT
  32.       FWRITE(_fhandle, "* End of File")
  33.       INDEXORD(_retto)
  34.       FCLOSE(_fhandle)
  35.    ENDIF
  36.    RETURN( FERROR() = 0 )
  37.  
  38. * End of File
  39.  
  40.  
  41.  
  42.  
  43.