home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / STRFIND.SCR < prev    next >
Text File  |  1992-02-06  |  1KB  |  31 lines
  1. > windowshow()
  2. > watch(on)
  3. > textstring = 'abcdeabcdeabcdeabcde'
  4. > searchstring = 'BCD'
  5. > result1 = strfind1(textstring,searchstring,1)
  6. > result2 = strfind1(textstring,searchstring,2)
  7. > result3 = strfind1(textstring,searchstring,3)
  8. > result4 = strfind1(textstring,searchstring,4)
  9. > result5 = strfind1(textstring,searchstring,5)
  10. > result6 = strfind1(textstring,searchstring,0)
  11. > result7 = strfind1(textstring,'ZZZZZ',1)
  12. > result1text = valtostr(result1)
  13. > result2text = valtostr(result2)
  14. > result3text = valtostr(result3)
  15. > result4text = valtostr(result4)
  16. > result5text = valtostr(result5)
  17. > result6text = valtostr(result6)
  18. > result7text = valtostr(result7)
  19. > watch(off)
  20. > message('1st strfind1 result = ' + result1text)
  21. > message('2nd strfind1 result = ' + result2text)
  22. > message('3rd strfind1 result = ' + result3text)
  23. > message('4th strfind1 result = ' + result4text)
  24. > message('5th strfind1 result = ' + result5text)
  25. > message('6th strfind1 result = ' + result6text)
  26. > message('7th strfind1 result = ' + result7text)
  27. > watch(on)
  28. > timeout = 0
  29. > wait()
  30. > end
  31.