|
Dahimurat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Arkadaşlar elimdeki koda ek olarak Cümlenin ilk harfi büyük ve sonunada noktalama işareti ekleyebilirmiyiz. Aşağıdaki koda bunu nasıl ekleriz.
on 1:INPUT:*:{
if ( $left($1,1) == /) && ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a Statusa Bir?ey Yazamazs?n?z. | goto halt }
unset %csr
set %csr $+ $1-
if ( $chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
%csr = $replacecs(%csr,b,ß,?,$)
say %csr
unset %csr
halt
:halt
halt
:son
}
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:if $regex($1-,^[^/]) { msg $active $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), b,ß) $+ . | halt }
Daha kısa bir kodla bunu daha önce
Feragat sizinle paylaştı
Şuan paylaşmış oldugumuz kod. ilk harf büyük cümle sonunda Nokta(.) ve ince yazıyor
kopyalarken Ctrl+b karakterini almıyorsa kırmızı renkle işaretlediğim bölüme CTRL +B karakterini uygula
msg $active burası $replacecs
Ayrıca Bu bölüme b,ß) aralarına virgül koyarak coğalta bilirisin b,ß,ş,Ş,?,$)
ş harfi size
Ş soru işareti
? ise
$ olarak dönecektir.umaraım anlata bilmişimdir