Ç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?