Çevrimdışı

Selamlar. Asagıdaki kodla yarım saattir ugrasıyorum ama sonuc alamadım.

Alias kontrol {
if !$hfind(badnick,$strip($1),0,W).data { write badlar.txt $strip($1) | echo $strip($1) eklenen. | return }
}

Badnick.data da olanları *mask* seklinde görüyorum
Olmayanları ise badlar.txt eklemeye calısıyorum
Fakat badlar.txt e aynı rumuzu bi daha ekliyor.
Yani 20 defa /kontrol deneme yazsam 20 defa aynı cümleyi ekliyor
Deneme
Deneme
Deneme gibi.
Ekli olanı bir daha eklememesi icin ne yapabiliriz acaba.

 

Çevrimiçi

Bozii Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Selamlar. Asagıdaki kodla yarım saattir ugrasıyorum ama sonuc alamadım. Alias kontrol { if !$hfind(badnick,$strip($1),0,W).data { write badlar.txt $strip($1) | echo $strip($1) eklenen. | return } } Badnick.data da olanları *mask* seklinde görüyorum Olmayanları ise badlar.txt eklemeye calısıyorum Fakat badlar.txt e aynı rumuzu bi daha ekliyor. Yani 20 defa /kontrol deneme yazsam 20 defa aynı cümleyi ekliyor Deneme Deneme Deneme gibi. Ekli olanı bir daha eklememesi icin ne yapabiliriz acaba.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


if !$hfind(badnick,$strip($1),0,W).data bu kısımda hash tablosunu kontrol ediyor eklediğin veri zaten tabloda olmayan veri olduğu için eklemene müsade edecektir o yüzden koşul ekleyerek txt dosyasını kontrol ettirmen gerekiyor.


Örneğin



if $read(badlar.txt,w,$1) { komut }


koşulunu kullanıp txt dosyasını kontrol ettirebilirsin.


Anlamı $1 ifadesini badlar.txt dosyasının içerisinde arar varsa yaptırmak istediğin komutu komut kısmına yazman gerekiyor ve else kullarak ekleme işlemini yaptırabilirsin. Yada else kullanmadan direk olmayanı ekletmek istersen $read kısmının önüne ! koyarak yani !$read şeklinde ayarlayabilirsin.

 

Çevrimdışı

Yok baskan olmuyor
Yazdıgınız kosulu ekleyip karsısına{ write badlar.txt $1 } ekledim
İf write gecersiz komut dedi.
Neyse bu sekilde kullanıp tekrar eklenenleri silerim dosyadan.
İlgilendiginiz icin tşkler.

if !$hfind(badnick,$strip($1),0,W).data && if $read(badlar.txt,w,$1) { write badlar.txt $1 }

Yine en bastaki !$hfind olan kısmı read yazarak denedim
İf !$read(badlar.txt ve if $iif(badlar.txt,w,$1) bunlarda olmadı

 

Çevrimiçi

Bozii Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Yok baskan olmuyor Yazdıgınız kosulu ekleyip karsısına{ write badlar.txt $1 } ekledim İf write gecersiz komut dedi. Neyse bu sekilde kullanıp tekrar eklenenleri silerim dosyadan. İlgilendiginiz icin tşkler.

nasıl yaptığını burada paylaşırsan doğrusunu gösteririm öğrenmiş olursun normalde hazır olarak vermememin sebebi öğretme amaçlıdır.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


kısmı



şeklinde değişip dener misin ? Hata yaptığın kısmı kırmızı renk ile işaretledim && kullanınca ek olarak if kullanmana gerek yok. Baştaki if 2 sini birden okuyor yani şöyle Eğer badnick tablosunda yoksa ve badler metin dosyasında yoksa diye.

 

Çevrimdışı

pCkOpAt Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:   Kodu kopyalamak için üzerine çift tıklayın! if !$hfind(badnick,$strip($1),0,W).data && if !$read(badlar.txt,w,$1) { write badlar.txt $1 } kısmı Kod:   Kodu kopyalamak için üzerine çift tıklayın! if !$hfind(badnick,$strip($1),0,W).data && !$read(badlar.txt,w,$1) { write badlar.txt $1 | echo -a Eklenen veri $1 } şeklinde değişip dener misin ? Hata yaptığın kısmı kırmızı renk ile işaretledim && kullanınca ek olarak if kullanmana gerek yok. Baştaki if 2 sini birden okuyor yani şöyle Eğer badnick tablosunda yoksa ve badler metin dosyasında yoksa diye.

Evet şimdi oldu başkan. Yardımınız için tşkkür. Ederim.