home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
subset.zip
/
SUBSET.PRG
next >
Wrap
Text File
|
1986-08-22
|
587b
|
31 lines
procedure subsetr
parameters str1,str2
SET TALK OFF
SET ECHO OFF
part=0
i=0
j=0
if len(str1)>len(str2)
? str1+[ is bigger than ]+str2+[!]
else
do while i<len(str1)
i=i+1
sb1=substr(str1,i,1)
do while j<len(str2)
j=j+1
sb2=substr(str2,j,1)
part=iif(sb1=sb2,part+1,part+0)
enddo
enddo
do case
case part=len(str2)
? STR1+[ + ]+STR2+[ ARE EQUIVALENT]
case part=0
? [.F.]
case part>0.and.part<len(str2)
? [.T.]
endcase
endif
return