[Comanche]

Slmlar...


/write -dl10 takip.txt komutu sadece 10. satırı sildirebiliyoruz.

Örneğin 10. satırdan sonraki tüm satırları nasıl sildirebiliriz.?

[Gurkan]

Comanche Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Slmlar... /write -dl10 takip.txt komutu sadece 10. satırı sildirebiliyoruz. Örneğin 10. satırdan sonraki tüm satırları nasıl sildirebiliriz.?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias silsatir {
  var %satir = $1
  var %dosya = $2
  var %toplam = $read(%dosya, n)
  while (%toplam > %satir) {
    write -dl %toplam %dosya
    dec %toplam
  }
}

Silmek için direk bir write komutu bulamadım. Coder arkadaşlarım daha kullanışlı bir yol bulacaklardır. Fakat benim aklıma böyle bir yol geldi dene bakalım.

Kullanımı: /silsatir 10 takip.txt

[Comanche]

mirc kilitlendi.....

[Gurkan]

Comanche Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

mirc kilitlendi.....

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias silsatir {
  var %satir = $1
  var %dosya = $2
  var %toplam = $read(%dosya, n)  
  if (%satir >= %toplam) return  
  while (%toplam > %satir) {
    write -dl$+(%satir,1) %dosya
    dec %toplam
  }
}

böyle dene bakalım

[CoCoRiCo]

Loadbuff - Savebuff kullanmalısınız.
Satırları döngü ile silmek sakıncalıdır.
Her silinen satır sonrası satır sayısı değişir.
Bu döngü de hataya neden olur.

[Mylife]

Comanche Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Slmlar... /write -dl10 takip.txt komutu sadece 10. satırı sildirebiliyoruz. Örneğin 10. satırdan sonraki tüm satırları nasıl sildirebiliriz.?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:INPUT:*: {
  if ($1 == !silsonrasi) {
    var %satir = $2
    if (!%satir) {
      echo -a  Kullanım: !silsonrasi <satır no>
      haltdef
      return
    }

    var %dosya = takip.txt
    var %yedek = takip_temp.txt

    if (!$isfile(%dosya)) {
      echo -a  Dosya bulunamadı: %dosya
      haltdef
      return
    }

    var %toplam = $lines(%dosya)
    if (%toplam == 0) {
      echo -a  Dosya boş görünüyor: %dosya
      haltdef
      return
    }

    if (%satir > %toplam) {
      echo -a  Dosyada sadece %toplam satır var. %satir sonrası yok.
      haltdef
      return
    }

    var %i = 1
    .remove %yedek
    while (%i <= %satir) {
      write %yedek $read(%dosya, %i)
      inc %i
    }


    .remove %dosya
    .rename %yedek %dosya

    echo -a  %satir $+ . satırdan sonrası başarıyla silindi.
    haltdef
  }
}

Takip.txt dosyasının örnek içeriği:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

ali  
veli  
serkan  
murat  
özkan  
sinan

Kullanım:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/silsonrasi 3

3. satırdan sonrası başarıyla silindi.

Takip.txt dosyasının yeni görünümü:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

ali  
veli  
serkan

Belirtilen satır numarasından sonraki tüm satırları siler. İyi forumlar dilerim.

[Comanche]

tşkler

[CoCoRiCo]

Aşağıdakiler dışında normal /write fonksiyonu kullanılmaya devam eder
çalışacağını tahmin ediyorum (.


/write -dl10+ dosya.txt # 10. satırdan sonrakileri siler
/write -dl10- dosya.txt # 10. satırdan öncekileri siler
/write -dl10-50 dosya.txt # 10-50 arası satırları siler
/write -dl10+50 dosya.txt # 10+50 satırları dışındakileri siler

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias write {
  if ($regex($1, /^-dl(\d+\+|\d+-\d+|\d+-|\d+\+\d+)$/)) {
    var %a~ = $+(@_,$md5($2)) | .window -hn %a~ | .loadbuf -r %a~ $2 | var %b~ = $line(%a~, 0)
    if ($regex($1, /^-dl(\d+)\+$/)) {
      var %c~~ = $calc($regml(1) + 1)
      if (%c~~ <= %b~) { filter -c %a~ %a~ %c~~ - %b~ | filter -x %a~ %a~ * }
    }
    elseif ($regex($1, /^-dl(\d+)-(\d+)$/)) {
      var %c~~ = $regml(1), %d~~ = $regml(2)
      filter -c %a~ %a~ %c~~ - %d~~ | filter -x %a~ %a~ *
    }
    elseif ($regex($1, /^-dl(\d+)-$/)) {
      var %d~~ = $calc($regml(1) - 1)
      if (%d~~ >= 1) { filter -c %a~ %a~ 1 - %d~~ | filter -x %a~ %a~ * }
    }
    elseif ($regex($1, /^-dl(\d+)\+(\d+)$/)) {
      var %a~ = $regml(1), %b~ = $regml(2), %c~~ = $calc(%a~ + %b~ - 1)
      if (%a~ <= %b~ && %c~~ <= %b~) {
        filter -c %a~ %a~ %a~ - %c~~ | filter -x %a~ %a~ *
      }
    }
    .savebuf %a~ $2 | .window -c %a~
  }
  else {
    !write $1-
  }
}

[Comanche]

slmlar..

/write -dl10+ dosya.txt
/write -dl10- dosya.txt
/write -dl10-50 dosya.txt

Bu 3 komutta dosyadaki tüm satırları siliniyor.

/write -dl10+50 dosya.txt kullandığımızda

/savebuf: invalid window (line 22, script110.ini) hatasını veriyor.

[Coderlab]

Comanche Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

slmlar.. /write -dl10+ dosya.txt /write -dl10- dosya.txt /write -dl10-50 dosya.txt Bu 3 komutta dosyadaki tüm satırları siliniyor. /write -dl10+50 dosya.txt kullandığımızda /savebuf: invalid window (line 22, script110.ini) hatasını veriyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias write {
  if ($regex($1, /^-dl(\d+\+|\d+-\d+|\d+-|\d+\+\d+)$/)) {
    var %file = $2
    if (!$isfile(%file)) { echo -s [write] Dosya bulunamadı: %file | return }

    var %win = $+(@write_,$ticks)
    window -h %win
    loadbuf -r %win %file
    var %total = $line(%win, 0)

    var %start = 0, %end = 0

    if ($regex($1, /^-dl(\d+)\+$/)) {
      %start = $calc($regml(1) + 1)
      %end = %total
    }
    ; -dlX-Y
    elseif ($regex($1, /^-dl(\d+)-(\d+)$/)) {
      %start = $regml(1)
      %end = $regml(2)
    }
    elseif ($regex($1, /^-dl(\d+)-$/)) {
      %start = 1
      %end = $regml(1)
    }
    elseif ($regex($1, /^-dl(\d+)\+(\d+)$/)) {
      %start = $regml(1)
      %end = $calc(%start + $regml(2) - 1)
    }

    if (%start < 1) || (%end < %start) || (%end > %total) {
      window -c %win
      echo -s [write] Geçersiz satır aralığı (%start - %end)
      return
    }

    var %tmp = write_temp.txt
    if ($exists(%tmp)) .remove %tmp
    var %i = %start
    while (%i <= %end) {
      var %line = $line(%win, %i)
      if (%line != $null) write %tmp %line
      inc %i
    }

    .remove %file
    .rename %tmp %file
    window -c %win
    echo -s ? /write $1 $2 tamamlandı. Satırlar: %start - %end
  }
  else {
    !write $1-
  }
}

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/write -dl10- dosya.txt   -> İlk 10 satır kalır
/write -dl5+ dosya.txt       -> Sadece 6. satırdan sonrası kalır
/write -dl5-15 dosya.txt     -> 5–15 arası kalır
/write -dl20+5 dosya.txt     -> 20’den başlayarak 5 satır kalır (20–24)