home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST119.PRG < prev    next >
Encoding:
Text File  |  1989-10-19  |  2.9 KB  |  138 lines
  1. ********************
  2.  
  3. FUNCTION Output_it
  4.  
  5.    PARAMETERS _file, _row, _col
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       _file = ""
  9.       _row = 0
  10.       _col = 5
  11.    ELSEIF PCOUNT() = 1
  12.       _row = 1
  13.       _col = 5
  14.    ELSEIF PCOUNT() = 2
  15.       _col = 5
  16.    ENDIF
  17.  
  18.    _row = IF( _row > 18, 17, _row)
  19.    _col = IF( _col > 10, 10, _col)
  20.  
  21.    IF EMPTY(_file)
  22.       Windowpush(_row,_col,_row + 4,_col + 65)
  23.       Wsayget(2,3,"There is NO file in use.  Any Key to Return...")
  24.       INKEY(0)
  25.       Windowpop()
  26.       RETURN(.F.)
  27.    ENDIF
  28.  
  29.    PRIVATE _retto, _write, _char, _ffile, _schar, _sfile
  30.  
  31.    _retto = SELECT()
  32.  
  33.    IF LEN(_file) = 1
  34.       SELECT &_file.
  35.    ELSE
  36.       SELECT 0
  37.       IF FILE(_file)
  38.          USE (_file)
  39.          IF LASTREC() = 0
  40.             USE
  41.             SELECT( _retto )
  42.             RETURN(.T.)
  43.          ENDIF
  44.       ELSE
  45.          SELECT( _retto )
  46.          RETURN(.T.)
  47.       ENDIF
  48.    ENDIF
  49.  
  50.    IF EMPTY(ALIAS())
  51.       USE
  52.       SELECT( _retto )
  53.       RETURN(.T.)
  54.    ENDIF
  55.  
  56.    Windowpush(_row, _col, _row + 4, _col + 65)
  57.  
  58.    _write = SPACE(100)
  59.    _char = '"'
  60.  
  61.    Wsayget(2,3,"Would you like a <F>lat file or <D>elimited file? ")
  62.  
  63.    _ffile = Prompt("FfDd","Flat     /Flat     /Delimited/Delimited",".T./.T./.F./.F.",.T.)
  64.  
  65.    DO WHILE .T.
  66.  
  67.       Clear_area()
  68.       Wsayget(.T.,2,3,"Name of file to write out information to? ","_write", "@S10@!")
  69.       _sfile = TRIM(_write) + ".TXT"
  70.  
  71.       IF FILE(_sfile)
  72.          Clear_area()
  73.          Wsayget(2,3, SUBSTR("&_sfile. exists.  Over-write it? ", 1, Wwidth() - 4))
  74.          IF Prompt()
  75.             EXIT
  76.          ENDIF
  77.       ELSE
  78.          EXIT
  79.       ENDIF
  80.        
  81.    ENDDO
  82.  
  83.    IF !EMPTY(SUBSTR(_write,3))
  84.       Output_it1()
  85.    ENDIF
  86.    IF LEN(_file) != 1
  87.       USE
  88.    ENDIF
  89.    SELECT (_retto)
  90.    Windowpop()
  91.    RETURN( DOSERROR() = 0 )
  92.  
  93. ********************
  94.  
  95. PROCEDURE Output_it1
  96.  
  97.    _write = TRIM(_write)
  98.  
  99.    Clear_area()
  100.  
  101.    IF !_ffile
  102.       Wsayget(2,3, "Change the character which surrounds string fields? ")
  103.       IF Prompt()
  104.  
  105.          Clear_area()
  106.          Wsayget(.T.,2,3, "Enter the character to distinguish string fields => ", "_char", "X", "!EMPTY(_char)" )
  107.  
  108.       ENDIF
  109.    ENDIF
  110.  
  111.    Clear_area()
  112.    Wsayget(2, 5, "Include records marked for deletion? " )
  113.  
  114.    SET DELETED ( !Prompt() )
  115.  
  116.    Clear_area()
  117.    Wsayget(2,5,SUBSTR("Any Key to begin file data output, or Q to QUIT. ", 1, Wwidth()-4))
  118.    IF !Qwait("Q")
  119.       Clear_area()
  120.       Wsayget(2, 5, SUBSTR("Now Copying &_file. to &_write..TXT.... ", 1, Wwidth() - 5))
  121.  
  122.       _rhere = Wrow(3)
  123.       _chere = Wcol(3)
  124.  
  125.       IF _ffile
  126.          COPY TO &_write. WHILE Counting(_rhere, _chere, .F.) SDF 
  127.       ELSE
  128.          COPY TO &_write. WHILE Counting(_rhere, _chere, .F.) DELIMITED WITH &_char
  129.       ENDIF
  130.       SET DELETED OFF
  131.  
  132.       Clear_area()
  133.    
  134.    ENDIF
  135.  
  136. * End of File
  137.  
  138.