⚠️ Güvenlik nedeniyle tüm kullanıcı şifreleri sıfırlanmıştır. Lütfen buraya tıklayarak yeni şifre talep ediniz.
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 03 Ocak 2006, 23:32   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cümle oluşturma [regex megex herşey var bir ben yokum]




Yaptıklarımı step by step (tek tek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) anlatarak aklımdaki düşünceleri ve gelişmesini sizlere göstererek değişik bir anlatım tarzını

uygulayacağım.

Konumuz: yazdığımız birşeyin karşı tarafa cümle şeklinde uygulanarak gönderilmesi.
Nasıl?: şöyleki bu bir cümle denemesidir. okadar. gibi bir cümlemiz olsun bunu Bu bir cümle denemesidir. Okadar. şeklinde yazması ve

gelişimi.
Ne gerekli?: ilk önce bizim giridiğimiz yazıyı tanıması için on input eventi, bunun dışında bol bol $gettok, $replace ve var.

Uygulamaya başlıyoruz:
mirc nin remotesini açıp file > new den yeni bir script oluşturuyorum içine:
on *:input:*: { echo -a Test }
yazıp status penceresinde rastgele birşey yazıyorum ve enterliyorum çıkan sonuç
Test
* You are not on a channel
bundaki amacımız tek tek doğrulayarak hatamızı sonradan aramaktansa yaptığımız anda bulmak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.
şimdi ihtiyacımız olan input ta / gbi komut girince bunu mirc in komut olarak görmesi bunu da

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] deki kodumuzu alarak başlıyorum bu kodda
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) {
msg $active $replacecs($1-,l,L,b,ß,s,S,ş,$,g,G)
halt
}
}
msg $active $replacecs($1-,l,L,b,ß,s,S,ş,$,g,G) kısmı işime yaramayan kısım oldugu için onu siliyorum diğeri on input kısmı bizim biraz önce

denediğimiz event if ($mouse.key & 2) || !$regex($1,^\/) { ise eğer yazılan yazının 1. kelimesi / ile başlıyorsa veya / ile başlayıpta ctrl

tuşuna basılı iken entere basmıyorsa komut olarak uyguladır.

remoteye aşağıdaki şekilde yazıyorum
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) {
echo - $1-
halt
}
}
ve rastgele asdsad giriyorum çıkan sonuç:
- asdsad
/asdasd giriyorum:
* /asdasd: not connected to server << komut olarak algılıyor tamamdır.
aynı komutu ctrl tuşu basık iken giriyorum:
- /asdasd << yazı olarak algılıyor tamamdır.


cumlekur aliasesimizi oluşturmaya başlıyoruz
alias cumlekur {
if $isid {

}
}

buradaki $isid aliasesimizi $cumlekur şeklinde kulanacağımızı /cumlekur şeklinde çağırılırsa çalışmayacağı anlamına gelir.

şimdide en basit yoldan regex kullanarak cumle oluşturma safhamıza geçiyoruz
var %x , %i = $regsub(UPTR,$1-,/(\.([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x)
yukardakinin anlamı . ve ondan sonraki kelimeleri türkçe(|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ) karakterler dahil ve [a-z] küçük [A-Z] büyük kelimelerle

birlikte [[:space:]] boşluk karakterini tarıyoruz

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: { if ($mouse.key & 2) || !$regex($1,^\/) && !$window(Status Window) { msg $active $cumlekur($1-) halt } } alias cumlekur { if $isid { var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1- while %i <= $regml(cumlekur,0) { if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).|..)) { %setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32)) %setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$mid(%setvar,2,2)) var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x } inc %i 1 } return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1) } }

Eeeeeeeeee şey kusura bakmayın ben koptum gittim anlatıcaktım ama şimdi gelde yukarıdaki kodu basit bir şekilde anlat. Herneyse bu bir ders konusu olucaktı ama hazırkodlar kısmına yazmak nasip oldu aynı şekilde yazımı txt dosyasından foruma pasteliyorum. Komedi bir hazır kod oldu ama olsun en azından buradan bir konuyu yazarak anlatmanın ne kadar zor olduğunu anlamış oluyoruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.

 
Alıntı ile Cevapla

 

Etiketler
ben, bir, cumle, cümle, hersey, herşey, megex, mirc, mirc download, mirc indir, olusturma, oluşturma, regex, var, yokum


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Nev - Yokum Sara M, N, O, Ö, P 0 15 Nisan 2022 05:57
Seni Seviyorum Cümlesi Yerine Bir Cümle Kursaydiniz O Cümle Ne Olurdu. Araf IF Soruyor 8 21 Ekim 2021 15:37
İstiklal Marşının Cümle Cümle Anlamı Sue Türk Dili ve Edebiyatı 0 30 Mayıs 2012 21:34