Yazı stilim rakamları yazmıyor
 

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...

Cevap: Yazı stilim rakamları yazmıyor
 

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

Cevap: Yazı stilim rakamları yazmıyor
 

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.

Cevap: Yazı stilim rakamları yazmıyor
 

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
}