home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / CLIPUDF.ARC / EXPAND.PRG < prev    next >
Text File  |  1986-02-04  |  768b  |  26 lines
  1. *Function....EXPAND()
  2. *Syntax......EXPAND(expC)
  3. *Author......Steve Straley
  4. *Parameters..Any character string.
  5. *Returns.....The same string is returned with spaces between characters
  6. *
  7. *Notes.......This function can be used when printing titles for reports
  8. *            and menus with the display separated with spaces between
  9. *            each character.  This function will should save the trouble
  10. *            of typing out those extra spaces.
  11.  
  12. FUNCTION Expand
  13.  
  14. PARAMETER in_string
  15.  
  16. length = LEN(in_string)
  17. counter = 1
  18. out_str = ""
  19.  
  20. DO WHILE counter <= length
  21.    out_str = out_str + SUBSTR(in_string,counter,1) + " "
  22.    counter = counter + 1
  23. ENDDO
  24.  
  25. RETURN(TRIM(out_str))
  26.