Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

Teşekkür Ederim L4roXyL ;oki

 

Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

L4roXyL Acikladigin İcin Tesekkur Ederim.Emeğine Sağlik +Rep .
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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.

 

Çevrimdışı

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

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(% Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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.

cok eski konuyu hortlatıyorum ama . dikkatimi cekti. bunu ekledikten sonra cümle icerisinde aynı kelimeler kullandıgımda 2. kelime cıkmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en basit örnekle : test test yazıyorum enterliyorum 1 tane test gönderiyo .

 

Çevrimdışı

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

__________________
2b|!2b=? ~ mircscripting.net

 

Çevrimiçi

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

cok eski konuyu hortlatıyorum ama . dikkatimi cekti. bunu ekledikten sonra cümle icerisinde aynı kelimeler kullandıgımda 2. kelime cıkmıyor Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. en basit örnekle : test test yazıyorum enterliyorum 1 tane test gönderiyo .

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

__________________
The Ghost of Christmas Past...

mircscripting.net