Problème avec sscanf !

Version imprimable

Bonjour

J'ai un petit soucis avec "sscanf"

Voici mon code :
Code:

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.

13/03/2025, 10h42
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 :roll:

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

Voici les uses
Code:

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

13/03/2025, 11h11
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

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:

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

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

Code:

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 ...

13/03/2025, 11h43
gillou026
Ça a l'air de fonctionner. :D:D

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

Résolu avec :
Code:

1 2 Latitude_str:= StringReplace(Latitude_str,'.',DecimalSeparator,[rfReplaceAll,rfIgnoreCase]);
Merci de votre aide.
13/03/2025, 11h58
SergioMaster

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

P.S. Ne pas oublier le :resolu:
13/03/2025, 16h47
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

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:

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:

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:

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

17/03/2025, 12h10
Gouyon

Moi j'utilise splitstring (https://docwiki.embarcadero.com/Libr...ls.SplitString)
Mais je ne sais pas si c'est disponible dans ta version
17/03/2025, 15h33
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
17/03/2025, 16h35
anapurna

salut

Un exemple ICI

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:

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:

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 :

Citation:

Envoyé par ShaiLeTroll

Code:

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;