Çevrimdışı

$gettok(Text,N,CHR(N)) identifierini açık bir kod halinde yazmak istesek yazabilirmiyiz acaba? Açık hali nasıl olurdu acaba?

Hani
alias deneme { kodlar... | return birşey } yazıp bir identifier yapılabildiği gibi $özelgettok() yapmak istersek $gettok() un açık hali nasıl olurdu ki $özelgettok() u yapabilelim.

Bunu neden sorduguma gelince;
ben $özelgettok(Text,N,"TEXT") gibi bir gettok yapmak istiyorum. Text içindeki aramayı chr(N) e göre değil "TEXT" e göre yapmasını istiyorum.

$özelgettok(Vatan soruyor bakalım cevap gelecekmi?,1,"ata") yazdığımda V
$özelgettok(Vatan soruyor bakalım cevap gelecekmi?,2,"ata") yazdığımda n soruyor bakalım cevap gelecekmi?

sonuclarını verecekmiş gibi... Yalnız $özelgettok() u oluştururken kesinlikle $gettok() dan yararlanılmamalı.

Cevap gelecekmi çok merak ediyorum. Yapana helal olsun.

[box=Moderator mesajı: el33t]Güzel ve kendini geliştirme açısından iyi bir konu olduğu için konu sabitlendi[/box]

 

Çevrimdışı

Senin ne istediğini tam olarak anlayamadım, daha fazla örnek verseydin daha iyi olurdu, örneğin ya TEXT içinde birden fazla ata varsa, 1. eşleşme için 1. atadan öncekiler, 2 için 1. atadan sonrakiler, 3 için 2. atadan öncekiler, 4 için 2. atadan sonrakiler şeklinde sanırım istediğin. Mantık olarak öyle olmalı en azından, işte benim yazdığım kod: (eminim daha iyisi yazılabilir ;P)

alias özelgettok { var %. = 1, %' = 1 | while $pos($1,$remove($3,"),%.) { var %{ = $pos($1,$remove($3,"),%.) | if $2 == %' { return $mid($1,1,$calc(%{ -1)) } | elseif $2 == $calc(%' +1) { return $mid($1,$calc($len($3) + %{)) } | inc %' 2 | inc %. } }

Örnekler;

$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,6,ata) :::: n'ın sorusuna?
..
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,5,ata) :::: Vatan napıyor? Vatan soruyor? Cevap gelecek mi V
..
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,4,ata) :::: n soruyor? Cevap gelecek mi Vatan'ın sorusuna?
..
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,3,ata) :::: Vatan napıyor? V
..
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,2,ata) :::: n napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?
..
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,1,ata) :::: V

--
Edit: 16 Şubat/14:12
Biraz daha düşündükten sonra daha kısa bir yol buldum. Bu tüm $3'leri $gettok() daki N olarak görüyor ve tıpkı $gettok() gibi çalışıyor ama "txt" olarak token kullanıyor.

alias özelgettok { var %. = $replace($1,$remove($3,"),$lf), %' = $2 | tokenize 10 %. | return $($+($,%'),2) }

Örnekler;

$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,1,ata) :: V
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,2,ata) :: n napıyor? V
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,3,ata) :: n soruyor? Cevap gelecek mi V
$özelgettok(Vatan napıyor? Vatan soruyor? Cevap gelecek mi Vatan'ın sorusuna?,4,ata) :: n'ın sorusuna?

 

Çevrimdışı

el33t ve MaeLStrOm tbrk ederim.

 

Çevrimdışı

Vatan Nickli Üyeden Alıntı

Yalnız $özelgettok() u oluştururken kesinlikle $gettok() dan yararlanılmamalı.

MaeLStrOm Nickli Üyeden Alıntı

alias özelgettok { var %a $replace($1,$3,$+(š,$1,š)) | $iif($2 == 2,set %get 3,set %get 1) | echo -a $gettok(%a,%get,154) | halt }

$gettok() kullanılmamalı sanırım.

 

Çevrimdışı

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


alias özelgettok { var %. = $replace($1,$remove($3,"),$lf), %' = $2 | tokenize 10 %. | return $($+($,%'),2) }

istediğim tam olarak buydu belki tam anlatamadım ama süper bir identifier oldu. Default olarak mIRC içerisinde yok ama $htmlfree gibi aslında mIRC içinde olması gereken fakat şuan bulunmayan bir identifier mış gibi oldu.

Yapana helal olsun demiştim. Hakkaten de helal olsun el33t. sen gerçek bir coder sın. Seninle anlaşamadığım tek konu soğuk olman
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Tekrar tebrikler.