Cümle oluşturma [regex megex herşey var bir ben yokum] - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alience · 03 Ocak 2006, 23:32

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

Flyman · 05 Ocak 2006, 02:35

eline saglikta ne is yapar bu kod onu anlamadim ben valla
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) gulmeyin anlamadim isde

Alience · 05 Ocak 2006, 02:43

mesela sen
selam nasılsın.ben şahsen iyiyim yazdın
bunu türkçede
Selam nasılsın. Ben şahsen iyiyim şekline cevirir bak şimdi aklıma geldi sonuna . ekletmesini unutumuşum onuda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

neyse onsuz idare edin artık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Flyman · 06 Ocak 2006, 02:25

guzel biseymis kullanayim biraz bakalim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Impulsiv · 08 Şubat 2008, 19:36

Arkadaşlar, nasıl çalışır bu kod? Sadece remoteye eklemek yeterli mi? ( Ekledim çalışmadı.. )

L4roXyL · 08 Şubat 2008, 21:11

Şu kısmı; !$window(Status Window)
Bu şekilde; ($active != status window) değiş.

Cheryy · 31 Temmuz 2008, 20:40

Cümlenin sonuna . eklentisini nasıl yapacağız peki?

Cheryy · 02 Ağustos 2008, 13:04

Yardım edebilecek birisi yok mu arkadaşlar?

q0kh4n01 · 24 Ekim 2008, 19:52

<q0kh4n> deneme
<q0kh4n> Deneme
<q0kh4n> SeLam
<q0kh4n> Selam
<q0kh4n> moruk
<q0kh4n> Moruk

ßu SekiLde Cıkıyorr
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
neden

q0kh4n01 · 24 Ekim 2008, 19:53

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

Şu kısmı; !$window(Status Window)
Bu şekilde; ($active != status window) değiş.

olarak yapmıştım ama yapmadan öncede hiç çalışmıuyodu

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
İstiklal Marşının Cümle Cümle Anlamı	Sue	Türk Dili ve Edebiyatı	0	30 Mayıs 2012 21:34
Bir bakmışsın ben yokum............................	Ay	Aşk ve Sevgi Köşesi	0	26 Mart 2010 23:10
Bir Süre yokum	RebeLLious	IF Ekstra	7	28 Ekim 2009 20: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.