Je vais tenter d'imaginer ce que l'auteur de ce code (sur lequel Marvin Smit est tombé lors d'une revue) pensait :
Bon sang, ce truc XML c'est naze. C'est correct dans son concept mais il n'y a pas de moyen simple de le parser, comme un répertoire ou autre chose. Il n'y a même pas de quoi requêter les documents sans avoir à écrire ses propres fonctions de parsage. Et même si on le pouvait je ne serais même pas par où commencer pour trouver de l'aide, si seulement quelqu'un pouvait écrire un livre sur cette daube.
Function GetPubTargetIDFromXMLZeug(XML_Stream As Variant) As String
Dim Pos1 As Double, Pos2 As Double, Pos3 As Double, Pos4 As Double
Pos1 = InStr(1, UCase(XML_Stream), UCase("prefix:PublicationTarget"))
If Pos1 > 0 Then
Pos2 = InStr(Pos1 + 1, UCase(XML_Stream), UCase("xlink:href="))
If Pos2 > 0 Then
Pos3 = InStr(Pos2 + 1, XML_Stream, Chr(34))
Pos4 = InStr(Pos3 + 1, XML_Stream, Chr(34))
GetPubTargetIDFromXMLZeug = Mid(XML_Stream, Pos3 + 1, Pos4 - Pos3 - 1)
End If
End If
End Function
