$read Mantığı txt'den okutmak..
 

; Txt'den okutma mantığı
Öncelikle arkadaşlar size $read'ı açıklıyalım
$read anladığımız gibi okuma anlamına gelir
Örnek verelim..
Biri özelimde selam derse ona selam.txt den rastgele cümleler okutalım
on *:text:*selam*:?:{
.msg $nick $read(selam.txt)
}
Evet selam.txt ye eklediğm cümleler
Sanada selam
a.S. $nick
naber ?
Selaaam :)

<CipriX> selam
<Cipspy> Sanada selam
<CipriX> selam
<Cipspy> a.S. CipriX
<CipriX> selam
<Cipspy> Naber
<CipriX> selam
<Cipspy> Selaam :)

burdaki text eventini değiştirerek diğer eventlerdede kullanabiliriz
---
Txt'den satır okutmak
diyorumki biri özelime naber yazarsa txtdeki 2. satırı sölemek istiyorum txt: naber.txt
on *:text:*naber*:?:{
.msg $nick $read(naber.txt,2)
}

txt'demizdeki yazılar..
iyi
iyi ya nolsun
kötüüü
berbaat :(

<CipriX> Naber
<Cipspy> iyi ya nolsun
<CipriX> Naber
<Cipspy> iyi ya nolsun

Kodumuzdaki naber.txt'den sonraki 2 2. satır demek..
Peki txt'de tek tek nasıl okuturuz 1 den başlayıp devam ederek..
Ben şöle bişi düşündüm
biri özelime selam yazarsa öle uzasın gitsin :)
on *:text:*selam*:?:{
if %selam == $null {
.set %selam 1
.msg $nick $read(selam.txt,%selam)
}
else {
.msg $nick $read(selam.txt,%selam)
.inc %selam
}

Kodumuz bu burdaki kodu açıklıyalım
if %selam == $null {
.set %selam 1
.msg $nick $read(selam.txt,%selam)
}
Burda diyorumki eğer %selam veriablesi boşsa %selam ı 1 al ve nicke 1. satırı oku
else {
.msg $nick $read(selam.txt,%selam)
.inc %selam
}
Burdada eğer boş değilse selam.txt de belirtilen satırı oku ve satır sayısını bir arttır..
gibi saçma bişi..

Yazan: CipriX

Yanıt: $read Mantığı txt'den okutmak..
 

/deniz /msg #diyalog $read deniz.txt,2 }
* /msg: Yetersiz veya eksik parametre (Satır 18, Alias2.com)

bende böyle bişey yaptım ama olmadı :(

/deniz komutuyla
bi tane deniz.txt nin içindeki yazıları #diyalog kanalına yollamak istiyorum yardımcı olursanız cok sevinirim.

Yanıt: $read Mantığı txt'den okutmak..
 

$read(deniz.txt,2) :: deniz.txt dosyasındaki 2. satır olarak döner.
$read(deniz.txt) :: deniz.txt dosyasından rasgele bir satır olarak döner.

Cevap: $read Mantığı txt'den okutmak..
 

eğer tüm dosya komple kanala aktarılacaksa

/play #kanal dosya.uzantı 0

kullanmanızı tavsiye ederim lag düşer

Yanıt: $read Mantığı txt'den okutmak..
 

$read(deniz.txt, s, aranacak-kelime)

bu kodda txt dosyasından kelime aratmanızı sağlar..

Cevap: $read Mantığı txt'den okutmak..
 

Sadece bir tek harf okutmak istersem ne yapacam? örnek: B hoş geldin gibi. Normalde Beyhan'ın içindeki B'yi de görüyor Beyhan diye çıkıyor

Cevap: $read Mantığı txt'den okutmak..
 

Eğer bunu text eventında yapacaksan wildcard *b* yerine direkt olarak b kullanabilirsin.

Örnek:
Sonuç:
Örnek 2:
üstteki \b \b operatörleri aklını karıştırmasın, Regexte \b Word Boundaries "Kelime Sınırları" anlamına gelir. Başına ve sonuna getirdiğimiz bir harfin veya kelimenin, kendi başına bir kelime olduğunu belirler. b filtresi ile beyhana değilde yalnızca b ye tepki vermesi sağlanır. Bu metakarakterin de kendi içinde bir kaç kuralı var ve gayet kullanışlıdır.

\b operatörü ile ilgili faydalı olabilecek kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

$read hakkında daha fazla bilgi almak istersen kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kolay gelsin.

Cevap: $read Mantığı txt'den okutmak..
 

Feragat emeğine, eline sağlık.

Cevap: $read Mantığı txt'den okutmak..
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstadım pm yolu ile mesaj atamıyorum yardıma ihtiyacım var edebilirsen çok memnun kalırım.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:20 -->-> Daha önceki mesaj 02:14 --

var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) burada belirtilen kodda txt dosyasında ne kadar döküman varsa yazıyor kanala ama ben istiyorum ki son 15 ini yazsın beceremedik bi türlü..

on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 9410,Mobil,$iif(%_port == 8401,Web,IRC))) Girişi
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
.write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
}

Bu kısıma da hub girişi var IRC.*****.Com ekleme gibi bi şansımız var mı ? @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstadım şimdiden teşekkkür ederim

Cevap: $read Mantığı txt'den okutmak..