Çevrimdışı

; 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


<CipriX> selam
<Cipspy> Sanada selam
<CipriX> selam
<Cipspy> a.S. CipriX
<CipriX> selam
<Cipspy> Naber
<CipriX> selam
<Cipspy> Selaam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


<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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 

Çevrimdışı

/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ı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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

 

Çevrimdışı

$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.

 

Çevrimdışı

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

/play #kanal dosya.uzantı 0

kullanmanızı tavsiye ederim lag düşer

 

Çevrimdışı

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

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

 

Çevrimdışı

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

 

Çevrimiçi

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

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

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.

__________________
The Ghost of Christmas Past...

i'm here sometimes

 

Çevrimdışı

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

 

Çevrimdışı

@[Ü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

 

Çevrimdışı

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

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ü..

__________________