Kayıt ol

1Beğeni

1 gönderen RahmetLi

Seçenekler

07 Ağustos 2023, 20:55

Çevrimdışı

RahmetLi

Üyelik tarihi: 07 Aralık 2022

Konular: 21281

Mesajlar: 24.385

Nerden: İstanbul

Cinsiyet: Erkek

Web Site: TRmIRC.Net

IRC Sunucu: IRC.TRmIRC.Net

Alınan Beğeni: 3914

Beğendikleri: 7042

@RahmetLi

Ruh Hali : :

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

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         //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

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         
    

Kod :   Kodu kopyalamak için üzerine çift tıklayın!
    
         //echo -a : $eslesmecambazi(deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,2,46,4)

Ekran Degeri: $true

Kod : Kodu kopyalamak için üzerine çift tıklayın!


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

Ekran Degeri: $true

Kod : Kodu kopyalamak için üzerine çift tıklayın!


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

Ekran Degeri: $true

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         //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

*/

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         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

LoDoS bunu beğendi.

Kalbim Atar Cansız, Geçmez Gün Ahsız, Vahsız..

Etiketler

cambazi, eslesme

« $esitmi | Hizli mesaj alintisi »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

mIRCForumlari.Net forum sitesine kayıt olan herkes kontrol edilmeksizin mesaj, konu ve resim paylaşabilmektedir. Bu sebepten ötürü, mIRCForumlari.Net forum sitesi üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. mIRCForumlari.Net forum sitesi yönetimi hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet gösterilmesi durumunda "Canlı Destek" bölümü üzerinden ulaştığınız taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

İletişim Arşiv Forum Kuralları

Turk Arkadas

Evcilsahiplen