mIRC Scripting - uzun satır

mIRC Scripting (https://www.mircscripting.net/)

- Help - Yardım (https://www.mircscripting.net/help-yardym/)

- - uzun satır (https://www.mircscripting.net/help-yardym/586-uzun-satyr.html)

s.a arkadaşlar uzun satırı txt içersinde alt alta nasıl böleriz
100 karakterde bir bölerek
kanala okutmak istiyorum ve ayrıca foold a düşmeden yapabilirmiyiz

alias cl {
var %x = 1
var %t = $lines(ruya.txt)
while %x <= %t { msg %kn $read(ruya.txt,%x)
inc %x
}
}
okutma işlemini play ruya.txt 2000 lede yapabiliriz alt alta nasıl böleriz satırı

Kod:

alias oku play -a okut #deneme belge.txt 1500

alias -l okut {

  var %a $len($2-), %b 10 

  if %a > %b { 

    msg #testing $mid($2-,1,%b) 

    msg #testing $mid($2-,$calc(%b +1),%a) 

  } 

  else { msg #testing $2- }

}

Şayet belge.txt içerisindeki satır 10 karakterden fazla ise önce 10'luk kısmı sonra geriye kalanı peşisıra okutur.
Komut: /oku

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ı

Kod:

alias ty  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1

  set %t $gettok($read(ruya.txt,%s),0,32)

  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)

  while %x <= %t {

    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)

    var %v $calc(%v + 10)

    if (%ff == %d) { .timer 1 %ft gh }

    if (11 == %x) { var %x $calc(%x - 1) }

    inc %x 10

    inc %d

  }

}

alias gh {

  set %s $calc(%s + 1)

  set %t $gettok($read(ruya.txt,%s),0,32)

  tg

}

alias tg {

  var %ft 1, %v 10, %i 1, %ı 1

  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)

  while %i <= %t {

    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)

    var %v $calc(%v + 10)

    if (%ff == %ı) { .timer 1 %ft gh }

    inc %i 10

    inc %ı

  }

}

ben yaptım kendimce tşkler ilginize

İstediğin şey işe yarayabilecek birşey. Birçok kişi bu tarz şeyler arayabilir. Lâkin gereğinden fazla /while /timer vs. kullanmışsın. Birden fazla kullanımda mIRC kasılabilir. (bu arada kendin birşeyleri yapabildiğin için tebrik ederim)
Daha kısa ve öz birşey olsun istiyorsan aşağıdaki yazdığım kodu kullanabilirsin.
Not: Bu kod dosyanın içerisindeki tüm verileri tek bir satır olarak kaydeder. Ve 100-er karakter olarak gösterir. Örnek olarak /echo komutunu kullandım. Sen kendine göre /msg vs. kullanabilirsin.

Kullanım: /_read dosya-ismi.uzantısı

Kod:

alias _read {

  unset %s

  bread $$1 0 $$lof($$1) &d 

  :.

  echo $$bvar(&d,$iif(!%s,1-101,$calc(%s + 1) $++ - $calc(%s + 101))).text

  inc %s 101

  goto .

}

-

Eğer illede ben 100-den düşük olan satırları normal, 100-den büyük olan satıları bölerek alt alta sıralı bir şekilde okutmak istiyorum dersen, aşağıdaki diğer yazdığım kodu kullanabilirsin.

Kullanımı: /_read dosya-ismi.uzantısı

Kod:

alias _read {

  var %1 1,%v,%2 

  while ($read($$1,%1)) {

    %v = $v1

    if ($len(%v) >= 100) {

      %2 = 1

      while ($mid(%v,%2,100)) {

        echo $v1

        inc %2 100

      }

    }

    else echo %v

    inc %1

  }

}

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials