Giriş yap veya kayıt ol

Kullanıcı adı:       Parola:            

Yazi Tipi Addonu

'Hazır Kodlar' forumunda URaL tarafından 10 Nisan 2018 tarihinde açılan konu

  1. URaL
    Çevrimdışı

    URaL New Member

    Katılım:
    10 Nisan 2018
    Mesaj:
    10
    Alınan Beğeniler:
    0
    Ödül Puanları:
    1
    Cinsiyet:
    Erkek
    Kod:
    Select All
    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) $+(4«1 ,%c,4») } else { if (%a == $numtok($1-,32)) { %d = $+($right(%c,..1),,,) %f = $right(%d,2) } %e = $regsubex(%c,/(?=^| )(.)/g,$+( 1, $+ $upper(\1)|,)) %b = %b $+(%e,%f) } } if (!%b) { %b = $1- } else { say %b } halt :end }
     

Bu Sayfayı Paylaş