mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Help - Yardım

Help - Yardım mIRC Scripting hakkında her konuda yardım alabileceğiniz bölümdür.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 05 Mart 2012, 08:37
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart uzun satır

s.a arkadaşlar uzun satırı txt içersinde alt alta nasıl böleriz
100 karakterde bir bölerek
kanala okutmak istiyorum ve ayrıca foold a düşmeden yapabilirmiyiz

alias cl {
var %x = 1
var %t = $lines(ruya.txt)
while %x <= %t { msg %kn $read(ruya.txt,%x)
inc %x
}
}
okutma işlemini play ruya.txt 2000 lede yapabiliriz alt alta nasıl böleriz satırı
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 05 Mart 2012, 22:39
Avatar Yok
 Coders 

mS Puan: 621
mS Derece: Difuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon Çalışkan
 
Üyelik tarihi: 16 Temmuz 2009
Bulunduğu yer: code talks!
Mesajlar: 83
Konular: 36
Eklentiler: 4
Alınan Teşekkür: 5
Yapılan Teşekkür: 0
Standart

Kod:
alias oku play -a okut #deneme belge.txt 1500
alias -l okut {
  var %a $len($2-), %b 10 
  if %a > %b { 
    msg #testing $mid($2-,1,%b) 
    msg #testing $mid($2-,$calc(%b +1),%a) 
  } 
  else { msg #testing $2- }
}
Şayet belge.txt içerisindeki satır 10 karakterden fazla ise önce 10'luk kısmı sonra geriye kalanı peşisıra okutur.
Komut: /oku
__________________
Koli
Alıntı ile Cevapla
  #3  
Alt 07 Mart 2012, 11:54
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart

ilk onu değil tüm satırı 100 er karakterler halinde bölerek okusun istemiştim
ikinci ücüncü dördüncü tüm satırı aynı okutmak istedim
tekrar düşündüğümüzde karakter olarak değilde kelime olarak bölmeliyiz kelimeyi ortadan bölüyor benim yaptığım oda hic hoş bir görüntü sağlamıyor

Kod:
alias ruya {
  set %py $1 | set %kn echo -a 
}
 
alias cl  {
  var %h $len($read(ruya.txt,1)) | set %gt $gettok($calc($calc(%h / 100) + 1),1,46) | ccl
}
alias ccl  { 
  var %ft 1, %no 1
  var %x = 100
  var %t = $calc(%gt * 100)
  while %x <= %t { 
    if %x == 100 { var %x 1 }
    .timer 1 %ft %kn 3:-  $mid($read(ruya.txt,%no),%x,100) | var %ft $calc(%ft + 3)
    if %x == 1 { var %x 100 | .timer 1 %ft %kn 3:-  $mid($read(ruya.txt,%no),%x,100) | var %ft $calc(%ft + 3) }
    if (%x == %t) { if (%no == $lines(ruya.txt)) { var %no $calc(%no + 1) } }
    inc %x 100
  }
}
Bu kodu 10 kelime debir okutabilirmiyizsatırı 10 kelime 10 kelime okuyacak nasıl yaparız suanki haliyle 100 karakterde bir bölerek okuyor buhoş olmadı ruya tabiri kod yapmaya çalıştım bu kısmını beğenmedim açıkçası
Alıntı ile Cevapla
  #4  
Alt 07 Mart 2012, 15:32
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart

Kod:
alias ty  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(ruya.txt,%s),0,32)
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    if (11 == %x) { var %x $calc(%x - 1) }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(ruya.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}
ben yaptım kendimce tşkler ilginize
Alıntı ile Cevapla
  #5  
Alt 17 Nisan 2012, 07:35
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 33
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart

İstediğin şey işe yarayabilecek birşey. Birçok kişi bu tarz şeyler arayabilir. Lâkin gereğinden fazla /while /timer vs. kullanmışsın. Birden fazla kullanımda mIRC kasılabilir. (bu arada kendin birşeyleri yapabildiğin için tebrik ederim)
Daha kısa ve öz birşey olsun istiyorsan aşağıdaki yazdığım kodu kullanabilirsin.
Not: Bu kod dosyanın içerisindeki tüm verileri tek bir satır olarak kaydeder. Ve 100-er karakter olarak gösterir. Örnek olarak /echo komutunu kullandım. Sen kendine göre /msg vs. kullanabilirsin.

Kullanım: /_read dosya-ismi.uzantısı

Kod:
alias _read {
  unset %s
  bread $$1 0 $$lof($$1) &d 
  :.
  echo $$bvar(&d,$iif(!%s,1-101,$calc(%s + 1) $++ - $calc(%s + 101))).text
  inc %s 101
  goto .
}
-

Eğer illede ben 100-den düşük olan satırları normal, 100-den büyük olan satıları bölerek alt alta sıralı bir şekilde okutmak istiyorum dersen, aşağıdaki diğer yazdığım kodu kullanabilirsin.

Kullanımı: /_read dosya-ismi.uzantısı

Kod:
alias _read {
  var %1 1,%v,%2 
  while ($read($$1,%1)) {
    %v = $v1
    if ($len(%v) >= 100) {
      %2 = 1
      while ($mid(%v,%2,100)) {
        echo $v1
        inc %2 100
      }
    }
    else echo %v
    inc %1
  }
}
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Cevapla

Etiketler
satır, uzun

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
uzun satır fav Help - Yardım 1 25 Ocak 2012 00:44


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76