Çevrimdışı

Arkadaşlar bu yazı stilinde, her kelimenin ilk harfi büyük ve renkli. Hoş bir yazı tipi; ancak, bu yazı stilinde rakamları yazmıyor. Mesela "1953 yılında" yazmak istersem "3 yılında" diyor. Yani ilk üç haneyi göstermiyor. İlk bir-iki veya üç rakamı hiç yazmıyor. Bazen bu yüzden action diye görüp kanaldan atılıyorum. Bunun çözümünü bilen var mı acaba? Şimdiden teşekkürler...

 

Çevrimdışı

PHP Kodu olarak verdiğinden dolayı kod yarım yamalak gelmiş..

 

Çevrimdışı

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else {
if (%a == $numtok($1-,32)) {
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(6,$upper(\1),))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

Bu şekilde görünür mü acaba? Resim olarak da ayrıca gösterecektim ama site açılmıyor. Umarım bunda kodlar düzgün çıkmıştır.

 

Çevrimdışı

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else {
if (%a == $numtok($1-,32)) {
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(6, $+ $upper(\1),))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}