Tekrar denedim hatta denediğim metin belgesine 650 satırlık bir şeyler yazıp denedim tek sorun yok.
Hatta kodu söyle düzeltelim;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias say {
if !$1 || !$regex($1,/\.txt$/Si) { echo -a Lütfen txt uzantılı bir metin belgesi belirtiniz. | return }
var %:d $1
tokenize 191 $regsubex($str(-,$lines(%:d)),/./g, $read(%:d,$calc($lines(%:d) - \n +1)) $chr(191))
echo -a $*
}
Not: Çok uzun kelimelerde işe yaramaz.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]