-SET &ECHO = 'ALL';

-DEFAULT &INPUT = 'England , FRANCE , W germany, italy'
-DEFAULTH &ITEM = ''
-DEFAULTH &ITEM_LIST = ''


-REPEAT LP_LIST FOR &N FROM 1 TO 10;
-SET &ITEM = GETTOK('&INPUT.EVAL', &INPUT.LENGTH, &N, ',', 10, 'A&INPUT.LENGTH');
-SET &ITEM = UPCASE(&ITEM.LENGTH, '&ITEM.EVAL', 'A&ITEM.LENGTH');
-SET &ITEM = TRUNCATE(&ITEM);
-SET &ITEM = TRIM('B', '&ITEM.EVAL', &ITEM.LENGTH, ' ', 1, 'A&ITEM.LENGTH');
-IF &ITEM EQ '' THEN GOTO LP_LIST ;
 
-SET &ITEM_LIST = IF &N EQ 1 THEN '''' || &ITEM ||  '''' ELSE &ITEM_LIST || ',' || '''' || &ITEM ||  ''''  ;

-LP_LIST

-TYPE ITEM_LIST = &ITEM_LIST

TABLE FILE CAR
SUM
   DEALER_COST
   RETAIL_COST

BY COUNTRY
BY CAR
BY MODEL
WHERE COUNTRY IN (&ITEM_LIST)
END
-RUN

  
-* File ccer01.fex
-SET &ECHO = 'ALL';
-*
-DEFAULT &INPUT = 'ENGLAND,FRANCE,W GERMANY,ITALY'
-SET &ILEN=&INPUT.LENGTH;
-SET &STRLEN=ARGLEN(&ILEN,STRIP(&ILEN, &INPUT, ',', 'A&ILEN.EVAL'), 'I3');
-SET &CC=&ILEN - &STRLEN;
-SET &QLEN=&STRLEN + 3 * &CC;
-SET &ITEM_LIST = STRREP(&ILEN, &INPUT, 1, ',', 3, ''',''', &QLEN, 'A&QLEN.EVAL');
-TYPE ITEM_LIST = &ITEM_LIST
-*
TABLE FILE CAR
SUM
   DEALER_COST
   RETAIL_COST
BY COUNTRY
BY CAR
WHERE COUNTRY IN ('&ITEM_LIST');
END

quote:

Originally posted by Dave:
Don't do that !

I've done similar things before...
...and found out WebFocus had a out-of-the-box solution.

Only thing you have to do is make the input type "Text area" ( not an "Text box" ).

This will allow you to set the property "Multiple" to "Multiple".
And you can set the property "Multiple: Add quotes" to "Yes".

This will make the HTML convert the entered values to exactly what you want.

A,B,C -> "A" OR "B" OR "C"

and you can even use line-feeds or semicolon as seperator.


....and yes, I wish I knew this before I started adding quotes myself.

....and why doesn't type "input box" support this?



G'luck.

'This is an address,with a comma' OR 'And this is another one,with comma'