Dosyadan okuturken sorun. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Micron · 22 Ocak 2008, 05:29

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


on *:text:*:#:if $regex($1-,/ $+ $read(kufur.txt) $+ /i) { ban -u900 # $nick 2 | kick # $nick sebeb }

Bu kodda küfürleri dosyaya

\bzeytin|\bpeynir|\breçel|

şeklinde ekliyorum.

alt alta eklemem için ne yapmam lazım ?
\bzeytin
\bpeynir
\breçel

gibi .

upriSingTech · 22 Ocak 2008, 05:37

Alıntı:

on *:text:*pipi*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*sik*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*yarak*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*lezbiyen*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*gay*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*bacını*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*s2m*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*s2ci*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*skrm*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*a.k*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*a.q*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*sie*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }

ASLINDA EN İYİ YÖNTEM REMOTEYE EKLEMEK. DEVAMINI GETİREBİLİRSİN

detay · 22 Ocak 2008, 11:06

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

on *:text:*:#: { var %' $lines(kufur.txt) | while  $read(kufur.txt,%') { if $regex($1-,$+(/,$v1,/)) { ban -u900 # $nick 2 | kick # $nick sebeb }  | dec %' } }

while dongusuyle tüm satirlari tek tek kontrol ettirmelisin alt alta kullanıyorsan..

Micron · 22 Ocak 2008, 12:18

Alt alta eklenebiliyor . şöyle bir problem var yalnız

\bzeytin
\bpeynir
\breçel

kelimelerinde ezeytin azeytin yazınca normal olarak atmıyor. ama şzeytin yahut çzeytin yazınca türkçe karakteri algılamıyor ve banlıyor. Bu regextenmi kaynaklanıyor bunu düzeltmenin bir yolu yokmu ?

22 Ocak 2008, 12:47

kodlarında ufak bir değişiklik yapman gerekiyor. Örneğin

//echo -a $regex(çzeytin, /(?=([ŞÇÜİĞÖıçşğüö]zeytin))/)

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

if ($regex($1-, $read(kufur.txt,tn, %') ) && !$regex($1-, /(?=([ŞÇÜİĞÖıçşğüö] $+ $replace(\b, $null, $read(kufur.txt,tn, %')) $+ ))/) {

Micron · 23 Ocak 2008, 09:27

peki regex kullanmadan wildcard olarak kullanılırsa aynı karakter sorununu yaşarmıyım ? Forumda wildcard kullanılan korumaların çoğu cümlenin tamamını algılamıyor sadece başında kullanılırsa atıyor. While kullanmadıkları içinmi oluyor bu ? Detayın yazdığı kodu wildcard kullanarak nasıl yapabilirim ?
Yani \bzeytin yerine *zeytin gibi uygulamak istiyorum.

CesuryureK · 23 Ocak 2008, 10:54

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

ASLINDA EN İYİ YÖNTEM REMOTEYE EKLEMEK. DEVAMINI GETİREBİLİRSİN

on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. } on *:text:*********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }

ßunlar Ne? => ******* ***** ********

Yani Şu : User Ne Yazarsa Yazsın Atılacaklar, ßen Ne Anladım Küfür Korumasından Peki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Örneğin

<CesuryureK>Küfür Etmedim ki?

Orda Küfür Etmediği Kalde Atılacak.
ßirileri Almadan Düzeltmek Lazım ßuna ßenzer Olanlarda Var Düzeltmek Lazım ....

23 Ocak 2008, 11:51

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

peki regex kullanmadan wildcard olarak kullanılırsa aynı karakter sorununu yaşarmıyım ? Forumda wildcard kullanılan korumaların çoğu cümlenin tamamını algılamıyor sadece başında kullanılırsa atıyor. While kullanmadıkları içinmi oluyor bu ? Detayın yazdığı kodu wildcard kullanarak nasıl yapabilirim ?
Yani \bzeytin yerine *zeytin gibi uygulamak istiyorum.

Dosya içerisinde yazdığın \bzeytin yerine *zeytin yazman yeterli... Regex onu operatör olarak algılayacaktır.

Micron · 24 Ocak 2008, 22:22

peki regex değilde wildcardla iswm kullanarak nasıl yapabilirim aynı kodu ?
Aynı diğer regex kodu gibi 15 dakika banlıyacak hep aopta hem ircopta çalışabilecek şekilde .

24 Ocak 2008, 22:36

dosyadaki wildcard'lı kelimeleri okutmak $read ile tam bir baş belasıdır bunun en güzel yöntemi whiledir..

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Dosyadan satır okuma sorun	antimatter	mIRC Scripting Sorunları	1	25 Temmuz 2011 14:20
dosyadan okutma - sorun.	lacremel	mIRC Scripting Sorunları	3	16 Temmuz 2008 21:55
dosyadan okutma	QkLa	mIRC Scripting Sorunları	2	10 Temmuz 2008 09:48
Tcl dosyadan okutma	Sagopa	Eggdrop, NeoStats, BNC	10	07 Nisan 2007 21:13
Dosyadan (txt) satır silme	codcu	mIRC Scripting Sorunları	2	09 Haziran 2006 00:41

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

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.