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

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

- - txt ekle sil (https://www.ircforumlari.net/mirc-scripting-sorunlari/191720-txt-ekle-sil.html)

s.a txt dosyasına satır ekleyip silebilmek istıyorum kod hata veriyor

Kod:

alias 1 {

  var %Ja 1 

  write h.g.txt $$?="NOT Yazınız" 

  while %Ja <= $lines(h.g.txt) { 

    window -enz @a

    aline @a $read(h.g.txt,%Ja)

    inc %Ja

  }

}

hata şu /aline: Yetersiz veya eksik parametre (Satır 6, script12)
txt Ye ekliyor lakin göremiyor ikinci satıra ekliyor kelimeyı bırıncı satırı boş bırakıyor sanırım bos satır bıraktığı icin goremıyor

silmek icin örn write -dl $$?="silinecek satır" kullanmak istiyorum
yardım almam lazım :) çıkamadım işin icinden :)

Cevap: txt ekle sil

Kod:

alias txt {

  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)

  if %txtkontrol == $yes {

    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }

    else { goto zıpzıp }

  }

  if %txtkontrol == $no {

    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

      if $read(h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(h.g.txt,$readn) " silindi. | write $+(-dl,$readn) h.g.txt | goto zıpzıp } 

      else { echo -a Böyle bir satır bulunamadı }

    }

    else { goto zıpzıp }

  }

  if %txtkontrol == $cancel {

    $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

    titlebar @Görüntüleme h.g.txt içeriği

    loadbuf @Görüntüleme h.g.txt

  }

  :zıpzıp

  unset %txtkontrol

}

İşini kolaylaştıracağını düşündüm muratt_aziz :)

Kullanmak isteyen arkadaşlar h.g.txt yerine belgeismi.txt yazarak kendine göre düzenleyebilirler.

İyi forumlar...

Cevap: txt ekle sil

süper olmus eline sağlık :)

Cevap: txt ekle sil

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 672012)

Kod:

alias txt {

  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)

  if %txtkontrol == $yes {

    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }

    else { goto zıpzıp }

  }

  if %txtkontrol == $no {

    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

      if $read(h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(h.g.txt,$readn) " silindi. | write $+(-dl,$readn) h.g.txt | goto zıpzıp } 

      else { echo -a Böyle bir satır bulunamadı }

    }

    else { goto zıpzıp }

  }

  if %txtkontrol == $cancel {

    $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

    titlebar @Görüntüleme h.g.txt içeriği

    loadbuf @Görüntüleme h.g.txt

  }

  :zıpzıp

  unset %txtkontrol

}

İşini kolaylaştıracağını düşündüm muratt_aziz :)

Kullanmak isteyen arkadaşlar h.g.txt yerine belgeismi.txt yazarak kendine göre düzenleyebilirler.

İyi forumlar...

buna birde dosya yolunu yazarak ekleme okuma silme yapıla bilirmi

örn: bot\selam.txt selam naber Eklemek
aynı şekilde silmek icinde dosya yolu uzantısı satır sayısı
okumak icin sade dosya yolu uzantısı olsa nasıl olurdu :)

Cevap: txt ekle sil

Kod:

alias txt {

  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)

  if %txtkontrol == $yes {

    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32)  | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi. | goto zıpzıp }

    else { goto zıpzıp }

  }

  if %txtkontrol == $no {

    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

      if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32) | goto zıpzıp } 

      else { echo -a Böyle bir satır bulunamadı }

    }

    else { goto zıpzıp }

  }

  if %txtkontrol == $cancel {

    set %txtkontrolgör $input(Belge adı giriniz,eo,TXT Görüntüleme Paneli)

    if %txtkontrolgör == $null { goto zıpzıp }

    else {

      $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

      loadbuf @Görüntüleme $!

    }

  }

  :zıpzıp

  unset %txtkontrol*

}

Kullanım şekline örnekler

Eklerken veya silerken:
Örnek: Metinler\Arkadas.txt Difuzyon ircforumlari
"Metinler" Klasöründe "Arkadas.txt" belgesine "Difuzyon ircforumlari" yazısını ekler.
Örnek: Nickler.txt CesuryureK ve XcLusive
"Nickler.txt" belgesine " CesuryureK ve XcLusive" yazısını ekler.

Yani mIRC Ana dizininde bulunan belgenizi, Input basamağına 1. kelime olarak yazacaksınız.Belgenize yazdırmak istediğinizi de 2.kelime ve sonrası olarak düşüneceksiniz.

Görüntülerken:
Örnek: Metinler\Arkadas.txt
Örnek: Nickler.txt
Input basamağına girdiğiniz belge yolunu görüntüler.

Cevap: txt ekle sil

Hayırlı olur inşallah iş hayatında başarılar dilerim inanıyorumki başarılıda olursun Hayat mucadelende başarılar dilerim tekrar Allah yolunu acık etsin hep

Cevap: txt ekle sil

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 685007)

Kod:

alias txt {

  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)

  if %txtkontrol == $yes {

    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32)  | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi. | goto zıpzıp }

    else { goto zıpzıp }

  }

  if %txtkontrol == $no {

    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

      if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32) | goto zıpzıp } 

      else { echo -a Böyle bir satır bulunamadı }

    }

    else { goto zıpzıp }

  }

  if %txtkontrol == $cancel {

    set %txtkontrolgör $input(Belge adı giriniz,eo,TXT Görüntüleme Paneli)

    if %txtkontrolgör == $null { goto zıpzıp }

    else {

      $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

      loadbuf @Görüntüleme $!

    }

  }

  :zıpzıp

  unset %txtkontrol*

}

Merhaba ben mi goremedim/anlamadim yoksa yokmu ?
!ekle
!sil
!goruntule
seklinde veri girisini yapabilmemiz icin bir kisayol olmasi gerekmiyor mu ?
Ben txt doyalarina veri girisini saglayamadim.
denemek icin remote kismina ekledigim bu kodu uygulamak icin herhangi bir acik ve aktif pencerede

Metinler\Arkadas.txt Difuzyon deneme fasofiso
yada
\Metinler\Arkadas.txt Difuzyon deneme fasofiso
gibi eklemeye calistim ama olmadi ya da ben beceremedim. ::melek:

Cevap: txt ekle sil

Alıntı:

yaramazadam Nickli Üyeden Alıntı (Mesaj 1042297117)

mIRC açıkken /txt yazıp enter'a bas çıkan pencerede 3 seçenek var.

Yes diyince senden veri istiyor.İlk dosya ismi sonrasında ekleyeceğin veri şeklinde olacak. Örnekleri panel geldikten sonra yapaiblirsin anlatıldığı gibi.