IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kelimelerin Baş Harfini Büyük Yazmak. (https://www.ircforumlari.net/mirc-scripting-sorunlari/39919-kelimelerin-bas-harfini-buyuk-yazmak.html)

Cevap: Kelimelerin Baş Harfini Büyük Yazmak.

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041735404)

Bunun sebebi, cümle içindeki kelimelerin $addtok tanımı ile bir değişken içinde toplanıyor olması.
$addtok tanımında belirlenen değişkene aynı değer 1 den fazla yazdırılmaz.

Örnek:
//set -s %x $addtok(%x, $r(1,4), 32)

Sonuç:

Kod:

* Set %x to 1

-

* Set %x to 1 4

-

* Set %x to 1 4

-

* Set %x to 1 4

-

* Set %x to 1 4 3

-

* Set %x to 1 4 3

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

-

* Set %x to 1 4 3 2

1 ile 4 arasında random sayı türetip %x değişkenine araya boşluk (32) atarak yazdırdığımızda birbiri ile aynı olan sayıları 2. defa yazmayacaktır. Sebep budur.

- $addtok tanımının mirc.chm (mirc yardım) dosyasındaki anlatımı

Kod:

$addtok(text,token,C)
 

Adds a token to the end of text but only if it's not already in text.
 

$addtok(a.b.c,d,46)        returns a.b.c.d
 

$addtok(a.b.c.d,c,46)        returns a.b.c.d
 

The C parameter is the ascii value of the character separating the tokens.
 

 Note: $addtokcs() is the case-sensitive version

Faydalı kaynaklar
1- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
2- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kolay gelsin

gayet acıklayıcı oldu tşkler .

Cevap: Kelimelerin Baş Harfini Büyük Yazmak.

Alıntı:

MyKraL Nickli Üyeden Alıntı (Mesaj 1041727660)

cok eski konuyu hortlatıyorum ama . dikkatimi cekti. bunu ekledikten sonra cümle icerisinde aynı kelimeler kullandıgımda 2. kelime cıkmıyor :) en basit örnekle : test test yazıyorum enterliyorum 1 tane test gönderiyo .

bu Arkadaşımızın Dediği Gibi Oluyor Yokmu Biri Tek Seferde Kodu Yazıp Gönderecek Ben AnlamadıM O Kadar Yazılmışki YAzı Şekli FalaN Değişmisin Test Test Yazınca 1 Test Çıkıyor. Hepsini Bi Arada Yapıp Yollayacak Varmı

Cevap: Kelimelerin Baş Harfini Büyük Yazmak.

Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yazıların ilk harfleri büyük code @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Aittir.

Kod:

#yazıstil on

on *:input:*:{

  if ($left($1,1) != /) {

    var %Jnk

    var %e = 0

    while %e != $numtok($1-,32) {

      inc %e 1

      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))

    }

    msg $active %Jnk

    halt

  }

}

#yazıstil end

menu menubar,channel,query {

  .-

  .» Yazı Stil

  ..Aç:!if $group(#yazıstil).status = on { echo -a 0,1 Yazı Menüsü Zaten AÇIK 0,1  } | else { /.enable #yazıstil | echo -a 0,1 Yazı Menüsü Açıldı. 0,1 | set %yazıstil on  }

  ..Kapat:!if $group(#yazıstil).status = off { echo -a 0,1 Yazı Menüsü Zaten KAPALI. 0,1  } | else { /.disable #yazıstil | echo -a  0,1 Yazı Menüsü Kapatıldı. 0,1  | set %yazıstil off  }

}

Cevap: Kelimelerin Baş Harfini Büyük Yazmak.

Alıntı:

Forbidden58 Nickli Üyeden Alıntı (Mesaj 1042615142)

Kod:

#yazıstil on

on *:input:*:{

  if ($left($1,1) != /) {

    var %Jnk

    var %e = 0

    while %e != $numtok($1-,32) {

      inc %e 1

      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))

    }

    msg $active %Jnk

    halt

  }

}

#yazıstil end

menu menubar,channel,query {

  .-

  .» Yazı Stil

  ..Aç:!if $group(#yazıstil).status = on { echo -a 0,1 Yazı Menüsü Zaten AÇIK 0,1  } | else { /.enable #yazıstil | echo -a 0,1 Yazı Menüsü Açıldı. 0,1 | set %yazıstil on  }

  ..Kapat:!if $group(#yazıstil).status = off { echo -a 0,1 Yazı Menüsü Zaten KAPALI. 0,1  } | else { /.disable #yazıstil | echo -a  0,1 Yazı Menüsü Kapatıldı. 0,1  | set %yazıstil off  }

}

Teşekkürler Elinize Sağlık