IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Çözüldü txt sondan başa doğru okutma?

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü txt sondan başa doğru okutma? (https://www.ircforumlari.net/mirc-scripting-sorunlari/749442-txt-sondan-basa-dogru-okutma.html)

cashmare

30 Mayıs 2016 01:30

txt sondan başa doğru okutma?

s.a coder arkadaşlar

Şimdi

play #deneme xx.txt 0 bu komutta xx.txt dosyasını baştan sona yazdırıyor.
Peki Sondan başa doğru yazdırabilirmiyiz acaba.

fLayer

02 Haziran 2016 13:35

Cevap: txt sondan başa doğru okutma?

Alıntı:

cashmare Nickli Üyeden Alıntı (Mesaj 1041782670)

s.a coder arkadaşlar

Şimdi

play #deneme xx.txt 0 bu komutta xx.txt dosyasını baştan sona yazdırıyor.
Peki Sondan başa doğru yazdırabilirmiyiz acaba.

Kod:

 alias geriplay {

   if !$1 { echo -ea Komut kullanimi /geriplay (#Kanal|nick) dosya.txt Saniye  | return }

   if !$isfile($2) { echo -ea $2 boyle bir dosya bulunmadi. | return }

   var %x $lines($2) 

   while $read($2,%x) {

     .timer 1 $3 $1 $v1

     dec %x

   }

   echo -ea $1 play islemi bitti.

 }

Komut Kullanımı ; /geriplay (#Kanal|nick) dosya.txt Saniye

SuLh	02 Haziran 2016 14:36

Cevap: txt sondan başa doğru okutma?

While döngüsünde "dec" kullanarak geriye doğru bir döngü kurabilirsin. Mantıksal olarak, Dosyanın toplam satır sayısından geriye doğru saymamız gerekecek. Bunun için "$lines(dosya.txt)" tanımlayıcısını kullanırız.

Bakınız:

Kod:

alias geriyesay { var %s $lines(dosya.txt) | while (%s) { echo -a $read(dosya.txt,%s) | dec %s } }

fLayer

02 Haziran 2016 21:37

Cevap: txt sondan başa doğru okutma?

Kod:

  alias gerisay { var %x $lines($1) 

   :.

   if $read($1,%x) { echo -a $v1 | dec %x | goto . }

 }

 /gerisay dosya.txt

seklindede goto'larida inceleyebilirsiniz ,herşey while dongusuyle yapcak bir durum bulamazsiniz diger döngüleride inceleyerek cok sekilde code halledebilrisiniz. while döngüsüne basvurmadanda halledebiliriz , ceşitli mantıklarla , cesitli codeler yazabilirsiniz.

Toprak

02 Haziran 2016 22:10

Cevap: txt sondan başa doğru okutma?

6.35 ve üstü mirc kullanıyor iseniz ise;

Kod:

alias say {

  if !$1 || !$regex($1,/\.txt$/Si) { echo -a Lütfen txt uzantılı bir metin belgesi belirtiniz. | return }

  var %:d $1

  tokenize 32 $regsubex($str(-,$lines(%:d)),/./g, $read(%:d,$calc($lines(%:d) - \n +1)) $chr(32))

  echo -a $*

}

Not: En son satırdan birinci satıra kadar gelir.
Komut: /say deneme.txt

fLayer

02 Haziran 2016 22:52

Cevap: txt sondan başa doğru okutma?

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041783721)

6.35 ve üstü mirc kullanıyor iseniz ise;

Kod:

alias say {

  if !$1 || !$regex($1,/\.txt$/Si) { echo -a Lütfen txt uzantılı bir metin belgesi belirtiniz. | return }

  var %:d $1

  tokenize 32 $regsubex($str(-,$lines(%:d)),/./g, $read(%:d,$calc($lines(%:d) - \n +1)) $chr(32))

  echo -a $*

}

Not: En son satırdan birinci satıra kadar gelir.
Komut: /say deneme.txt

Verdiginiz Kodu denemek istedim yanlız * Sıra cok uzun: $regsubex (Satır 14, yeni.exe)
mIRC versionum 6.35

Acaba verdiginiz codedeki sorunu soylermisiniz?

Toprak

02 Haziran 2016 22:55

Cevap: txt sondan başa doğru okutma?

Alıntı:

fLayer Nickli Üyeden Alıntı (Mesaj 1041783729)

Verdiginiz Kodu denemek istedim yanlız * Sıra cok uzun: $regsubex (Satır 14, yeni.exe)
mIRC versionum 6.35

Acaba verdiginiz codedeki sorunu soylermisiniz?

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:

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...]

Feragat

03 Haziran 2016 12:33

Cevap: txt sondan başa doğru okutma?

-Betik dilin bir ortak özelliği de, onlarca alternatif yol imkanıdır.

Feragat

04 Haziran 2016 01:45

Cevap: txt sondan başa doğru okutma?

Döngüsüze bir örnek (Timer)

Eklemek: ALT + D (Aliases)
-

Kod:

x %. = $lines($1) | .timer %. 0 echo $$!read( $1 ,% $+ .) $(|) dec %.

Komut: /x x.txt

Feragat

13 Haziran 2016 01:33

Cevap: txt sondan başa doğru okutma?

Değişken kullanmadan farklı bir fantasy

Kod:

x .timer $calc($lines($1)+1) 0 echo -q $$!read( $1 , $!timer(1).reps)

dosya.txt içeriği

Kod:

Sonuç:

Kod:

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:42.