Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias sparse {
var %text = salam 100 patlican 45 ekmek 15 su 10 konserve açacağı 120 domates betemek 15
;# v1
;noop $regsubex(%text,/([^0-9]+?)\s+([0-9]+)/g,$xvar(\n \1,\2))
;# v2
noop $regsubex(%text,/([^0-9]+?)\s+([0-9]+)/g,$xvar(\n,\1,\2))
}
alias xvar {
;echo 4 :v1: $replace($1,$chr(32),_) $2
echo 3 :v2: $+($eval(%),_,$1) $2 $3
set % $+ $replace($1,$chr(32),_) $2
}
basit bir yaklaşımla böyle olibilir.. Gerisini sen halledersin artık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonuç v1:
:v1: 1_salam 100
:v1: 2__patlican 45
:v1: 3__ekmek 15
:v1: 4__su 10
:v1: 5__konserve_açacağı 120
:v1: 6__domates_betemek 15
sonuç v2:
:v2: %_1 salam 100
:v2: %_2 patlican 45
:v2: %_3 ekmek 15
:v2: %_4 su 10
:v2: %_5 konserve açacağı 120
:v2: %_6 domates betemek 15