A voir également:
- Petit soucis sur une boucle
- Sql boucle foreach - Forum - SQL
- Html texte défilant en boucle - Forum - Javascript / DHTML
- Texte qui defile en boucle sans espace entre le debut et la fin ✓ - Forum - Javascript / DHTML
- Java boucle for list ✓ - Forum - Java
- Faire défiler des images en boucle html - Guide
3 réponses
Utilisateur anonyme
Salut Couf,
A priori tu essaye de faire un parseur est d'enregistrer le résultat dans un fichier texte. Quand je lis ton code je me dis qu'il y a un énorme problème de conception.
Ensuite il y a des problèmes de logique :
*Pourquoi déclarer ton tableau comme cela : chaine: array [1..24]of string;
Il serait plus avantageux de le faire ainsi
chaine: array [0..23]of string ce qui induirait
//
for 0 := 0 to 7 do
N_TS.Insert(i,chaine[i]);
Ca change rien sauf que ca optimise sacrément ton code (8 soustractions en moins à chaque boucle).
Ensuite :
For k:=7 downto 0 Do
begin
N_TS.Delete(k)
end;
C'est quoi ce Begin/End inutile ??
De plus
For k:=7 downto 0 Do
begin
N_TS.Delete(k)
end;
N_TS.Free;
Quel est l'intéret de supprimer les lignes si tu libères ton StringList immédiatement après ?
if telephone[3]='.' then
begin
telephone:= telephone + copy (ts[i+1],42,1);
nb:=copy (ts[i+1],43,2);
p:= copy (ts[i+1],49,6) ;
adresse1:= copy (ts[i+2],1,35); /////Identique en dessous
adresse2:= copy (ts[i+3],1,35); /////Identique en dessous
cp:= copy (ts[i+5],1,5);
localite:= copy (ts[i+5],7 ,35);
end
else
begin
nb:=copy(ts[i],14,2);
p:=copy(ligne,48,5);
adresse1:=copy(ts[i+2],1,35); /////Identique au dessus
adresse2:=copy(ts[i+3],1,35); /////Identique au dessus
cp:= copy(ts[i+4],1,5);
localite:= copy(ts[i+4],6,35);
end;
Ton If .... Then .... Else est à donc améliorer
Ensuite :
TS:= TStringlist.Create;
TS.LoadFromFile('C:\biker\vie\came.txt');
/////Attention aux StringList quand on charge un fichier dedans : Voir la limitation de tailles.
assignfile(dec,'c:\biker\vie\dec.txt') ;
rewrite(dec);
//Qu'est ce que c'est que ces blocks de mémée ? On travaille avec les Streams Couff
for i:= 0 to TS.Count - 1 do
begin
for j := 1 to 3 do
if civilite[j]=copy(ts[i],1,2) then
begin
recupvaleur;
inc_tableau;
Make_csv;
close(dec); ///Tu fermes ton fichier des la premiere boucle => Conclusion c'est foutu
end
else //Sinon quoi ????????
end;
A priori tu essaye de faire un parseur est d'enregistrer le résultat dans un fichier texte. Quand je lis ton code je me dis qu'il y a un énorme problème de conception.
Ensuite il y a des problèmes de logique :
*Pourquoi déclarer ton tableau comme cela : chaine: array [1..24]of string;
Il serait plus avantageux de le faire ainsi
chaine: array [0..23]of string ce qui induirait
//
for 0 := 0 to 7 do
N_TS.Insert(i,chaine[i]);
Ca change rien sauf que ca optimise sacrément ton code (8 soustractions en moins à chaque boucle).
Ensuite :
For k:=7 downto 0 Do
begin
N_TS.Delete(k)
end;
C'est quoi ce Begin/End inutile ??
De plus
For k:=7 downto 0 Do
begin
N_TS.Delete(k)
end;
N_TS.Free;
Quel est l'intéret de supprimer les lignes si tu libères ton StringList immédiatement après ?
if telephone[3]='.' then
begin
telephone:= telephone + copy (ts[i+1],42,1);
nb:=copy (ts[i+1],43,2);
p:= copy (ts[i+1],49,6) ;
adresse1:= copy (ts[i+2],1,35); /////Identique en dessous
adresse2:= copy (ts[i+3],1,35); /////Identique en dessous
cp:= copy (ts[i+5],1,5);
localite:= copy (ts[i+5],7 ,35);
end
else
begin
nb:=copy(ts[i],14,2);
p:=copy(ligne,48,5);
adresse1:=copy(ts[i+2],1,35); /////Identique au dessus
adresse2:=copy(ts[i+3],1,35); /////Identique au dessus
cp:= copy(ts[i+4],1,5);
localite:= copy(ts[i+4],6,35);
end;
Ton If .... Then .... Else est à donc améliorer
Ensuite :
TS:= TStringlist.Create;
TS.LoadFromFile('C:\biker\vie\came.txt');
/////Attention aux StringList quand on charge un fichier dedans : Voir la limitation de tailles.
assignfile(dec,'c:\biker\vie\dec.txt') ;
rewrite(dec);
//Qu'est ce que c'est que ces blocks de mémée ? On travaille avec les Streams Couff
for i:= 0 to TS.Count - 1 do
begin
for j := 1 to 3 do
if civilite[j]=copy(ts[i],1,2) then
begin
recupvaleur;
inc_tableau;
Make_csv;
close(dec); ///Tu fermes ton fichier des la premiere boucle => Conclusion c'est foutu
end
else //Sinon quoi ????????
end;
Cirec
- Messages postés
- 3825
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 1 février 2021
Salut,
j'ai pas testé ton code mais le fait d'utiliser la valeur de "I" en dehors de sa boucle ne me parait pas correcte !!!
change ton code et passe la valeur de "I" à la procedure RecupValeur
procedure RecupValeur(const Idx: Integer);
begin
... // changer tous les I en Idx ;)
end;
//et l'appel:
RecupValeur(I);
@+
Cirec
<hr siz="" />
j'ai pas testé ton code mais le fait d'utiliser la valeur de "I" en dehors de sa boucle ne me parait pas correcte !!!
change ton code et passe la valeur de "I" à la procedure RecupValeur
procedure RecupValeur(const Idx: Integer);
begin
... // changer tous les I en Idx ;)
end;
//et l'appel:
RecupValeur(I);
@+
Cirec
<hr siz="" />
cs_couf
- Messages postés
- 213
- Date d'inscription
- dimanche 5 janvier 2003
- Statut
- Membre
- Dernière intervention
- 6 janvier 2011
Merci Les gars,
Franchement Merci, tu as raison je dois utiliser des streams mais je suis guère à l'aise avec.
En Tout cas 2 choses
1) Vos remarques m'ont aidées.
2) Je remarque qu'effectivement si on respecte le règlement cela fonctionne bien
Surtout à tous les autres si vous voulez qu'on vous aides laissez un petit bout de code
couf
Franchement Merci, tu as raison je dois utiliser des streams mais je suis guère à l'aise avec.
En Tout cas 2 choses
1) Vos remarques m'ont aidées.
2) Je remarque qu'effectivement si on respecte le règlement cela fonctionne bien
Surtout à tous les autres si vous voulez qu'on vous aides laissez un petit bout de code
couf