je veux récupérer dans un fichier txt contenant des logs xml une trame complète
je fais :
 if(InStr(ligne , "<GA Name=""MSISDN" )) Then
    if (InStr(ligne,"Value=""+33"&msisdn)) Then
                                          wscript.echo "ligne:" + ligne
                                        end if
Le resultat :
ligne:          <GA Name="LGSM.MSISDN" Type="MSISDN" Value="+33664076187" />
 
Alors que la trame complète est :
 
<Request ID="{1111-000000000}" DATE="07/11/2007" TIME="03:00:13:448" >
<GO Name="LGSM.GetAlias" >
  <GA Name="MSISDN" Type="MSISDN" Value="+33664076187" />
 </GO>
 <GO Name="inParameters1" Type="inParameters" Id="0" >
  <GA Name="Alias.Type" Type="Alias.Type" Value="GWALIAS" />
 </GO>
</GO>
</Request>

Voici une méthode
 
Sub xx()
 
Dim xx As String
Text = "<Request ID=""{1111-000000000}"" DATE=""07/11/2007"" TIME=""03:00:13:448"" ><GO Name=""LGSM.GetAlias"" >" _
 
Text = Text & "  <GA Name=""MSISDN"" Type=""MSISDN"" Value=""+33664076187"" />"
 
Text = Text & " </GO>"
Text = Text & " <GO Name=""inParameters1"" Type=""inParameters"" Id=""0"" >"
Text = Text & "  <GA Name=""Alias.Type"" Type=""Alias.Type"" Value=""GWALIAS"" />"
Text = Text & " </GO>"
Text = Text & "</GO>"
Text = Text & "</Request>"
 
text1 = "<GA Name=""MSISDN"
text2 = "Value=""+33"
 
pos1 = InStr(Text, text1)
tmp1 = Mid(Text, pos1)
pos2 = InStr(tmp1, ">" )
tmp2 = Left(tmp1, pos2)
 
If InStr(tmp2, text2) Then
    wscript = "ligne : " & tmp2
End If
 
 
End Sub
 
 
il y a surement plus simple mais ça fonctionne