home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
STRGET2.SCR
< prev
next >
Wrap
Text File
|
1991-08-19
|
727b
|
20 lines
> watch(on)
> textstring = 'aBcDeAbCdEaBcDeAbCdE'
> result1text = strget2(textstring,0,'xyqA')
> result2text = strget2(textstring,2,'xyzB')
> result3text = strget2(textstring,4,'xyzC')
> result4text = strget2(textstring,8,'xyzD')
> result5text = strget2(textstring,10,'xyzE')
> result6text = strget2(textstring,1,'x')
> watch(off)
> message('1st strget2 result = [' + result1text + ']')
> message('2nd strget2 result = [' + result2text + ']')
> message('3rd strget2 result = [' + result3text + ']')
> message('4th strget2 result = [' + result4text + ']')
> message('5th strget2 result = [' + result5text + ']')
> message('6th strget2 result = [' + result6text + ']')
> watch(on)
> timeout = 0
> wait()
> end