mIRCForumlari.Net - Eslesme Cambazi

/*
[Eslesme Cambazi]
Aciklama:
Cumlede gecen belirtilen eslesmeleri kelime bazinda arama yapar.
-
Girilmesi gereken degerler

belirtilen eslesme aranacak kelime ya da kelimeler
belirtilen eslesme aranacak cumle
belirtilen eslesecek minimum kelime sayisi
belirtilen kontrol edilecek kelimenin minimum uzunluguna

Kullanim: $eslesmecambazi(eslesen string,eslesme aranacak string,minimum kelime eslesme sayisi,kelime ayraci token no,kontrol edilecek minimum kelime karakter uzunlugu)

not: eger cumle bosluklardan olusuyorsa "kelime ayraci token no" degerini 32 giriniz.

Ornekler:
---------
1]
----
Eslesme Aranacak String: Ya bu havalar cok sicakladi ne olacak bilmiyorum
Eslesecek String: sicak hava
Boslugun token no : 32

PHP- Kodu:

  //echo -a : $eslesmecambazi(sicak hava,Ya bu havalar cok sicakladi ne olacak bilmiyorum,2,32,4)

Ekran Degeri: $true
----
2]
---
Eslesme Aranacak String: dinleyin.ulan.develer.burada.en.büyük.benim
Eslesecek String: deve ulan
Noktanin token no: 46

PHP- Kodu:

  

        PHP- Kodu:


        

                


                

                

                        //echo -a : $eslesmecambazi(deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,2,46,4)

Ekran Degeri: $true

PHP- Kodu:

  //echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,2,46,4)

Ekran Degeri: $true

PHP- Kodu:

  //echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,3,46,4)

Ekran Degeri: $true

PHP- Kodu:

  //echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,5,46,4)

Ekran Degeri: $false

----
3]
----
Eslesme Aranacak String: Reklam-Sales-Engelleme-Remotesi
Eslesecek String: reklam sales engel
//echo -a : $eslesmecambazi(engel reklam sales,Reklam-Sales-Engelleme-Remotesi,2,45,4)
Ekran Degeri: $true

*/

PHP- Kodu:

  alias eslesmecambazi {

  var %string1 = $strip($$1)

  var %string2 = $replace($strip($$2),ş,?,ı,?,Ş,?,ü,?,ö,?,Ö,?,ğ,?,ç,?,I,?)

  var %wordmatchingcount = $iif($$3 isnum,$v1)

  var %token = $iif($$4 isnum 1-255,$v1)

  var %leastchr = $iif($$5 isnum,$v1)

  tokenize 32 %string1

  var %n = 1 , %esl_sa

  :jst

  var %tok_no = [ $$ $+ [ %n ] ]

  if ($len(%tok_no) < %leastchr) || $count(%tok_no,$left(%tok_no,1)) == $len(%tok_no) { inc %n | goto jst }

  var %jm = $left($replace(%tok_no,ş,?,ı,?,Ş,?,ü,?,ö,?,Ö,?,ğ,?,ç,?,I,?),4)

  var %dznle_tok_no = %jm $+ *

  if ($wildtok(%string2,%dznle_tok_no,0,%token)) {

    ;tekrarlayan kelimeleri kaldiriyor

    if ($v1 > 1) { var %string2 = $remove(%string2,%jm) }

    inc %esl_sa

    if (%wordmatchingcount == %esl_sa) { return $true }

  } 

  inc %n 

  goto jst

}

ALINTI