1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# tocsv.awk --- convert data to CSV format
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# April 2023
function tocsv(fields, sep, i, j, nfields, result)
{
if (length(fields) == 0)
return ""
if (sep == "")
sep = ","
delete nfields
for (i = 1; i in fields; i++) {
nfields[i] = fields[i]
if (nfields[i] ~ /["\n]/ || index(nfields[i], sep) != 0) {
gsub(/"/, "\"\"", nfields[i]) # double up quotes
nfields[i] = "\"" nfields[i] "\"" # wrap in quotes
}
}
result = nfields[1]
j = length(nfields)
for (i = 2; i <= j; i++)
result = result sep nfields[i]
return result
}
function tocsv_rec(sep, i, fields)
{
delete feilds
for (i = 1; i <= NF; i++)
fields[i] = $i
return tocsv(fields, sep)
}
|