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

7Beğeni(ler)
  • 1 Post By UpsIDintAgain
  • 1 Post By el33t
  • 4 Post By Feragat
  • 1 Post By cinaryigit

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Ağustos 2006, 09:09   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
$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
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
; 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
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 06 Ekim 2006, 14:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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ı
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.

 
Alıntı ile Cevapla

Alt 06 Ekim 2006, 14:59   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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.

 
Alıntı ile Cevapla

Alt 07 Temmuz 2007, 01:50   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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

 
Alıntı ile Cevapla

Alt 28 Temmuz 2007, 04:49   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: $read Mantığı txt'den okutmak..




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

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

 
Alıntı ile Cevapla

Alt 20 Kasım 2019, 14:34   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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

 
Alıntı ile Cevapla

Alt 25 Kasım 2019, 19:33   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: $read Mantığı txt'den okutmak..




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:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:b:#:msg # Eşleşen kelime $matchkey

Sonuç:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[19:23] <Feragat> b [19:23] <raptor> : eşleşen kelime b [19:23] <Feragat> a [19:23] <Feragat> Beyhan [19:23] <Feragat> beyhan [19:24] <Feragat> B [19:24] <raptor> : eşleşen kelime b [19:24] <Feragat> b [19:24] <raptor> : eşleşen kelime b

Örnek 2:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/\b(b)\b/i:#:msg # Yakalanan veri $regml(1)

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

__________________
Artık yokum. The end.

Konu Feragat tarafından (25 Kasım 2019 Saat 19:35 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 26 Kasım 2019, 04:27   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: $read Mantığı txt'den okutmak..




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

 
Alıntı ile Cevapla

Alt 16 Ağustos 2021, 02:20   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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

 
Alıntı ile Cevapla

Alt 02 Eylül 2021, 12:40   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: $read Mantığı txt'den okutmak..




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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $findfile(IP,$+($2,.txt),0) = 0 { msg # $2 ip adresine ait kayıt bulunamadı! } else { msg # $2 ip adresine ait son 15 kayıt listeleniyor... var %i = $calc($lines($findfile(IP,$+($2,.txt),1)) -15) while %i <= $lines($findfile(IP,$+($2,.txt),1)) { msg # $read($findfile(IP,$+($2,.txt),1),%i) inc %i } msg # $2 ip adresine ait toplam $lines($findfile(IP,$+($2,.txt),1)) kayıt vardır. }


__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına

Konu YouMyCure tarafından (02 Eylül 2021 Saat 12:48 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
$read, mantigi, mantığı, mirc, mirc download, mirc indir, okutmak, read, txtden


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Önermeler Mantığı.. xena Felsefe 0 16 Mayıs 2014 22:17
Log.txt okutmak ? kup{a}pazl Eggdrop, NeoStats, BNC 0 03 Ocak 2010 22:54
$Read Mantığı Ile Satırları 10Dk Ara ile Sıra ile nasıl okutucam? shAnk mIRC Scripting Sorunları 1 15 Eylül 2007 23:56