19 lines
635 B
Awk
19 lines
635 B
Awk
# print content of field `field`
|
|
BEGIN { FS = ":"; regex = "^" field; }
|
|
/^BEGIN:VEVENT$/ { inside = 1 }
|
|
/^END:VEVENT/ && inside { exit }
|
|
$0 ~ field { content = $0; next; }
|
|
/^ / && content { content = content substr($0, 2); next; }
|
|
/^[^ ]/ && content { exit }
|
|
END {
|
|
if (!type) { exit }
|
|
# Process content line
|
|
content = substr(content, index(content, ":") + 1);
|
|
gsub("\\\\n", "\n", content);
|
|
gsub("\\\\N", "\n", content);
|
|
gsub("\\\\,", ",", content);
|
|
gsub("\\\\;", ";", content);
|
|
gsub("\\\\\\\\", "\\", content);
|
|
print content;
|
|
}
|