Çevrimdışı

eStebaN;
on *:input:*: { if $left($1,1) != / && !$ctrlenter { say $replace($1-,b,ß) | haltdef } }
İşini görür.

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

Kod'da kırmızı olarak belirttiğim yer, her baş harfin renk kod'u, 4 = kırmızı.
İsteğine göre değiştirebilirsin.

 

Çevrimdışı

L4roXyL hocam senin kodu kullanıyorumda arka arkaya aralarında boşluk bırakarak 2 defa aynı şeyi yazdıgımda birisi cıkmıyor.
örnek: gel gel yazıyorum sadece Gel oluyor.hatta yazdıgım yazıların içinde yanı kelimeden 2 defa oldugu zaman birisi cıkmıyor.

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

eStebaN; on *:input:*: { if $left($1,1) != / && !$ctrlenter { say $replace($1-,b,ß) | haltdef } } İşini görür. ScladeR; on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($chr(2),$chr(3),4,$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } } Kod'da kırmızı olarak belirttiğim yer, her baş harfin renk kod'u, 4 = kırmızı. İsteğine göre değiştirebilirsin.