RegEx extraction entre simple quote

Bonjour

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

Code:

---

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:

---

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)

Citation:

---

(#$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

Citation:

---

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

---

Code:

---

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:

---

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

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

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 :roll:

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:

---

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

---

Citation:

---

#$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:

---

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

Citation:

---

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

---

Merci

Tu pourrais aussi passer par Trim.

Code:

---

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.

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:

---

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], ',');

---

Citation:

---

Envoyé par 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:

---

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:

---

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

---

Code:

---

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;

---

Citation:

---

Envoyé par résultat

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

---

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

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:

---

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

---

ne fonctionnerait pas :koi:

[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

Re bonjour

La bonne solution est celle-ci

Citation:

---

Envoyé par Andnotor

Tu pourrais aussi passer par Trim.

Code:

---

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