Discussion :

[FlyByck]

Bonjour

Je cherche à récupérer d'un fichier kml les coordonnées d'un trajet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
	<Placemark>
		<name>ALPHA-Cheminement</name>
		<styleUrl>#msn_ylw-pushpin</styleUrl>
		<LineString>
			<tessellate>1</tessellate>
			<coordinates>
				3.78919818067865,49.23157613507813,0 3.791865127977232,49.23093688390484,0 3.794833704929468,49.22795011803071,0   
			</coordinates>
		</LineString>
	</Placemark>

J'utilise IXMLNode

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
 
procedure TUnit.LoadXML(XMLNode: IXMLNode; TreeNode: TTreeNode);
var
  K                 : integer;
  LNode1        : IXMLNode;
  LNode2        : IXMLNode;
  SplittedPts   : TStringDynArray;
  NodeTree     : TTreeNode;
  ArrayPts      : string;
begin
  // Recursive call
  if XmlNode.NodeName = 'Placemark' then
  begin
    LNode1 := XmlNode.ChildNodes.FindNode('LineString');
    if (LNode1 <> Nil) then
    begin
      LNode2      := LNode1.ChildNodes.FindNode('coordinates');
      SplittedPts := SplitString(LNode2.NodeValue,' ');
    end;
  end;
  if XMLNode.HasChildNodes then
    for I := 0 to XMLNode.ChildNodes.Count - 1 do
      LoadXML(XMLNode.ChildNodes.Nodes [I], NodeTree);
end;

Je récupère bien les coordonnées dans SplittedPts mais la chaîne comporte des caractères ACSII supplémentaires, #$A#9#9#9#9, en début et en fin de chaîne (précédé d'une virgule et d'un espace)

(#$A#9#9#9#9'3.78919818067865,49.23157613507813,0', '3.791865127977232,49.23093688390484,0', '3.794833704929468,49.22795011803071,0', #$A#9#9#9)

Les coordonnées étant situés entre les simples quotes, j'ai essayer d'extraire ces caractères par une expression régulière avec le pattern

const PATTERN = '\''.*\''';

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    for K := 0 to NbPts do
      begin
        Expr   := TRegEx.Create(PATTERN);
        Match := expr.Match(SplittedPts[K]);
        if Match.Success then
          for Group in Match.Groups do
            ArrayPts := Group.value
        else
          ArrayPts := '';

Si je teste le pattern \'.*\' sur un site en ligne, j'extrais bien les coordonnées.
Le problème est que la traduction du simple quote dans Delphi n'est pas reconnu et Match.Success = false

J'ai aussi essayé d'utiliser StringReplace

Code :

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

ArrayPts := StringReplace(SplittedPts[K],'#$A#9#9#9#9','',[rfReplaceAll, rfIgnoreCase]);

Mais ces caractères ne sont pas supprimés

Merci de vos idées

[ALWEBER]

Utilise un stringreplace pour supprimer les caractères indésirables

[SergioMaster]

Remplacer les apostrophes par un autre caractère moins problématique par exemple §
changer alors l'expression régulière pour le nouveau pattern, const PATTERN = '§.*§';
même si c'est un peu arraché par les cheveux

[FlyByck]

Bonjour

La solution String replace a déjà été testée, (voir la dernier phrase du post).
Elle n'est pas fonctionnelle. Je ne comprend pas pourquoi mais aucun des caractères indésirables sont remplacés alors que la fonction fonctionne normalement sur les caractères entre les quotes.

C'est idem pour les quotes, je ne peux pas les substituer par un autre caractère

Code :

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

ArrayPts := StringReplace(SplittedPts[K],'''','$',[rfReplaceAll, rfIgnoreCase]);

#$A#9#9#9#9'3.78919818067865,49.23157613507813,0'

La chaîne n'est pas modifiée
Si je poursuis en extrayant les coordonnées et que je fais un ShowMessage

Code :

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

1
2
3
 
        SplittedCoord := SplitString(ArrayPts,',');
        ShowMessage('Chaîne = '+SplittedCoord[0]);

La fenêtre affiche que la longitude (3.78919818067865) ces caractères antérieurs ne sont pas visibles
C'est comme si ces caractères n'appartiennent pas à la chaîne. Est des caractères d'encodage ?
Mais je ne peux pas convertir cette chaîne en numérique par StrToFloat(SplittedCoord[0])
Avec un point d’arrêt je visualise que la variable SplittedCoord[0] comporte toujours ces caractères

#$A#9#9#9#9'3.78919818067865'

Merci

[Andnotor]

Tu pourrais aussi passer par Trim.

Code :

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

1
2
ArrayPts    := LNode2.NodeValue;
SplittedPts := SplitString(ArrayPts.Trim([#$A, #$9]));

Mais l'idéal serait d'avoir un XML correctement formaté. L'indentation du contenu de <coordinates> n'a pas lieu d'être.

[tourlourou]

Bonjour,
Ne dirait-on point que ce sont les LineFeed et Tabulations qui réalisent l'indentation ?
Tu splittes selon les espaces et recueille donc ce qu'il y a avant et après sous forme de caractères non imprimables.
Et si c'est la vue dans l'EDI (l'inspecteur de variables) qui nous montre les différentes chaînes du StringList, les groupes de 3 points apparaissent chacun entre ' car ce sont des ASCII imprimables.
Si c'est bien ça, ALWEBER a raison de proposer de supprimer les caractères non imprimables avant de splitter selon l'espace, puis chaque groupe de 3 points selon la virgule :

Code :

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

1
2
3
4
5
  S := LNode2.NodeValue;
  S := StringReplace(S, #$A, '', [rfReplaceAll]);
  S := StringReplace(S, #9, '', [rfReplaceAll]);
  SplittedPts := SplitString(S, ' ');
  FirstThreePoints := SplitString(SplittedPts[0], ',');

[SergioMaster]

Bonjour

La solution String replace a déjà été testée, (voir la dernier phrase du post).
Elle n'est pas fonctionnelle. Je ne comprend pas pourquoi mais aucun des caractères indésirables sont remplacés alors que la fonction fonctionne normalement sur les caractères entre les quotes.

C'est idem pour les quotes, je ne peux pas les substituer par un autre caractère

Code :

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

ArrayPts := StringReplace(SplittedPts[K],'''','$',[rfReplaceAll, rfIgnoreCase]);

Ok mais l'apostrophe c'est #39 ainsi pas d'histoire de double apostrophes, si en plus on utilise Trim

Code :

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

ArrayPts := StringReplace(Trim(SplittedPts[K]),#39,'$',[rfReplaceAll, rfIgnoreCase]);

Code :

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

1
2
3
4
5
6
7
8
procedure TForm112.Button2Click(Sender: TObject);
var L : String;
begin
L:=#$A#9#9#9+QuotedStr('3.78919818067865,49.23157613507813,0 ')+
   QuotedStr('3.78919818067865,49.23157613507813,0 ')+#$A#9#9#9;
Memo1.Lines.Add(Trim(L));
Memo1.Lines.Add(StringReplace(Trim(L),#39,'$',[rfReplaceAll]));
end;

$3.78919818067865,49.23157613507813,0 $$3.78919818067865,49.23157613507813,0 $

[Andnotor]

On voit bien qu'il n'y a pas d'apostrophe dans le XML, ce n'est que le debuggeur qui présente ainsi la chaîne au survol (comme déjà mentionné par tourlourou).

[SergioMaster]

Ce n'est pas spécifié donc je réponds comme un bourrin en considérant que la chaine récupérée contient ces apostrophes.
AHMA Trim suffit mais, bon le sujet étant RegEx qui me semble inutile je réponds à la problématique RegEx, je me demande même si

Code :

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

const PATTERN = #39'.*\s'#39;

ne fonctionnerait pas

[Edit] après test le PATTERN fonctionne, puisque le match me fourni 1 groupe mais 1 groupe n'est pas le résultat souhaité je m'attendais à 2

[FlyByck]

Re bonjour

La bonne solution est celle-ci

Tu pourrais aussi passer par Trim.

Code :

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

1
2
ArrayPts    := LNode2.NodeValue;
SplittedPts := SplitString(ArrayPts.Trim([#$A, #$9]));

Mais l'idéal serait d'avoir un XML correctement formaté. L'indentation du contenu de <coordinates> n'a pas lieu d'être.

Le XML est créer par Google Earth les caractères ne dépende pas de mon code

Merci à tous pour votre aide