Alt Alta Yazılmış Olan Satırları Yanyana Dizme

;Bu Addonun Asıl Çıkma Amacı Üzerinde Çalıştığım Bir Sistemde Badnickleri Yanyana Sıralamam Gerekiyordu Fakat Nicklerin Sayısı 9900 dü. Artık Amacım Işimi Görecek
;Bir Addon Yazmaktı Fazla da Vaktim Yoktu Malum Uni Hayatı ;) Herneyse Hergün Bir Parça Elimi atarak Birşeyler Yapmaya Çalıştım En Son Bittiği Gün Öyle Bir ;Vermiştimki Kendimi Bittiğinde Kültabağını Boşaltmam Gerekiyordu.
;Gördüğü iş ;) =>> Alt Alta Yazılmış Olan Satırları Yanyana Getirip Birleştirmektedir..
;Ne iŞime Yararki ? =>> Demeyin.. Gerçekten Yariyacağına Inaniyorum..
;Kullanımı : /ayikla Kaynak Hedef [OKUNACAK SATIR]
;şeklinde Kaynak dosyada alt alta yazilmiş olan verileri Hedef dosyasına aktariyoruz. unutmayın Dosyası Boş Olması gerekir..
;Son Olarak Opsiyonel Olan Okunacak Satır Bölümüne Aktarmak Istediğiniz Satır Sayisini Belirleyebilirsiniz..
;NOT : Unutmayin Ne kadar Fazla Veriniz Var ise Dizme Süreside Bir O kadar Uzuyacaktır.

Saygilar..

;Bu Addonun Asıl Çıkma Amacı Üzerinde Çalıştığım Bir Sistemde Badnickleri Yanyana Sıralamam Gerekiyordu Fakat Nicklerin Sayısı 9900 dü. Artık Amacım Işimi Görecek
;Bir Addon Yazmaktı  Fazla da Vaktim Yoktu Malum Uni Hayatı ;) Herneyse Hergün Bir Parça Elimi atarak Birşeyler Yapmaya Çalıştım En Son Bittiği Gün Öyle Bir ;Vermiştimki Kendimi Bittiğinde Kültabağını Boşaltmam Gerekiyordu.

;Gördüğü iş ;) =>> Alt Alta Yazılmış Olan Satırları Yanyana Getirip Birleştirmektedir..

;Ne iŞime Yararki ? =>> Demeyin.. Gerçekten Yariyacağına Inaniyorum..

;Kullanımı : /ayikla Kaynak Hedef [OKUNACAK SATIR]
;şeklinde Kaynak dosyada alt alta yazilmiş olan verileri Hedef dosyasına aktariyoruz. unutmayın Dosyası Boş Olması gerekir..
;Son Olarak Opsiyonel Olan Okunacak Satır Bölümüne Aktarmak Istediğiniz Satır Sayisini Belirleyebilirsiniz..

;NOT : Unutmayin Ne kadar Fazla Veriniz Var ise Dizme Süreside Bir O kadar  Uzuyacaktır.

on 1:LOAD:{ echo -a Addon YÜKLENDİ ! | echo 4 -a KULLANIMI : /ayikla Kaynak Hedef [OKUNACAK SATIR] | echo -a şeklinde Kaynak dosyada alt alta yazilmiş olan verileri Hedef dosyasına aktariyoruz. Unutmayın Hedef Dosyası Boş Olması gerekir.. | echo -a Son Olarak Opsiyonel Olan Okunacak Satır Bölümüne Aktarmak Istediğiniz Satır Sayisini Belirleyebilirsiniz.. | echo -a ORN : /ayikla hakki hakki2 1000 | echo -a Gibi Hakki Adındaki Metin Belgesinden Hakki2 Metin Belgesine 1000 Tane alt alt ‘ a Yazilmiş Satirlari Yanyana Yazdirabiliriz.. | echo -a Iyi Çalışmalar ;) }
 
alias ayikla { 
  .timermmx -c 0 1 inc %smmx
  echo -a NOT : Lütfen Bitene Kadar Bekleyiniz…
  var %a 1
  var %x $lines($1 $+ .txt)
  if ($3) { $hesp_($3) | var %x $3 }
  else { $hesp_(%x) }
  var %strlimit 155
  var %satir_ 1
  var %s1 1
  while (%a <= %x) {
    var %s1 = $len($read($2 $+ .txt,%satir_))
    var %s2 = $read($1 $+ .txt,%a)
    write $+(-al,%satir_) $2 $+ .txt $remove($addtok($left($read($2 $+ .txt,%satir_),%s1),%s2,42),$left($read($2 $+ .txt,%satir_),%s1))
    inc %a
    if (%s1 >= %strlimit) { inc %satir_ }
  }
echo -a ———————————————————–
.timer 1 2 surex- %x
}

alias surex- {
  if (%smmx > 60) { echo -a $1 Kadar Satiri $gettok($calc(%smmx / 60),1,46) Dakika $iif($len($gettok($calc(%smmx / 60),2,46)) > 2,$left($gettok($calc(%smmx / 60),2,46),1),$left($gettok($calc(%smmx / 60),2,46),2)) Saniye de Yanyana Dizmiştir.. }
  else { echo -a $1 Kadar Satiri  %smmx Saniye de Yanyana Dizmiştir.  }
  .timer 1 2 timerkapat-
  echo -a ———————————————————–
}
alias timerkapat- {
  .timermmx* off 
  .timer 1 5 unset %smmx*
}

alias hesp_ {
if ($1 <= 500) { echo -a 2 – 3 saniye Kadar Süre Kaldı..  }
  elseif ($1 <= $calc(250 * 3)) { echo -a 3 – 5 Saniye Kadar Süre Kaldı. }
  elseif ($1 <= $calc(250 * 4)) { echo -a 4 – 6 Saniye Kadar Süre Kaldı.  }
  elseif ($1 <= $calc(250 * 6)) { echo -a 5 – 7 Saniye Kadar Süre Kaldı.  }
  elseif ($1 <= $calc(500 * 4)) { echo -a 7 – 10 Saniye Kadar Süre Kaldı.  }
  elseif ($1 > $calc(500 * 4)) { echo -a Kaynak Satirlariniz 2000 i Geçmiş bulunmakta 15 Saniye ve 2 dakika arasında değişen süre içerisinde bilgisayarınızın ram durumuna göre tamamlanacaktır.. }
  else {
  if ($1 > $calc(1000 * 10)) { echo -a Kaynak Satirlariniz 1000 i Geçmiş Bulunmakta Pcniz Bir Hayli Kasabilir Dert Etmeyin Ve Sadece Bekleyin ;) Çay için Mola Verin Ama Mirc e Bu Süre içerisinde Dokunmayın.. }
 }
}

—————————————————————————————————————
;Okunsada Olur Okunmasada..
;Aşşağıda Görmüş olduğunuz Alias Yukarıdakini Yaptıktan Sonra Yaptım Ve Asıl Bana Yariyacak Ve Kolay Olan bu alias gerekliymiş aslında çok kolay birşey ama insan ;takınca bir kere ölee yapana kadar kaptırarak gidior.. işte.. kendime Salak mı desem Yoksa inatçimi desem ne desem bilemiorm ama yanlış yunluş aliaslar sayesinde baya ;birşeyler bulcam sanirim.. Eskiden bulunan icatlar buluşlar misali ;)))))))))))))))))))))))))))))

alias ayikla2 {
var %a 1
var %x $lines(reklam.txt)
hmake reklam
while (%a <= %x) {
   hadd -m reklam $r(1000,99999) $read(reklam.txt,%a)
   inc %a
 }
hsave reklam reklam.qwert
}