ilk onu değil tüm satırı 100 er karakterler halinde bölerek okusun istemiştim
ikinci ücüncü dördüncü tüm satırı aynı okutmak istedim
tekrar düşündüğümüzde karakter olarak değilde kelime olarak bölmeliyiz kelimeyi ortadan bölüyor benim yaptığım oda hic hoş bir görüntü sağlamıyor
Kod:
alias ruya {
set %py $1 | set %kn echo -a
}
alias cl {
var %h $len($read(ruya.txt,1)) | set %gt $gettok($calc($calc(%h / 100) + 1),1,46) | ccl
}
alias ccl {
var %ft 1, %no 1
var %x = 100
var %t = $calc(%gt * 100)
while %x <= %t {
if %x == 100 { var %x 1 }
.timer 1 %ft %kn 3:- $mid($read(ruya.txt,%no),%x,100) | var %ft $calc(%ft + 3)
if %x == 1 { var %x 100 | .timer 1 %ft %kn 3:- $mid($read(ruya.txt,%no),%x,100) | var %ft $calc(%ft + 3) }
if (%x == %t) { if (%no == $lines(ruya.txt)) { var %no $calc(%no + 1) } }
inc %x 100
}
} Bu kodu 10 kelime debir okutabilirmiyizsatırı 10 kelime 10 kelime okuyacak nasıl yaparız suanki haliyle 100 karakterde bir bölerek okuyor buhoş olmadı ruya tabiri kod yapmaya çalıştım bu kısmını beğenmedim açıkçası