Discussion :

[colorid]

Bonjour,

J'ai un fichier text du type :

Code :

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

1
2
3
4
5
6
7
 
0.94902;0.839216;0;Medium Yellow C
0.866667;0.368627;0;Bright Orange C
0.819608;0.219608;0.207843;Bright Red C
0.678431;0;0.388235;Strong Red C
0.698039;0.14902;0.576471;Pink C
0.247059;0;0.54902;Medium Purple C

J'ai écris une procedure du type :

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
32
33
34
35
36
 
procedure LisFichier( const FileName: TFileName;
                            var Rec : MonType);
var
  F: TextFile;
  St,S,S0: String;
  J,i: integer;
  C: char;
  R,G,B: single;
begin
  AssignFile(F, FileName);
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, St);
    S:='';
    J:=0;
    for i:=1 to Length(St) do
    begin
      C:= St[i];
      if C<>';' then S:= S+C else
      if (C=';') or (i=Length(St)) then
      begin
        inc(J);
        case J of
          1: R:= StrToFloat(S);
          2: G:= StrToFloat(S);
          3: B:= StrToFloat(S);
          4: S0:= S;
        end;
        S:= '';
      end;
    end;
  end;
  CloseFile(F);
end;

Si je trace cette procedure lorsque J=1 à 3 S correspond bien à la string d'un nombre flottant et si J=4 S à du texte

Mais pour J=1..3 Le StrToFloat(S) ne fonctionne pas car R,G ou B ne sont pas initialisé par la valeur de S mais si J=4 S0 est bien initialisé par S!!!

Où est le problème ???

[Rayek]

Parfois vous vous compliquez la vie ^^

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
 
procedure LisFichier( const FileName: TFileName;
                            var Rec : MonType);
var
  lstFile, lstTmp : TStringList;
  i : integer;
begin
  lstFile := TStringList.Create;
  lstTmp := TStringList.Create;
  try
    lstFile.loadFromFile(FileName);
    for i := 0 to lstFile.count -1 do
    begin
      lstTmp.text := StringReplace(lstFile[i],';',#13#10,[rfReplaceAll]);
      R := StrToFloatDef(lstTmp[0],0);
      G := StrToFloatDef(lstTmp[1],0);
      B := StrToFloatDef(lstTmp[2],0);
      S0 := LstTmp[3];
    // etc ...
    end;
  finally
    lstFile.Free;
    lstTmp.Free;
  end;
end;

[delphichem]

Juste faciliter la vie a RAYEK on supprime le StringReplace.

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
procedure LisFichier( const FileName: TFileName;
                            var Rec : MonType);
var
  lstFile, lstTmp : TStringList;
  i : integer;
begin
  lstFile := TStringList.Create;
  lstTmp := TStringList.Create;
  try
    lstFile.loadFromFile(FileName);
    lstTmp.Delimiter := ';';
    lstTmp.StrictDelimiter := True;
    for i := 0 to lstFile.count -1 do
    begin
      lstTmp.DelimitedText := lstFile[i]; // pour ne pas ce compliquer la vie
      R := StrToFloatDef(lstTmp[0],0);
      G := StrToFloatDef(lstTmp[1],0);
      B := StrToFloatDef(lstTmp[2],0);
      S0 := LstTmp[3];
    // etc ...
    end;
  finally
    lstFile.Free;
    lstTmp.Free;
  end;
end;

[Rayek]

Juste faciliter la vie a RAYEK on supprime le StringReplace.

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
procedure LisFichier( const FileName: TFileName;
                            var Rec : MonType);
var
  lstFile, lstTmp : TStringList;
  i : integer;
begin
  lstFile := TStringList.Create;
  lstTmp := TStringList.Create;
  try
    lstFile.loadFromFile(FileName);
    lstTmp.Delimiter := ';';
    lstTmp.StrictDelimiter := True;
    for i := 0 to lstFile.count -1 do
    begin
      lstTmp.DelimitedText := lstFile[i]; // pour ne pas ce compliquer la vie
      R := StrToFloatDef(lstTmp[0],0);
      G := StrToFloatDef(lstTmp[1],0);
      B := StrToFloatDef(lstTmp[2],0);
      S0 := LstTmp[3];
    // etc ...
    end;
  finally
    lstFile.Free;
    lstTmp.Free;
  end;
end;

Mais j'avais vu qu'il pouvait y avoir des soucis avec le Delemiter (je ne sais plus ou j'avasi vu cela), au moins avec le StringReplace je suis sur à 100% que c'est séparé de la manière que je veux

[delphichem]

Mais j'avais vu qu'il pouvait y avoir des soucis avec le Delemiter (je ne sais plus ou j'avasi vu cela)

Effectivement il peut y avoir des problèmes, c'est pour ça que j'ai ajouté

Code :

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

lstTmp.StrictDelimiter := True;

Qui permet de forcer l'utilisation uniquement du caractère spécifier dans Delimiter.

au moins avec le StringReplace je suis sur à 100% que c'est séparé de la manière que je veux

Je comprend il vaut mieux être prudent.

[Rayek]

Si j'utilise le Delimiter dans la listFile, est ce que les fin de lignes seront pris en compte normalement ou pas ?
j'en deduis donc qu'il est nécessaire d'enlever le StrictDelimiter

Est ce que ca

Code :

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

1
2
3
 
00;11;22;33
44;55;66;77

Devient ca

Code :

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

1
2
3
4
5
6
7
8
9
 
00
11
22
33
44
55
66
77

Si oui, on peut même reduire d'une TStringList encore :p

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
procedure LisFichier( const FileName: TFileName;
                            var Rec : MonType);
var
  lstFile :  TStringList;
  i : integer;
begin
  lstFile := TStringList.Create;
  try
    lstFile.loadFromFile(FileName);
    lstFile.Delimiter := ';';
    for i := 0 to (lstFile.count Div 4) -1 do
    begin
      R := StrToFloatDef(StringReplace(lstFile[i * 4],'.',DecimalSeparator,[]),0);
      G := StrToFloatDef(StringReplace(lstFile[i * 4 + 1],'.',DecimalSeparator,[]),0);
      B := StrToFloatDef(StringReplace(lstFile[i * 4 + 2],'.',DecimalSeparator,[]),0);
      S0 := lstFile[i * 4 + 3];
    // etc ...
    end;
  finally
    lstFile.Free;
  end;
end;

@Colorid : test le nouveau code ou du moins copie la partie des RGB en fesant les bonnes modifs

[delphichem]

Non LoadFromFile utilise les caractère CR et LF (#13 et #10) pour délimiter les lignes elle ne prend pas en considération le Delimiter.

Tu auras comme résultat:

Code :

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

1
2
3
4
5
6
0.94902;0.839216;0;Medium Yellow C
0.866667;0.368627;0;Bright Orange C
0.819608;0.219608;0.207843;Bright Red C
0.678431;0;0.388235;Strong Red C
0.698039;0.14902;0.576471;Pink C
0.247059;0;0.54902;Medium Purple C

[colorid]

J'ai écris la procédure suivante :

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
 
procedure LoadPantoneFile( const FileName: TFileName;
                            var Rec : TPantoneVec );
var
  lstFile, lstTmp : TStringList;
  i : integer;
  R,G,B: single;
  S: string;
begin
  lstFile := TStringList.Create;
  lstTmp := TStringList.Create;
  try
    lstFile.loadFromFile(FileName);
    lstTmp.Delimiter := ';';
    lstTmp.StrictDelimiter := True;
    for i := 0 to lstFile.count -1 do
    begin
      lstTmp.DelimitedText := lstFile[i]; // pour ne pas ce compliquer la vie
      R := StrToFloatDef(lstTmp[0],0);
      G := StrToFloatDef(lstTmp[1],0);
      B := StrToFloatDef(lstTmp[2],0);
      S := LstTmp[3];
    // etc ...
    end;
  finally
    lstFile.Free;
    lstTmp.Free;
  end;
end;

Toujours le même problème : Au traçage j'ai bien les bonnes string dans lstTmp[0], lstTmp[1] et lstTmp[2], mais R,G,B ne sont pas initialisés !!! comme si le StrToFloatDef() ne fonctionnait pas

J'ai vérifié dans le panneau de config options régionales le symbole décimal est bien un point. Je pense que s'il ne l'étatit pas nous aurions une erreur. La je n'ai pas d'erreur mais R,G et B ne sont pas initialisés.

[colorid]

Malgré un traçage qui ne me satisfaisait pas j'ai tenté d'initialiser ma structure Rec:Montype.
Miracle elle est correctement initialisée.
Ce qui prouve qu'en mettant un point d'arret à S := LstTmp[3]; les valeurs R,G,B ne semblent pas initialisées puisqu'elles retournent 0. Ce serait un problème de Delphi au traçage.

[Rayek]

Quand tu as ton traceur sur S0, tu surlignes listTmp[0] et tu fait [Ctrl] + F7
Tu devrais voir le résultat qu'il y a dans lstTmp[0].
Après tu fais la même chose mais en surlignant tout le StrToFloat( ....);

[ShaiLeTroll]

Effectivement, j'allais proposer d'utiliser Explode ou une TStringList, pour simplifier l'Algo ...

Sinon, attention au "." et "," selon les options régionales ...