#!/bin/bash
# 08.02.04
# Hasznalat: zhk2csv_hu <filenev kiterjesztes nelkul>

# Szukseges file-ok:
# <filenev>.zhk (Ahogy az az olvassel.txt-ben szerepel)
# <filenev>.kov (Felev kovetelmenyei, ahogy az olvassel.txt-ben szerepel.)

cat $1.zhk |

# A tizedespontot tizedesvesszore csereljuk:

awk -F\. '{
if ($1 !~ /^\#/) {
 for (i=1; i<NF; i+=1) {
  if ($(i+1) ~ /^[0-9]/) printf($i",") ;
  if ($(i+1) !~ /^[0-9]/) printf($i".") ;
 }
 print($NF)
}

if ($1 ~ /^\#/) print($0);
}' |

# Most pedig beteszunk annyi pontosvesszot, amennyi kell, a vegere pedig |-t:

awk -F\; '{
if ($1 !~ /^\#/) {
 for (i=1; i<5+hfszam+3*zhszam+vizsgaszam; i+=1) printf($i";");
 print($(5+hfszam+3*zhszam+vizsgaszam)";|")
}

if ($1 ~ /^\#/) print($0);
}' `cat $1.kov` |

# Es most mindent beidézõjelezünk

awk -F\; '{
if ($1 !~ /^\#/) {
 for (i=1; i<NF; i+=1) {
  printf("\""$i"\";") ;
 }
 print("\""$NF"\"")
}

if ($1 ~ /^\#/) print("\""$0"\"");
}' > $1.csv
