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.