Tech System server aplha versiyonun içinde olan ve on rawmode, on usermode da kullanabileceğiniz, +mn-f+o+k-jl gibi modlardan + olanları - olanları ayırmanızı sağlar
;kullanım: $getsign(-pnr(p:positive, n:negative, r:regular expr),[gelen string])
;v:0.1 exp:8/şub/2007 @vars: $1 $2 [-pnr(p:positive, n:negative, r:regular expr)] [gelen string]
;info: Add chars to a spicified text with no tokenize
alias getsign {
if !$regex($1,^\-) || !$2 { echo $color(info text) -t getsign: yetersiz parametre | return }
var %str = $2
if !$regex(%str,^(\+|\-)) { %str = $+(+,%str) }
%str = $regsubex(%str,/(\+|\-)/g,$+(;,\1))
var %i = $numtok(%str,59), %signs = $null
while %i {
var %part = $gettok(%str,%i,59)
kullanımı:
+ modlar için $getsign(-p,modlar)
örnek: //echo $getsign(-p,+mn-f+o+k-jl) pozitif modları döner yani komn
- modlar için $getsign(-n,modlar)
örnek: //echo $getsign(-m,+mn-f+o+k-jl) negatif modları yani jlf döner
r parametresi:
verilen modların döngüsü regexteki expressionda yani(|) ile birleştirir
örnek: //echo $getsign(-pr,+mn-f+o+k-jl) ,(k|o|m|n) değerini döner
