| |
| |||||||
| Help - Yardım mIRC Scripting hakkında her konuda yardım alabileceğiniz bölümdür. |
 |
| | LinkBack | Seçenekler |
|
#1
05 Mart 2012, 08:37
| ||||
| ||||
 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ı  |
| Sponsored Links |
|
#2
05 Mart 2012, 22:39
| ||||
| ||||
| 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- }
} Komut: /oku |
|
#3
07 Mart 2012, 11:54
| ||||
| ||||
|
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
}
} |
|
#4
07 Mart 2012, 15:32
| ||||
| ||||
| 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 %ı
}
} |
|
#5
17 Nisan 2012, 07:35
| ||||
| ||||
|
İ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. |
|
| Etiketler |
| satır, uzun |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| uzun satır | fav | Help - Yardım | 1 | 25 Ocak 2012 00:44 |
