home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / STRGET2.SCR < prev    next >
Text File  |  1991-08-19  |  727b  |  20 lines

  1. > watch(on)
  2. > textstring = 'aBcDeAbCdEaBcDeAbCdE'
  3. > result1text = strget2(textstring,0,'xyqA')
  4. > result2text = strget2(textstring,2,'xyzB')
  5. > result3text = strget2(textstring,4,'xyzC')
  6. > result4text = strget2(textstring,8,'xyzD')
  7. > result5text = strget2(textstring,10,'xyzE')
  8. > result6text = strget2(textstring,1,'x')
  9. > watch(off)
  10. > message('1st strget2 result = [' + result1text + ']')
  11. > message('2nd strget2 result = [' + result2text + ']')
  12. > message('3rd strget2 result = [' + result3text + ']')
  13. > message('4th strget2 result = [' + result4text + ']')
  14. > message('5th strget2 result = [' + result5text + ']')
  15. > message('6th strget2 result = [' + result6text + ']')
  16. > watch(on)
  17. > timeout = 0
  18. > wait()
  19. > end
  20.