Discussion :

[franckcl]

Bonjour,

J'ai un fichier xml qui ressemble à ceci:

Code :

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

1
2
3
4
5
6
 
<xml>
  <regulator>
    <protocol readformat="&lt;MSG&gt;&lt;CR&gt;&lt;LF&gt;"/>
  </regulator>
</xml>

Dans lequel, la chaine readformat est codé et contient en réalité : "<MSG><CR><LF>"
J'ai besoin de récupérer cette chaine sans passer par les fonctions XML (pour accélérer le traitement).
Quel codage s'agit-il ? Comment décoder cette chaine ? Existe-t-il une fonction de décodage ?
merci
Franck

[SergioMaster]

Bonjour,

si le XML n'a que ça, j'utiliserai quelques ReplaceStr pour les &lt; et &gt;
et un copy pour extraire avec un pos de '="' pour le début et de pos '"/>' pour la fin

[franckcl]

Merci Sergio mais ce que j'ai donné n'est qu'un exemple, je ne connais pas tous les caractères à transformer et surtout je risque d'en louper et d'en découvrir d'autres au fil de temps, ce que je ne veux pas.
TXMLDocument fait la conversion (ou plutot IXMLNode.GetAttributeNS(item, '')) mais je n'arrive pas à trouver la fonction qui est utilisée pour faire ça.


merci

[Cirec]

Bonjour,

la fonction que tu cherche fait partie d'une Interface

Code :

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

1
2
3
4
  IDOMElement = interface(IDOMNode)
    ['{2BF4C0E6-096E-11D4-83DA-00C04F60B2DD}']
 ...
    function getAttributeNS(const namespaceURI, localName: DOMString): DOMString; safecall;    { DOM Level 2 }

et du coup, si tu penses découvrir d'autres caractères il est préférable d'utiliser "getAttributeNS" qui adaptera la conversion au contenu
dépendant de l'encodage utilisé (Latain, Cyrillic, Grec, Math, ...) XML Character Entities

faire sa propre routine ne serait pas forcément plus rapide.

enfin ce n'est que mon avis

Cordialement,
@+

[franckcl]

En fait j'utilise déjà la fonction GetAttributeNS mais pour cela il faut déjà trouver le noeud et c'est là que c'est consommateur de temps.

Voici ma fonction actuelle qui prend trop de temps:

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
Function TMyXML.Read(Path,item, default: String): String;
Var
  S   : string;
  node: IXMLNode;
  P   : integer;
Begin
  result := Default;
  delete(path,1,4); // le chemin commence toujours par "xml/"
  p:=1;
  node:=Xml.DocumentElement;
  while (node <> nil) and (P > 0) do
  Begin
    P := Pos('/', Path);
    if (P > 0) then
    Begin
       S := Copy(Path, 1, P - 1);
       delete(Path, 1, P);
       node := node.ChildNodes.FindNode(S); // Si ce n'est pas le dernière identifiant alors c'est un noeud
    End;
  End;
  if assigned(node) and (node.HasAttribute(item)) then result := node.GetAttributeNS(item, '');
End;

Je l'appelle de cette manière:

Code :

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

S := Read('xml/regulator/protocol/','readformat','ERR');

et S contient donc: "<MSG><CR><LF>"

Ça marche nickel, mais pour des gros fichiers, cela prend beaucoup de temps, j'ai donc créé ma fonction pour remplir un TStringList et ensuite je fais un indexof pour retrouver un identifiant, ce qui est beaucoup plus rapide (environ 10 fois plus rapide).
Le problème est ce codage particulier qui est utilisé pour certains caractères.

[gandf]

Bonsoir,

Si cela peut aider, j'avais un code en C++ qui faisait quelque chose de similaire. Je l'ai réécris vite fait dans un bloc note, donc il peut y avoir des erreurs de syntaxe ou de formatage.
Par ailleurs, je ne suis pas certain de la récupération de la valeur finale par :

Code :

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

Result := Level2.Text;

Il faudra surement trouver la bonne manière de récupérer la valeur finale en utilisant GetAttributeNS.

C'est un code très proche de ce que j'utilise actuellement pour parcourir l'arborescence d'un fichier xml de paramétrage.
Ici, je l'ai adapté pour ne trouver qu'une seule valeur.

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
Function  TMyXML.Read(IXMLNode Level1): String;
var
  Level2: IXMLNode;
  Level2Count, i : Integer;
begin
  Result := '';
  if (Level1 <> nil) then
  begin
     Level2Count := Level1.ChildNodes.Count;
     for i := 0 to i < Level2Count do
     begin
         Level2 = Level1.ChildNodes.Get(i);
         if (Level2 <> nil) then
         begin
           if (Level2.GetNodeName() = 'protocol') then
           begin
             Result := Level2.Text;
             exit;
           end
           else
           begin
             Result := Read(Level2);
             if (Result <> '') then
               exit;
           end;
         end;
     end;
  end;
end;

J'ai beaucoup de paramétrages dans le fichier et pourtant la lecture de ce fichier et d'un autre fichier de lang en XML lors de l'ouverture de l'application est presque instantanée. L'utilisateur ne voit pas de différence de temps de chargement.

Comme il y a un node, autant utilisant ce système jusqu'au bout plutôt que passer par de la manipulation manuelle de texte au milieu de la fonction pour ensuite utiliser une fonction de recherche de node.
Ici on boucle sur une fonction de recherche alors que parcourir la boucle ne doit pas prendre beaucoup plus de temps.
Mais je me trompe peut-être sur ce point.

J'espère que cela vous aidera.

Bonne soirée.