home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST10.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  923 b   |  41 lines
  1. ********************
  2.  
  3. FUNCTION Fill_out
  4.  
  5.    PARAMETERS _filla, _fillb
  6.  
  7.    * _filla = the string to be filled out
  8.    * _fillb = the Length to fill out the string to
  9.  
  10.    IF PCOUNT() = 1
  11.       _fillb = 80
  12.    ELSE
  13.       IF TYPE("_fillb") = "C"
  14.          _fillb = VAL(b)
  15.       ENDIF
  16.       _fillb = IF(_fillb <= 1, 80, _fillb)
  17.    ENDIF
  18.  
  19.    IF TYPE("_filla") = "C"
  20.       IF _fillb <= LEN(_filla)
  21.          RETURN(_filla)
  22.       ENDIF
  23.       RETURN(LEFT(_filla + SPACE(_fillb - LEN(_filla)),_fillb))
  24.    ELSEIF TYPE("_filla") = "A"
  25.  
  26.       PRIVATE _qaz
  27.  
  28.       FOR _qaz = 1 TO LEN(_filla)
  29.          IF TYPE("_filla[_qaz]") = "C"
  30.             IF _fillb <= LEN(_filla[_qaz])
  31.                * leave this allone
  32.             ELSE
  33.                _filla[_qaz] = LEFT(_filla[_qaz] + SPACE(_fillb - LEN(_filla[_qaz])),_fillb)
  34.             ENDIF
  35.          ENDIF
  36.       NEXT
  37.    ENDIF
  38.    RETURN("")
  39.  
  40. * End of File
  41.