Kelimelerin Baş Harfini Büyük Yazmak.
 

Selam

Cümle İcinde Kelimelerin Baş HarfLerini Büyük Yazmasini İstiyorum..Yani Ben Kücük Yazsamda Otomatik Büyütmesi İcin Bir Kod Warmi Acaba.Forumda Araştirdim Ama buLamadim. Sagolun.

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

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { say $+($upper($left($1-,1)),$right($1-,-1)) | haltdef } }

Kurduğun her cümlenin ilk harfini büyük yapıcaktır.

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

Teşekkür Ederim L4roXyL ;oki

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

L4roXyL

[:21:07:28] <nICKIM> Selam nasilsin.

Burada Sadece Cümlenin iLk keLimesininkini Büyüttü.Ben Cümlede Her keLimenin ba$ Harfini İstemi$tim ama.yâni aLttaki Gibi.Yardimci oLurmusun.Sağolasin.

[:21:07:28] <nICKIM> Selam Nasilsin.

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

Amigo istediğin şey, regular expression ile yapılabilir. Ama ben farklı bir yöntem ile yaptım, işini göreceğine inanıyorum.
Açıklıyayım'ki "hep hazır veriyor, anlamıyoruz" diyenler utansın .)

$left($1,1) != / : Burada demek istediğimiz, yazılan kelimenin ilk karakteri "/" değilse &&(ve)
!$ctrlenter : Eğer caps lock aktif değilse, &&(ve)
!$inpaste : Gönderilen text, paste edilmiyorsa;
Bir değişken yapıyoruz(%/) ve değerini 1 olarak atıyoruz.
Sonra $numtok ile cümle içerisindeki boşluk sayısını anlıyoruz.
Devamında while kullanarak $gettok yardımı ile, $numtok sorgulamasından aldığımız değeri(%=) 1'e eşit olana kadar yani %/ değerine eşit olana kadar arttırıyoruz.
Ve bunu yaparken her kelimenin/lerin ilk harfini, $upper ve $left yardımı ile büyütüyoruz. Ve kelimenin/lerin 1. harflerinden sonrasını $right kullanarak normal biçime dönüştürüyoruz.
Ve son olarak, bu yapılanların hepsini $addtok kullanarak %: değişkenine atıyoruz. İşlevler bittikten sonra(while) say olarak %: değişkenini okutuyoruz. Yani kısacası, yazılan her kelimenin ilk harfi büyük oluyor.
Açıkladım, çünki ne kadar basit ve yapılabilir olduğunu sizde öğrenin diye.

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } }

İşini görecektir.

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

L4roXyL Acikladigin İcin Tesekkur Ederim.Emeğine Sağlik +Rep .:)

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

Kod'da sorun olmaz fakat yanlış bir bilgi vermişim;
!$ctrlenter : Eğer yazılan text ctrl + enter tuşuna basılarak gönderilmiyorsa demektir.

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

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 .

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

//echo : $wcaps(Kelime kelime kelimeler..)
alias Wcaps { return $regsubex($1-,/(\b\w)/ig,$upper(\1)) }

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

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ç:
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ı

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