VBA SsortingngBetween

j'ai un petit problème.

Je souhaite get le numéro de version de mon site, qui est stocké comme ça:

<version>1</version>

Comment puis-je get le nombre entre ces 2 strings dans une variable?

Je suis complètement nouveau sur vba et j'ai besoin d'un simple contrôle.

Merci

//MODIFIER:

Essayé maintenant:

  Data = .responseText version = Replace(Replace(Data, "<version>", vbNullSsortingng), "</version>", vbNullSsortingng) If version > Cells(2, 3) Then strTitle = "new version" strPrompt = "new version available" iRet = MsgBox(strPrompt, vbOKOnly + vbExclamation, strTitle) End If

Dans la cellule il y a un "1" également sur le site a:

 <version>1</version>

Mais chaque fois que je l'exécute, le msgbox s'affiche …

Je l'ai simplement testé. La version ainsi que la sortie de cellule = 1. Ne sais pas pourquoi il ne fonctionnera pas alors

en VBA:

 Dim Data As Ssortingng, cleanData As Ssortingng Data = "<version>1</version>" cleanData = Replace(Replace(Data, "<version>", vbNullSsortingng), "</version>", vbNullSsortingng)

Dans Excel où B57 est le text "1":

 LEFT(RIGHT(B57, LEN(B57) - FIND(">",B57)), 1)

… Étant donné que vous savez qu'il sera entouré par ces 2 mots en particulier, vous avez l'habitude d'utiliser quelque chose comme:

 MyVersion = Replace(Replace(x, "<version>", ""), "</version>", "")

Si cela est déjà stocké dans une string, une réponse simple pourrait être:

 replace( replace(mySsortingng,"<version>","") ,"</version>","")

Fondamentalement, remplacez la première moitié de votre string par de rien, puis remplacez la seconde moitié par rien, laissant juste le nombre.