Creation + trie d'un TFileStreamRésolu

Question

Bonjour, 
Je voudrais creer un TFileStream pour y ins&#233;r&#233; des numero extrait d'un fichier txt.

Ex d'une ligne du fichier txt:
Bon de livraison 00069036 du 30/07/2005 Client XXX.....

Je voudrais extraire le numero 00069036. J'ai beaucoup de ligne a extraire et a inserer dans le TFileStream.
Une fois ceci fait, je voudrais trier mon TFileStream dans l'ordre croissant.

Je ne sais pas trop comment faire, merci de votre aide.

cs_grandvizir · Accepted Answer

TStringList vaut plus qu'un tableau &#233;tant donn&#233; toutes les fonctionnalit&#233;s mise &#224; ta disposition : nombre d'item, recherche de position, rapidit&#233; de manipulation... Y'a plein d'ASM et de pointeurs.

Pour un tableau dynamique :
var Tableau : array of quelquechose;
begin
  SetLength(Tableau,Taille);
  //Pr&#234;t
end;

Fonctionne D5+...

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

cs_grandvizir · Answer

Utilise plut&#244;t un TStringList pour dresser des listes de num&#233;ros, quitte apr&#232;s &#224; l'enregistrer dans un fichier texte.

Apr&#232;s, tu fais :
MonStringList.Sort;

Utilise la fonction Copy(...) pour extraire des sous-cha&#238;nes.

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Dezouille · Answer

Sinon je pense avoir une petite id&#233;e sur la fa&#231;on de faire. En faite j'ai pens&#233;e apres reflection, d'oublier le TFileStream, et de cr&#233;er un tableau dinamique, et ensuite de faire un tri a bulle. Mais comment cr&#233;er mon tableau dinamique?

Dezouille · Answer

Ouais, je vais faire un copy pour extraire les num. J'ai vu sa dans l'aide delphi (j'aurais du regarder avant). Mais pour le tableau dynamique, comment je peux faire d'apres toi?

Dezouille · Answer

Merci. 
Dans:
 var Tableau : array of quelquechose;
 Le quelquechose correspond a quoi?

Et fonctionne D5+... &#231;a veut dire quoi?

cs_grandvizir · Answer

array of integer
array of string
array of TStringList
Bref... un tableau de types (structures ou objets)

Les array de taille ind&#233;finie ne sont pas support&#233;s par tous les linkers Delphi, notamment Delphi (D3) pour le 32 bits. Quand je met D5+, cela veut dire compatible pour Delphi version 5 et versions plus r&#233;centes. Mais il me semble m&#234;me que D4 supporte ce genre de tableaux.

===========
ViewVite XP : HTML

Dezouille · Answer

Ah d'accord, c'est bon pour moi alors je bosse sous Delphi 7.
Merci pour ces renseignement

Dezouille · Answer

Pour inserer dans mon tableau ce que j'ai extrait avec la fonction copy(...)? quelle est la synthaxe?

Dezouille · Answer

Encore une question:
Je voudrais lui dire:
Si Debut_de_la_ligne commence par 'Bon' alors...
Comment lui demander si la ligne du fichier txt commence par 'Bon'?

cs_grandvizir · Answer

Pour inserer dans mon tableau ce que j'ai extrait avec la fonction copy(...)? quelle est la synthaxe?

Si tu as un array of string et que l'index num&#233;ro N est disponible, tu fais :
   MonTableau[N]:= 'Ma chaine de caract&#232;res';
...sachant que  string  est illimit&#233; dans la longueur (l'allocation de m&#233;moire automatique et dynamique).

Sache que quand tu fais SetLength(Tableau,N), le tableau va de la case 0 &#224; N-1. C'est pas s&#251;r, mais en tout cas, ne te fais pas avoir avec les index qui ne commencent jamais &#224; 1 (c'est d'ailleurs tr&#232;s rare les tableaux & listes qui commencent &#224; 1).

De m&#234;me pour les listes, la derni&#232;re valeur est donn&#233;e par :
MaListe[MaListe.Count-1]; //si et seulement si MaListe.Count>0


<HR>

Comment lui demander si la ligne du fichier txt commence par 'Bon'?

const Marque  = 'Bon';
begin
  if LowerCase(Copy(MaChaine,1,Length(Marque)))= LowerCase(Marque)  then 
    ShowMessage('MaChaine commence par "'+Marque+'", sans g&#233;rer la casse des caract&#232;res.');
end;

Si tu charges ton fichier texte &#224; ligne dans un TStringList, alors le d&#233;but du fichier sera donn&#233; par :
MaListe[0];

La longueur de cette cha&#238;ne d&#233;pend uniquement du fichier consid&#233;r&#233;.

Cependant, il ne faut pas charger des fichiers &#233;normes dans les listes. Faut alors simuler les TStringList par des lectures lin&#233;aires des fichiers &#224; l'aide des fonctions de base : AssignFile, Reset, ReadLn, Eof et CloseFile;

 =============
ViewVite XP : HTML

Dezouille · Answer

Pour ins&#233;rer dans mon tableau, je ne peux pas faire directement?

MonTableau[N]:=copy(...);

cs_grandvizir · Answer

Ben non, car la case n'est pas allou&#233;e => exception EAccessViolation.

Tu dois d'abord red&#233;finir la nouvelle longueur (de taille N+1), et apr&#232;s tu peux faire ce que tu veux sur la case N.

Tu utiliserais les listes, qu'il suffirait juste de faire :
MaListe.Add(Copy(...));

===========
ViewVite XP : HTML

Creation + trie d'un TFileStream

12 réponses

Votre réponse

Discussions similaires