ouvrir un fichier texte

Question

salut tout le monde,
je dois faire un petit prog sensé récupérer des infos à partir d'un fichier texte.
Sur chaque ligne du fichier texte, il y a 6 champs.
Ces champs sont séparés par des tabulations.
J'aimerais savoir comment ouvrir le fichier, pour l' "analyser" avec le prog que je suis en train de faire, et ensuite, comment lire une à une les lignes de ce fichier.
J'ai essayé d'utiliser une source de ce site (celle qui fait une copie du fichier texte dans une stringlist, puis qui l'envoie dans un mémo ou un richedit), mais delphi ne détecte pas les retours chariots (#13).

Voilà

@+,
Kwentinn

cs_Bestiol · Answer

C'est bien facile, ça... "Delphi ne détecte pas les retours chariots" !!!  :big) 

Si tu testes avec #13#10, peut-être que cela marchera mieux !! 
Sinon, pour classer tes données, peut-être ferais-tu mieux, si tu le peux, d'utiliser un fichier INI... Tu n'as plus vraiment tout le côté "analyse" à faire !

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

kwentinn · Answer

bah, j'avais déjà testé le #13#10 pour détecter les retours chariots... mais non, ça ne marche pas :/ ça doit être à cause du fait qu'on copie le fichier texte ligne par ligne dans le memo ou le richedit... mais là, c bon, j'ai trouvé une autre solution, merci quand même du tuyau

thx
Kwentinn

yoghisan · Answer

Tiens voila un exemple
Texte du fichier à lire :
Couleur=clwhite
width=2
etc...

Procedure blabla.....
var f:textfile;
    memorisation:array [0..100] of string; //Attention variable locale ici
    i:integer;
begin
  // Ou est le logiciel ?
  repertoire:=ExtractFilePath(Application.ExeName);
  // Lire le texte
  assignfile(f,repertoire_exe+'texte.txt');
  reset(f);
  // Traitement des lignes une a une 
  i:=0;
  while not eof(f) do begin
    // Lire une ligne
    readln(f,s);
    // Traitement de la ligne
    // pour une tabulation, je ne sais pas mais la solution ne doit pas etre loin de celle la
    l:=pos('=',s);
    // Memoriser ce que l'on souhaite
    memorisation[i]:=copy(s,l+1,length(s));
    // Passer a la ligne suivante
    inc(i);
  end;
  closefile(f);
  // A toi de voir pour la suite
end;

J'espere que ca t'aidera sachant que je ne reponds pas a ta question sur les tabulations

yoghisan

samy_13 · Answer

Bonjour,
moi j'ai une appli a faire qui consisite &#224; lire dans un fichier texte ou ya d&#233; s&#233;parateur ki sont ',' et &#224; extraire les chaines entre les ',' comment faire ??De plus je dois les stock&#233;es dans une base de donn&#233;es sous SQL  serveur

Aidez moi svp

Ouvrir un fichier texte

4 réponses

Votre réponse

Discussions similaires