Discussion :

[akremb22]

Salut.
Une partie de mon prog consiste à lire un fichier texte remplit par des chiffres et les mis dans un tableau comme des entiers "strtoint" (chaque ligne comprend 5 valeur).
On cour de lecture il m'affiche erreur de conversion (chaque fois l'erreur apparaisse dans une ligne défirent) quand j'utilise step by step j'ai trouvé que la variable qu'il doit prend un valeur de fichier prend #13 puis #10 puis la valeur existant dans le fichier donc la variable reçoit #13#105 soit le 5 la valeur qu'il faut lire.
J’ai essayé plusieurs méthode mais je n’ai pas arrivé à résoudre se pb aider moi SVP.
Merci

[philnext]

Je te conseille d'utiliser des tStringList pour stocker tes valeurs.
Pour lire un tableau dans ta sTtringList la fonction à utiliser est loadFromFile.
Sinon pour ton pb c'est que dans ton fichier les lignes sont 'séparées' par les caractère <CR> et <LF> (#10 et #13) et que ces caractères ne sont pas 'transformables' en entier (du moins par strToInt).

[Linkin]

Quel est ton code pour remplir le tableau?

[Pedro]

Salut
Comment lis-tu ton fichier texte? Avec une TStringList? A la main avec ReadLn? Ou read (visiblement)?
Bref, montre-nous le code de lecture

[akremb22]

a propos de #13 et #10 n'existe pas dans le fichier text c'est ca mon probleme.
l'erreur par fois dans la ligne 10, 120 ou 200 c'est Aléatoire.
c'est partie de fichier text:
3,111489947 F 7 -2 8
3,111489947 F 7 -2 8
3,112390009 s 7 5
3,112390066 s 24 16 7
3,112390066 F 6 -2 7
3,112390128 F 13 -2 7
3,112390140 s 23 0 7
mon code source est:
pour trunc car je suis besoin que de partie entier

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
while not eof(input)  do
begin
  j:=1;
  i:=i+1;
  temp:=0;
  while not eoln(input) do
  begin
    read(input,x);
    if(x<>' ')  then     //lecture du nombre
      m:=m+x
    else      //classé les nbre dans un tableau
    begin
      if (temp=0)then
      begin
        m:=inttostr(trunc(m))  //j'ai un pb dans trunc et dans tabt[j,i]:=strtoint(m); erreur de conversion
        temp:=1 ;
      end;
      if(m='S')  then
        m:='1'
      else
      if (m='F')then
        m:='2';
      tabt[j,i]:=strtoint(m);  // tabt:array[1..5,1..50000] of integer;
      j:=j+1;
      m:='';
    end;//if x=' '
  end;//eoln
  readln(input);      //retour a la ligne
end;//eof
 
closefile(input);

[Pedro]

a propos de #13 et #10 n'existe pas dans le fichier text

#13#10 sont les caractère CR/LF, en d'autres termes, le retour à la ligne

Pour ton cas, je te conseillerais la même chose que philnext: utilise un TStringList pour l'ouverture/lecture de ton fichier. Surtout si le fichier n'est pas trop long
C'est bien plus facile à gérer et tout se passe en mémoire

[akremb22]

. Surtout si le fichier n'est pas trop long
C'est bien plus facile à gérer et tout se passe en mémoire

le fichier comporte plus que 40 mile ligne par fois 300 mile ligne
et pourquoi cette erreur apparaisse quand elle veux parfois elle passe 900 ligne sans erreur
l'autre pb que je suis besoin des ces valeurs dans un tableau pour faire des teste sur chaque couple de valeur par rapport au reste des valeurs

[droggo]

mol,

le fichier comporte plus que 40 mile ligne par fois 300 mile ligne
et pourquoi cette erreur apparaisse quand elle veux parfois elle passe 900 ligne sans erreur
l'autre pb que je suis besoin des ces valeurs dans un tableau pour faire des teste sur chaque couple de valeur par rapport au reste des valeurs

Alors lis-le ligne par ligne, et gère toi-même chaque ligne lue, c'est généralement le plus sûr.

Avec ton code, avoir la déclaration des variables utilisées ne serait pas superflu, je n'ai pas le courage de le déduire en dépouillant le code

[philnext]

Allez, si tu ne veux pas passer par les TStringList je te conseille de faire un

Code :

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

strToInt(Trim(<ta ligne>))

à la place de

Code :

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

strToInt(<ta ligne>)

[akremb22]

vous pouvez m'aider comment utilisé le TStringList dans ce cas.
Merci

[philnext]

Pourquoi pas mais je n'ai pas compris comment tu traites chaque ligne, notamment la ligne

Code :

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

m:=inttostr(trunc(m))

Sinon voici un début de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure VazyMonKiki;
var 
  tsTemp : tstringlist;
  iBcl : integer;
begin
  tsTemp := tStringList.create;
  tsTemp.LoadFromFile('mongrosfichier.txt');
  for iBcl := 0 to tsTemp.count-1 do
  begin
   //ici tu bricoles tes strings...qui se nomment tsTemp[iBcl]
  end;
  tsTemp.free;
end;

[akremb22]

pour tsTemp[iBcl] comprend toute la ligne.
et je veux manipulé les variable dans cette ligne pour les enregistré dans un tab.
je fait quoi?
Merci

[paulfr]

Bonjour,

Il faut commencer par lire le fichier texte avec READLN vous supprimerez ainsi les #13#10.
Ensuite analyser la ligne en retrouvant les espaces (' ') de séparations et vous pourrez retrouver vos valeurs par des Copy( ).

Si c'est vous-même qui crée le fichier texte il vaudrait mieux utiliser un Record.

C'est un retour à TurboPascal.
Sans prétention.

[akremb22]

Merci.
Je doit le testé puis s'il bien marcher je doit utilisé RESOLU

[akremb22]

MERCI a tous c resolu