Çevrimdışı

belge.txt dosyasinin içinde abcçdefgğhıijklmnircforumlarioprsştuüvyz yazisi var. Ben bu ircforumlari yazısının sağında veya solunda bulunan iki üç harfi nasıl alabilirim? Garip bi soru ama çok lazim. Bir yolu var mı? Bu yazı veriablese sığmayacak kadar uzun ve kelimeler arası boşluk yok.

 

Çevrimdışı

abcçdefgğhıijklmnircforumlarioprsştuüvyz için:

$read(dosya.txt,w,*ircforumlari*) içinde ircforumlari geçen satırın tamamını verir. (> abcçdefgğhıijklmnircforumlarioprsştuüvyz )

$pos($read(dosya.txt,w,*ircforumlari*),ircforumlar i) ircforumlari kelimesinin başladığı karakter numarasını verir. (> 18)

$left($read(upload.txt,w,*ircforumlari*),$pos($rea d(upload.txt,w,*ircforumlari*),ircforumlari)) ise ircforumlari yazısından önceki kısmı verir. Soldan başlayıp 18. karaktere kadar olan kısmı. Sen $left() $mid() $right() kullanarak istediğin yeri almalısın.

Umarım anlamışsındır...

 

Çevrimdışı

elt33 hocam ben bir addon yazdım
#realkelime on
on *:input:#: {
if ($left($1,1) != /) {
if ($read(kelime.txt,w,$1- $+ *)) say $gettok($v1,2,61)
else { say $1- }
halt
}
}
#realkelime end

ama sadece eşleşen kelime var ise çalışacak ve eşleşen kelimeyi yollayacak mesela ben s yazdığımda da selamın aleyküm yazıyor
oysa ben sadece slm yazdığımda yazmasını istiyorum yardım edersen sevinirimmm

 

Çevrimdışı

delikan82 Nickli Üyeden Alıntı

elt33 hocam ben bir addon yazdım #realkelime on on *:input:#: { if ($left($1,1) != /) { if ($read(kelime.txt,w,$1- $+ *)) say $gettok($v1,2,61) else { say $1- } halt } } #realkelime end ama sadece eşleşen kelime var ise çalışacak ve eşleşen kelimeyi yollayacak mesela ben s yazdığımda da selamın aleyküm yazıyor oysa ben sadece slm yazdığımda yazmasını istiyorum yardım edersen sevinirimmm

olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine..

alias msg_kntrl {
var %s_ $gettok(%safe-word,0,44)
var %q_ 1
while (%q_ <= %s_) {
if ($wildtok($strip($2-),* $+ $gettok(%safe-word,%q_,44) $+ *,0,32) >= 1) { set %yy_ [ $+ [ $1 ] ] 1 }
inc %q_
}
if (%yy_ [ $+ [ $1 ] ]) { .unset %yy_ [ $+ [ $1 ] ] | halt }
else { who $1 | .enable #redirct | set %rea_son $2- | .unset %yy_ [ $+ [ $1 ] ] }
}

KoLay gELsin....

 

Çevrimdışı

djiNn Nickli Üyeden Alıntı

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:input:#:{ if ($left($1-,1) != /) { var %s_ $lines(kelime.txt) var %q_ 1 while (%q_ <= %s_) { if ($wildtok($strip($1-),* $+ $read(kelime.txt,%q_) $+ *,0,32) >= 1) { say $read(kelime.txt,%q_) | halt } inc %q_ } } } olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine.. alias msg_kntrl { var %s_ $gettok(%safe-word,0,44) var %q_ 1 while (%q_ <= %s_) { if ($wildtok($strip($2-),* $+ $gettok(%safe-word,%q_,44) $+ *,0,32) >= 1) { set %yy_ [ $+ [ $1 ] ] 1 } inc %q_ } if (%yy_ [ $+ [ $1 ] ]) { .unset %yy_ [ $+ [ $1 ] ] | halt } else { who $1 | .enable #redirct | set %rea_son $2- | .unset %yy_ [ $+ [ $1 ] ] } } KoLay gELsin....

kardeş bunların ikisede olmadı ama yinede ilgin için sağol bu soruna hala çözüm bulamadımm canımı sıkıyorr

 

Çevrimdışı

zaten 2. ci olmaz bu kadar da hazirci olmayin bak ne demişim

açık kaynak kodu verip

olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine..

sen denedikten sonra bile ugrasmiyorsan Ben Nabiyim

Kolay Gelsn..

 

Çevrimdışı

ben soru botunun soru textindeki cevaplar disinda (soru ile cevaplar ayni) hic bisiyi ekraninda gormesini istemioırum bunu nasil yaparis