home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
STRFIND1
< prev
next >
Wrap
Text File
|
1991-08-16
|
1KB
|
30 lines
> watch(on)
> textstring = 'abcdeabcdeabcdeabcde'
> searchstring = 'BCD'
> result1 = strfind1(textstring,searchstring,1)
> result2 = strfind1(textstring,searchstring,2)
> result3 = strfind1(textstring,searchstring,3)
> result4 = strfind1(textstring,searchstring,4)
> result5 = strfind1(textstring,searchstring,5)
> result6 = strfind1(textstring,searchstring,0)
> result7 = strfind1(textstring,'ZZZZZ',1)
> result1text = valtostr(result1)
> result2text = valtostr(result2)
> result3text = valtostr(result3)
> result4text = valtostr(result4)
> result5text = valtostr(result5)
> result6text = valtostr(result6)
> result7text = valtostr(result7)
> watch(off)
> message('1st strfind1 result = ' + result1text)
> message('2nd strfind1 result = ' + result2text)
> message('3rd strfind1 result = ' + result3text)
> message('4th strfind1 result = ' + result4text)
> message('5th strfind1 result = ' + result5text)
> message('6th strfind1 result = ' + result6text)
> message('7th strfind1 result = ' + result7text)
> watch(on)
> timeout = 0
> wait()
> end