Forum

note
description: "passe un fichier QIF en format CSV : quif_to_csv file1.qif file2.csv"
date: "$Date$"
revision: "$Revision$"

class
APPLICATION

inherit
ARGUMENTS_32

create
make

feature {NONE} -- Initialization

make
-- Run application.
do
create champ.make_empty
create list_var.make_filled ("",1,7)
create input_file.make_open_read (argument (1))
create output_file.make_open_write (argument (2))
if is_input_qif then
if cut_head then
traite_file_input
end
else
print ("%NErreur : Le fichier " + argument (1).out + " n'est pas compatible%N")
end
end

is_input_qif : BOOLEAN
-- analyse les premières lignes pour vérifier que le fichier est valide :
-- c'est un QIF et c'est mon compte
do
input_file.start
input_file.read_line
champ := input_file.last_string
if champ.is_equal ("!Account") then
input_file.read_line
champ := input_file.last_string
Result := champ.is_equal ("NBank account 0430527C025")
end
end

cut_head : BOOLEAN
-- input_file lit le début du fichier (quelques lignes descriptives du compte)
-- jusqu'à la fin d'en-tete = !Type:Bank
-- le traitement débutera par la ligne suivante
do
from input_file.start
until Result or else input_file.exhausted
loop
input_file.read_line
champ := input_file.last_string
Result := champ.is_equal ("!Type:Bank")
end
if not Result then
print ("%NErreur : en-tete fichier anormal%N")
end
end

traite_file_input
-- lit chaque ligne et la traite selon son contenu :
-- afficher l'anomalie
-- demander le placement ad'hoc pour la sortie
-- construire et ecrire l'enregistrement de sortie (placer ';' et fin de ligne)
local i : INTEGER -- index de list_var (champ de sortie dans l'ordre de sortie
do
from -- le fichier a été positionné par 'cut_head' au bon endroit
until input_file.exhausted
loop
input_file.read_line
create champ.make_from_string (input_file.last_string)
if champ.count > 0 and then attached champ.item (1) as l_c then
-- l'item (1) existe
inspect l_c
when '^' then
print ("%N " + champ)
write_output_file
when 'D' then
maj_output (1)
when 'C' then
maj_output (2)
when 'N' then
maj_output (3)
when 'P' then
maj_output (4)
when 'M' then
maj_output (5)
when 'T' then
maj_output (6)
when 'L' then
maj_output (7)
else
print ("%NErreur : type de champ inconnu " + champ.out + "%N")
end
else
do_nothing
end
end
end

maj_output (i : INTEGER)
-- ampute 'champ' de son 1er caractère
-- range le rest dans list_var à la ième place
do
champ.remove_head (1)
list_var.put (champ, i)
end

write_output_file
-- concatene les items de list_var en les séparant avec ';'
-- ajoute la chaine dans output_file
-- ajoute 'fin de ligne' dans output_file
local i : INTEGER
ligne : STRING
do
from i := 1
create ligne.make_empty
until i > 7
loop
ligne := ligne + list_var.item (i)
if i < 7 then
ligne := ligne + ";"
end
i := i + 1
end
print ("%N " + ligne)
output_file.put_string (ligne)
output_file.new_line
create list_var.make_filled ("",1,7) -- reinit list_var
end

feature -- Access

list_var : ARRAY [STRING]
champ : STRING
input_file: PLAIN_TEXT_FILE
output_file: PLAIN_TEXT_FILE

end