[VBS]Récupérer le texte derrière un caractère

'--------------------------------------------------------------------- 
' Fichier .vbs 

  Const ctePourLecture = 1 
  Const cteRapport = "Resultat.txt" 

  Dim objFSO, objFichier, varNomFic, Texte, Message 
  Dim Chaine, Position 

  Set objFSO = CreateObject("Scripting.FileSystemObject") 

  ' Localisation du script et du fichier à lire 
  varNomFic = WScript.ScriptFullName 
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\")) 
  varNomFic = varNomFic & cteRapport 

  If ( objFSO.FileExists(varNomFic) ) Then 

    Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourLecture) 

    While Not objFichier.AtEndOfStream 
        Texte = objFichier.ReadLine 
 Position = InStr(1, Texte, "=", 1) 
 Texte = Mid(Texte,(Position + 2)) 
 Texte = Mid(Texte, 1, (Len(Texte) - 2)) 
        Message = Message & vbCrLf & Texte 
    Wend 

    objFichier.Close 

    Set objFichier = Nothing 

    WScript.Echo Message 

  Else 

    WScript.Echo "Fichier absent" 

  End If 

  Set objFSO = Nothing 


WScript.Quit(0) 
' 
'--------------------------------------------------------------------- 

 
'--------------------------------------------------------------------- 
' Fichier .vbs 

  Const ctePourLecture = 1 
  ' Nom du fichier à lire 
  Const cteRapport = "Resultat.txt" 

  Dim objFSO, objFichier, varNomFic, Texte, Message 
  Dim Chaine, Position 

 ' Création d'on objet pour l'accès au système de fichier 
  Set objFSO = CreateObject("Scripting.FileSystemObject") 

  ' Localisation du script et du fichier à lire 
  ' Capture du nom complet du script 
  varNomFic = WScript.ScriptFullName 
  ' Suppression du nom pur afin de conserver le chamin d'accès 
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\")) 
  ' Ajout du nom du fichier à lire 
  varNomFic = varNomFic & cteRapport 

 ' Si fichier existe 
  If ( objFSO.FileExists(varNomFic) ) Then 

  ' Création d'un objet fichier pour accès au fichier, et ouverture 
    Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourLecture) 

  ' Tant que fichier n'est pas terminé 
    While Not objFichier.AtEndOfStream 
      ' Lire une ligne 
        Texte = objFichier.ReadLine 
        ' Recherche la position de caractère [=] 
        ' InStr(1, Texte, "=", 1) 
        ' 1 = À partir du premier caractère 
        ' Texte = texte dans lequel la recherche s'effectue 
        ' "=" = Caractère recherché 
        ' 1 = Méthode de comparaison en texte  
        Position = InStr(1, Texte, "=", 1) 
        ' Capture le texte 2 caractère plus loin 
        ' donc après le [="] 
        Texte = Mid(Texte,(Position + 2)) 
        ' Enlève les 2 derniers caractères, 
        ' le caractère de saut de ligne et les guillemets 
        Texte = Mid(Texte, 1, (Len(Texte) - 2)) 
        ' Ajoute le texte trouvé avec un saut de ligne [vbCrLf] 
        Message = Message & vbCrLf & Texte 
    Wend 

     ' Ferme le fichier 
    objFichier.Close 

     ' Libère l'objet Fichier 
    Set objFichier = Nothing 

     ' Affiche à l'écran 
    WScript.Echo Message 

  Else 

     ' Affiche à l'écran 
    WScript.Echo "Fichier absent" 

  End If 

   ' Libère l'objet du système de fichier 
  Set objFSO = Nothing 

' Quitte le script avec [0] comme paramètre 
' pour signaler "Aucune erreur" 
WScript.Quit(0) 
' 
'---------------------------------------------------------------------