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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Şubat 2011, 04:09   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (4)
IF Ticaret Yüzdesi:(%)
Siir Yazici




Selam Aleikum saygideger kardeslerim. Ben bir kod yazmayi dusundum ama bilgisizlikten beceremedim acikcasi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yapmak istedigim soyle birsey..

.siir kelime yazdigimda bi kanalda verilen cevabin su olmasini istiorum

K
E
L
I
M
E

boyle harfleri ayirip alt alt'a yazmasini istiorum. Ve harfine gore bisey yazmasini istiorum. Ornek :
.siir kelime

Kefende gordum kendimi
Elif basimda dururken
Lam geldi ortadan
Ilham gibicenneten
Mum oldu nefsim
Elem tera okuyunca

buna ulasabilmek icin dusundum $2 kullaniyim ama butun kelimeyi istemiorum ki :S Peki $gettok yada $findtok mu kullanicam? En kisa temiz yolu nasil olabilir bir fikir verebilirmisiniz rica etsem kardesler.. simdiden hepinize tesekkur ederim. ALlah yardimciniz olsun.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 13 Şubat 2011, 12:23   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




Sizleri tokenize sihirbazı ile tanıştırayım :

//tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $*

 
Alıntı ile Cevapla

Alt 14 Şubat 2011, 09:30   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (4)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sizleri tokenize sihirbazı ile tanıştırayım :

//tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $*

Difuzyon hocam yanit verdigin icin cok tesekkur ederim. Verdigin //tokenize 32 $regsubex(kelime,/(.)/g,$+($chr(32),\1)) | echo -a $* ile biraz oynadim kelime yerine farkli bisey yazinca ne istersem onu siraliyor alt alta. Peki ben .siir deneme yazdigimda yada .siir difuzyon yazdigimda nasil algiliyacak ikinci kelimeyi?

 
Alıntı ile Cevapla

Alt 14 Şubat 2011, 12:31   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




mIRC ana dizininde siir.txt belgenizin var olduğunu ve içeriğinin aşağıdaki gibi olduğunu varsayarsak:
Alıntı:
Ansızın rüyalarıma girmeni seviyorum
Belalı gecenin ortasında
Cesurca seni seviyorum demek istiyorum
Çıkıp bir gün karşına
Denize karşı iki tek atıp
Elele geçerek mahalleden
Fiyaka satmak istiyorum gökyüzüne
Göstermeden içimizdeki hüznü
Hastalanmış hayallerimizide alıp
Ilık bir yaz yağmuru altında
İliklerime kadar ıslanmak istiyorum seninle
Jiletinine ismini yazdığım sigara paketinde
Kora özlem duyan birkaç sigarayı içip
Lanet yağdırırken sensizliğe
Meyhane kokan akşamlarda
Ne olurdu yanımda olsan demek istiyorum istemeden
Orda bir sen var uzakta biliyorum
Ölümüne benim olan
Parıldadığını sana yıldızların ortasında
Rastlayıpta açılamadığım
Seviyorum diyemediğim
Şarkılarda dinlediğim
Ta uzaklarda bir sen var orda biliyorum
Uzanıpta Erişemediğim
Ürkek bakışlarında
Vakitli vakitsiz ağladığım
Yazdan kalma güneşin altında
Zehir zemberek aşkların ortasında

Bu siir.txt belgesinde dikkat ettiyseniz her satır başlangıcındaki her harften bir satır mevcut.

Aşağıdaki kodu botunuza eklediğinizde herhangi bir kanalda .siir kelime yazıldığında kelime karşılığı olan satırları size sunacaktır.

Önce "kelime"yi tokenize ile ayrıştırıyoruz ardından satır başlangıçlarını bu ayrıştırma ile filtreliyoruz.

Filtrelediğimiz satırları yeni belgeye aktarıyoruz sonuç olarak da kanala yazdırıyoruz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:.siir &:#:{ $iif($isfile(okut.txt),write -c okut.txt) tokenize 32 $regsubex($upper($replace($strip($2),ı,I)),/(.)/g,$+($chr(32),\1)) filter -ffg siir.txt okut.txt /^ $* /xi play $chan okut.txt 700 }

Uygulamadan bir görünüm:

[12:24] <Cenk> .siir difuzyon
[12:24] <@Difuzyon> Denize karşı iki tek atıp
[12:24] <@Difuzyon> Ilık bir yaz yağmuru altında
[12:24] <@Difuzyon> Fiyaka satmak istiyorum gökyüzüne
[12:24] <@Difuzyon> Uzanıpta Erişemediğim
[12:24] <@Difuzyon> Zehir zemberek aşkların ortasında
[12:24] <@Difuzyon> Yazdan kalma güneşin altında
[12:24] <@Difuzyon> Orda bir sen var uzakta biliyorum
[12:24] <@Difuzyon> Ne olurdu yanımda olsan demek istiyorum istemeden

Baktım da fena bir şiir olmamış
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 14 Şubat 2011, 13:16   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




Hocam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
* /play: unable to open 'C:\Users\Emrax\Desktop\Destek\okut.txt' (line 5, script39.ini)

hatasını veriyor.

 
Alıntı ile Cevapla

Alt 14 Şubat 2011, 15:00   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




Emrax , kod çalışıyor yönergeleri dikkatlice okuyup tekrar denemelisin.

 
Alıntı ile Cevapla

Alt 15 Şubat 2011, 09:07   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (4)
IF Ticaret Yüzdesi:(%)
Cevap: Siir Yazici




Harikasin hocam ayakta alkisliorum seni cok tesekkur ederim ellerine saglik. Umarim bu koddan yararlanabilecek arkadaslar olucaktir Allah'in izniyle.

[23:05:13] <deneme> .siir bartu
[23:05:15] <DeLiKaNLi> Belali gecenin ortasinda
[23:05:16] <DeLiKaNLi> Ansizin rüyalarima girmeni seviyorum
[23:05:16] <DeLiKaNLi> Rastlayipta açilamadigim
[23:05:17] <DeLiKaNLi> Ta uzaklarda bir sen var orda biliyorum
[23:05:18] <DeLiKaNLi> Uzanipta Erisemedigim

buda fena deil kardes
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
siir, yazici


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

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
Son Bir Siir Sır Şiir, Hikaye ve Güzel Sözler 0 19 Ağustos 2013 12:02
siir yazdirmak ScladeR mIRC Scripting Sorunları 8 04 Ocak 2009 15:05
SiiR CEViRiLEBiLiR Mi? karadenizprensi IF Ekstra 0 07 Eylül 2007 13:22