קוקו

# // Convert csv to tab delimited

{

# // ignore case difference

IGNORECASE = 1;

#//inQuotes

#//0=normal, 1=in quotes

inQuotes = 0;

for(i=1; i <= length($0); i++)

{

c = substr($0, i, 1)

if(c == "\t") #// tab in csv file? scrap it

printf("\\t");

else

if(c == "\"")

inQuotes = ! inQuotes; #// toggle quotes flag

else

if(c == "," && inQuotes) #// comma in quotes - print it

printf("%s",c);

else

if(c == "," && ! inQuotes) #// comma out of quotes - convert to tab

printf("\t");

else

printf("%s",c); #// everything else - print it

}

printf("%s","\n")

}

Query List =
/*1*/ SELECT '>', :A1, '|', :A2, :A3
FROM DUMMY
ASCII ADDTO 'C:\TMP\TEST.TXT';

Execute Query =
1.SELECT
:A1 = '"bla1","bla2","bla3","bla4"';
:A2 = '';
:A3 = '';
Return value = 1

Query List =
/*1*/ SELECT '>', :A1, '|', :A2, :A3
FROM DUMMY
ASCII ADDTO 'C:\TMP\TEST.TXT';

Execute Query =
1.SELECT
:A1 = 'tst1,tst2,tst3,tdt4';
:A2 = '';
:A3 = '';
Return value = 1