similar string comparison

[dobro]

Code: Select all

UseMD5Fingerprint()

Declare find(text.s,search.s)

text.s="this is phrase 1"+chr(13)
text.s+"this is 2 phrase"+chr(13)
text.s+"this is phrase 1"+chr(13)
text.s+"this is 2 phrase"+chr(13)
text.s+"this is phrase 1"+chr(13)
text.s+"this is phrase 1"+chr(13)
search.s="this is phrase 1"
find(text.s,search.s)
search.s="this is 2 phrase"
find(text.s,search.s)
procedure find(text.s,search.s)
		For i=1 to CountString(text.s,chr(13))
				phrase.s=StringField(text.s,i,chr(13))
				if StringFingerprint(phrase.s, #PB_Cipher_MD5)=StringFingerprint(search.s, #PB_Cipher_MD5)
						compteur=compteur+1
				Endif
		Next i
		if compteur>1
				MessageRequester("stop !" , "the phrase :"+chr(34)+search.s+chr(34)+" is present "+str(compteur)+" times")
		Endif
		compteur=0
Endprocedure;|
		; Epb