[Solved]Does function exists?

[Gintaras]

Possibly this will be faster. Use perf to measure speed.

Function Function138

Code:

Copy      Help

function [$_Resstr] [ARRAY(str)&_Resarray]

int i n=iif(&_Resarray _Resarray.len numlines(_Resstr))
for i 0 n
,str& r
,if(&_Resarray) &r=_Resarray[i]; else _s.getl(_Resstr -i); &r=_s
,out r
,

test
Macro Macro1099

Code:

Copy      Help

Function138 "one[]two"

ARRAY(str) a="three[]four"
Function138 0 a