Discussion :

[okparanoid]

Bonjour !

Si j'utilise la fonction read je peux lire plusieurs variables (chaine ou integer) sur une meme ligne mais cette solution ne me convient pas parce qu'elle rend l'utilisation de l'espace dans les chaines interdites...

Il y a-t-il une solution pour lire des lignes de fichiers de donnees brut separes par des ; au lieu des espaces ?

Ou mieux, il y a-t-il des fonctions qui donnent la possibilite de lire et d'enregistrer directement des fichiers csv ?

Merci pour vos reponses

[TicTacToe]

tu lis ta ligne entiere dans chaine:string
tu transformes tout tes [;] par des #13
tu mets cette chaine dans une tstringlist
et tu auras tout tes éléments dans ta liste

Exemple
chaine="un elt;1 2eme elt"

Résultat
Liste[0]=un elt
Liste[1]=1 2eme elt

(mais le [;] est interdit a ce compte dans les éléments, sinon faut gérer les guillemets de chaine...)

[qi130]

Regardes du coté des TStringList et de la propriété delimiter

[okparanoid]

Merci bcp a vous deux !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
f:textFile;
s:string;
 
stringlist:=tstringlist.Create;
 
while not(eof(f)) do
begin
   readln(f, s);
 
   stringlist.Clear;
   stringlist.Delimiter:=',';
   stringlist.QuoteChar:='"';
   stringlist.DelimitedText:=s;
end;
 
stringlist.free

il n'y a plus qu'a utiliser les stringlist[i]