IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

1
2
3
4
5

Sonuç:
Kod:

5
4
3
2
1



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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk