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

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.