O
onnodehaan
Guest
Peter, One way to do it, without a loop. I know it's not the fastest way; but more fun 
startTime[ 6 ] = mtime. define variable cReplace as character. do outerLoop = 1 to outerMax. assign cReplace = ParamValue[paramloop] cReplace = replace(cReplace, ' ', '12') cReplace = replace(cReplace, '~"', '12') cReplace = replace(cReplace, '(', '12') cReplace = replace(cReplace, ')', '12') cReplace = replace(cReplace, ' ', '12') cReplace = replace(cReplace, '@', '12') cReplace = replace(cReplace, ',', '12') cReplace = replace(cReplace, ';', '12') cReplace = replace(cReplace, '=', '12') cReplace = replace(cReplace, ':', '12') cReplace = replace(cReplace, '~\', '12') cReplace = replace(cReplace, '/', '12') cReplace = replace(cReplace, '[', '12') cReplace = replace(cReplace, ']', '12') cReplace = replace(cReplace, '?', '12') lQuote = length(cReplace) <> length(ParamValue[paramloop]). end. endTime[ 6 ] = mtime. And on one occasion it was faster than looping "input","iters","case 1","case 2","loop 1","loop 2","mix" "value-quoted-and-aother-is-that-=-is-a-value-to-be-quoted",100000,435,427,4012,2091,3274,602 "isofafafanl",100000,510,511,1401,1967,2379,458 - last one is my replace option " -asf-wrw",100000,95,96,274,263,257,470 "value quoted and aother is that = is a value to be quoted",100000,96,96,874,266,1259,681 "utf-8",100000,502,511,732,1956,1225,441 """valuequoted""",100000,126,124,272,383,261,490 " spaced""value",100000,98,97,274,262,261,496 "spaced value ",100000,98,98,973,266,1429,488
Continue reading...
startTime[ 6 ] = mtime. define variable cReplace as character. do outerLoop = 1 to outerMax. assign cReplace = ParamValue[paramloop] cReplace = replace(cReplace, ' ', '12') cReplace = replace(cReplace, '~"', '12') cReplace = replace(cReplace, '(', '12') cReplace = replace(cReplace, ')', '12') cReplace = replace(cReplace, ' ', '12') cReplace = replace(cReplace, '@', '12') cReplace = replace(cReplace, ',', '12') cReplace = replace(cReplace, ';', '12') cReplace = replace(cReplace, '=', '12') cReplace = replace(cReplace, ':', '12') cReplace = replace(cReplace, '~\', '12') cReplace = replace(cReplace, '/', '12') cReplace = replace(cReplace, '[', '12') cReplace = replace(cReplace, ']', '12') cReplace = replace(cReplace, '?', '12') lQuote = length(cReplace) <> length(ParamValue[paramloop]). end. endTime[ 6 ] = mtime. And on one occasion it was faster than looping "input","iters","case 1","case 2","loop 1","loop 2","mix" "value-quoted-and-aother-is-that-=-is-a-value-to-be-quoted",100000,435,427,4012,2091,3274,602 "isofafafanl",100000,510,511,1401,1967,2379,458 - last one is my replace option " -asf-wrw",100000,95,96,274,263,257,470 "value quoted and aother is that = is a value to be quoted",100000,96,96,874,266,1259,681 "utf-8",100000,502,511,732,1956,1225,441 """valuequoted""",100000,126,124,272,383,261,490 " spaced""value",100000,98,97,274,262,261,496 "spaced value ",100000,98,98,973,266,1429,488Continue reading...