- n=$(printf %s "$values[N]" \
- | sed -rn 's:^([^;]*)(;[^;]*)(;[^;]*)?(;[^;]*)?(;[^;]*)?$:4 2 3 1 5:gp' \
- | sed -r 's:,: :;s:;: :g;s: +: :g;s:^ $::;'
- )
- fullname="${n:-${values[FN]:-${values[NICKNAME]}}}"
-
- tel=''
- for n in TEL TEL{0..10}; do if (echo "$values[$n]" |grep -Eq '[0-9]'); then
- [ -n "$tel" ] && tel="$tel\\newline $values[$n]" || tel="$values[$n]"
- fi; done
-
- note=''
- for n in NOTE NOTE{0..10}; do if [ -n "$values[$n]" ]; then
- [ -n "$note" ] && note="$note\\newline $values[$n]" || note="$values[$n]"
- fi; done
- echo -E "$fullname & $values[BDAY] & $tel & $note"
+ if [ -r "$cardfile" ]; then
+ vcf_parse "$cardfile" |while read -r line; do
+ declare -A tag
+ case "$line" in
+ value*) eval "$line";;
+ tag*) eval "$line";;
+ key*)
+ if [ -z "$key" ]; then
+ eval "$line"
+ else
+ values[$key]="$(tex_clean "$value")"
+ for t in ${(k)tag}; do
+ tags[${key}_$t]="$tag[$t]"
+ done
+ eval "$line"
+ if [ -n "$values[$key]" ]; then
+ n=0
+ while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done
+ key=$key$n
+ fi
+ unset value
+ unset tag
+ fi
+ ;;
+ esac
+ done
+
+ n=$(printf %s "$values[N]" \
+ | sed -rn 's:^([^;]*)(;[^;]*)(;[^;]*)?(;[^;]*)?(;[^;]*)?$:\4 \2 \3 \1 \5:gp' \
+ | sed -r 's:,: :;s:;: :g;s: +: :g;s:^ $::;'
+ )
+ fullname="${n:-${values[FN]:-${values[NICKNAME]}}}"
+
+ tel=''
+ for n in TEL TEL{0..10}; do if (echo "$values[$n]" |grep -Eq '[0-9]'); then
+ [ -n "$tel" ] && tel="$tel\\newline $values[$n]" || tel="$values[$n]"
+ fi; done
+
+ note=''
+ for n in NOTE NOTE{0..10}; do if [ -n "$values[$n]" ]; then
+ [ -n "$note" ] && note="$note\\newline $values[$n]" || note="$values[$n]"
+ fi; done
+ printf '%s & %s & %s & %s\n' "$fullname" "$values[BDAY]" "$tel" "$note" \
+ | sed -r ':X;N;$!bX; s;\n;\\newline ;g'
+ fi