home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SUBSET2.ZIP / SUBSET.PRG next >
Encoding:
Text File  |  1986-12-18  |  768 b   |  31 lines
  1. ** Procedure - SUBSET                  ** for DBASE III only
  2.  
  3. ** Author  - Dirk Lesko
  4.  
  5. ** Syntax  - Do subset with mem_var1,mem_var2
  6.  
  7. ** returns - Characters from mem_var1 that appear in mem_var2, returned
  8. **         in mem_var1. If none are found, mem_var will = "" (null)
  9.  
  10. proc subset                       *** For DBASE III only
  11. para dl_var,dl_str
  12. priv dl_ret,dl_cnt,dl_len
  13.  
  14. dl_ret = ""
  15. dl_cnt = 1
  16. dl_len = len(dl_var)
  17.  
  18. do whil dl_cnt <= dl_len
  19.  
  20.     dl_ret = dl_ret+iif(subs(dl_var,dl_cnt,1) $"&dl_str" .AND.; 
  21.                     .NOT. subs(dl_var,dl_cnt,1) $"&dl_ret",;
  22.                     subs(dl_var,dl_cnt,1),"")
  23.  
  24.     dl_cnt = dl_cnt+1
  25.  
  26. endd
  27.  
  28. dl_var = dl_ret
  29.  
  30. retu
  31.