Discussion :

[gillou026]

Bonjour

J'ai un petit soucis avec "sscanf"

Voici mon 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
type
  TCoordonnee = record
    Latitude, Longitude: Double;
  end;
 
 
var
  Form1: TForm1;
  nom_fichier : string;
  FichierEntree, FichierSortie: TextFile;
  Coordonnees: array of TCoordonnee;
  i, NbPoints: Integer;
  Ligne: string;
 
implementation
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    AssignFile(FichierEntree, nom_fichier);
    Reset(FichierEntree);
    SetLength(Coordonnees, 0);
    NbPoints := 0;
 
    while not Eof(FichierEntree) do
    begin
      Readln(FichierEntree, Ligne);
      Inc(NbPoints);
      SetLength(Coordonnees, NbPoints);        // coordonnees aura la taille (mémoire) de Nbpoint
      with Coordonnees[NbPoints - 1] do
        sscanf(Ligne, '%f %f', Latitude, Longitude);
    end;
    CloseFile(FichierEntree);
 
    AssignFile(FichierSortie, 'virages.txt');
    Rewrite(FichierSortie);
 
 
end;

Lorsque je compile, il me dit : identificateur non déclaré : sscanf !!

Ce n'est pas une fonction interne à delphi ?

Merci de votre aide.

le but du code est de séparer des données (latitude et longitude) en 2.
Ces données sont dans un fichiers texte et sont écrites sous cette forme :

44.573564 5.554274
44.573527 5.554282
44.57351 5.554308
44.573496 5.554373
44.573528 5.554691
44.57353 5.554909
44.573503 5.555424

un espace sépare la latitude et la longitude.

[SergioMaster]

Bonjour,

SVP, indiquer la version de Delphi.
J'imagine qu'il s'agit d'un programme VCL, ce que l'on aurait pu voir s'il y avait les clauses Uses

[gillou026]

C'est avec Delphi 7 (oui je sais, c'est vieux ...

Voici les uses

Code :

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

1
2
3
4
5
 
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

[Charly910]

Bonjour,
il me semble que sscanf c'est une fonction en C, pas en pascal.

Mais il doit y avoir des "traduction" en Delphi sur le net

A+
Charly

[SergioMaster]

Zut, ç'eut été si facile désormais !
De toute façon, non, sscanf n'est pas, à ma connaissance, une fonction Delphi.

écrire sa propre fonction (moins standard évidement) me semble possible

EN THEORIE (pas encore vérifié, écrit de tête)

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
function coordfrom(ligne : String) : TCoordonnee;
var i : integer;
     c : String;
begin
c:='';
for i:=0 to length(ligne-1) do
begin
  if ligne[i]='.' then ligne[i]:=','; // j'ai des doutes sur le point décimal  
  if ligne[i]=' ' then
    begin
        Result.Latitude:=StringToFloat(c);
        c:='';
    end
 else c:=c+ligne[i];
 Result.Longitude:=StringToFloat(c);
end;
end;

@Charly effectivement il y a

[gillou026]

Entre temps je me suis bricolé un petit truc comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
with Coordonnees[NbPoints - 1] do
begin
        //sscanf(Ligne, '%f %f', Latitude, Longitude);
        EspacePos := Pos(' ', Ligne);               // Trouve la position du premier espace
        Latitude_str := Copy(Ligne, 1, EspacePos - 1);   // Partie avant l'espace
        Longitude_str := Copy(Ligne, EspacePos + 1, Length(Ligne));  // Partie après l'espace
        Latitude := strtofloat( Latitude_str);
        Longitude := strtofloat( Longitude_str);
end;

Ca doit revenir au même ...

[gillou026]

Ça a l'air de fonctionner.

J'avais juste un autre problème avec le . au lieu du , comme évoqué par Sergio.

Résolu avec :

Code :

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

1
2
 
Latitude_str:= StringReplace(Latitude_str,'.',DecimalSeparator,[rfReplaceAll,rfIgnoreCase]);

Merci de votre aide.

[SergioMaster]

Mon code n'était pas très au point.

P.S. Ne pas oublier le

[ShaiLeTroll]

Cela ne doit pas exister en D7 mais le plus proche serait System.Classes.TParser.TokenFloat, regarde ces codes aves plein d'approche pour coder de façon plus générique la lecture de plusieurs float : Something like StrTok() or Sscanf()?

Sinon la fonction Readln peut prendre plusieurs paramètres comme la fonction Read en bon vieux pascal peut lire des valeurs multiples aussi, c'est plus pour la console mais c'est aussi à étudier, je reviens avec ça rapidement

[ShaiLeTroll]

Cela fait un scanf et non un sscanf dans l'absolu mais cela répond au besoin exprimé

Moi je ferais tout avec ReadLn, cela gère des Double dans un fichier au format "code" c'est à dire . comme séparateur décimal, ce qui correspond pile au besoin

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 TForm1.Button1Click(Sender: TObject);
var
  FichierEntree: TextFile;
  Coordonnees: array of TCoordonnee;
  NbPoints, I: Integer;
begin
    AssignFile(FichierEntree, 'Floats.txt');
    Reset(FichierEntree);
    SetLength(Coordonnees, 0);
    NbPoints := 0;
 
    while not Eof(FichierEntree) do
    begin
      I := NbPoints;
      Inc(NbPoints);
      SetLength(Coordonnees, NbPoints);
      Readln(FichierEntree, Coordonnees[I].Latitude, Coordonnees[I].Longitude); // Oui Oui ! ReadLn de Double !
    end;
    CloseFile(FichierEntree);
 
  Memo1.Lines.Clear();
  for I := Low(Coordonnees) to High(Coordonnees) do
    Memo1.Lines.Add(Format('%g %g', [Coordonnees[I].Latitude, Coordonnees[I].Longitude]));
 
 
end;

Attention cependant, cela réclame DEUX Double, le ReadLn va donc lire jusqu'à ce qu'il trouve DEUX Double et cela sera Zéro pour le seconde Double qui manquerait dans un DUO de Double.

Code fichier Floats.txt :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
44.573564 5.554274
44.573527 5.554282
44.57351 5.554308
44.573496 5.554373
44.573528 5.554691
44.57353 5.554909
44.573503 5.555424
7
 
2
66.66 77.77
3

Code Memo1.Lines.Text :

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

1
2
3
4
5
6
7
8
9
10
44,573564 5,554274
44,573527 5,554282
44,57351 5,554308
44,573496 5,554373
44,573528 5,554691
44,57353 5,554909
44,573503 5,555424
7 2
66,66 77,77
3 0

[Gouyon]

Moi j'utilise splitstring (https://docwiki.embarcadero.com/Libr...ls.SplitString)
Mais je ne sais pas si c'est disponible dans ta version

[ShaiLeTroll]

En D7, SplitString n'existait pas encore, d'ailleurs j'avais écrit une fonction du même nom en D7
Même en Delphi 2010, je crois que cela n'existait pas encore, c'est XE ou XE2.

Cependant, je me demande si ExtractStrings n'est plus ancien (c'est dans Classes)


@gillou026, as tu pu regarder l'utilisation direct de ReadLn avec lecture de DEUX Doubles (le code est ici), c'est je pense une très ancienne méthode qui remonte au Turbo Pascal mais dans le doute, je suis curieux de savoir si cela fonctionne bien sur ton D7

[anapurna]

salut


Un exemple ICI

[ShaiLeTroll]

Merci anapurna, cet exemple avec des entiers montrent que c'est une chose bien connue
D'ailleurs, cela montre un cas que je n'ai pas testé

J'avais pensé à :
- 2 nombres sur deux lignes,
- 1 nombre et un manquant
mais cet exemple montre le cas de 3 nombre sur une ligne, le dernier ignoré

Donc

Code fichier Floats.txt :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
44.573564 5.554274
44.573527 5.554282
44.57351 5.554308
44.573496 5.554373
44.573528 5.554691
44.57353 5.554909
44.573503 5.555424
60.1 60.2 60.3
70.1
 
20.2
66.66 77.77
30.3

Code Memo1.Lines.Text :

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

1
2
3
4
5
6
7
8
9
10
11
44,573564 5,554274
44,573527 5,554282
44,57351 5,554308
44,573496 5,554373
44,573528 5,554691
44,57353 5,554909
44,573503 5,555424
60,1 60,2
70,1 20,2
66,66 77,77
30,3 0

On constate que "60.3" a été ignoré mais que "70.1" et "20.2" ont été regroupé

Obtenu via ce 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
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var
  FichierEntree: TextFile;
  Coordonnees: array of TCoordonnee;
  NbPoints, I: Integer;
begin
    AssignFile(FichierEntree, 'Floats.txt');
    Reset(FichierEntree);
    SetLength(Coordonnees, 0);
    NbPoints := 0;
 
    while not Eof(FichierEntree) do
    begin
      I := NbPoints;
      Inc(NbPoints);
      SetLength(Coordonnees, NbPoints);
      Readln(FichierEntree, Coordonnees[I].Latitude, Coordonnees[I].Longitude); // Oui Oui ! ReadLn de Double !
    end;
    CloseFile(FichierEntree);
 
  Memo1.Lines.Clear();
  for I := Low(Coordonnees) to High(Coordonnees) do
    Memo1.Lines.Add(Format('%g %g', [Coordonnees[I].Latitude, Coordonnees[I].Longitude]));
 
 
end;