Tarih: 27/03/2015 / 21:28:37 , Kod sahibi: Feragat
on *:input:#:{
if !$istok(/ ! ., $left($1-,1), 32) {
msg # $regsubex($1-,^(.),$upper(\1))
halt
}
}
;Cümlenin ilk harfini BÜYÜK yazar.
on *:input:#:{
if !$istok(/ ! ., $left($1-,1), 32) {
msg # $regsubex($1-,/(?<=^| )(.)/g,$upper(\1))
halt
}
}
;Kelimelerin ilk harflerini BÜYÜK yazar.
