VBA StringBetween

我有一个小问题。

我想从我的网站获取版本号，这是存储如下：

<version>1</version> 

我怎样才能得到这两个string之间的数字变成一个variables？

我完全是新的VBBA，只是需要一个简单的检查。

谢谢

//编辑：

现在尝试：

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

在单元格中还有一个“1”也在网站上：

 <version>1</version> 

但每次我运行它popup的msgbox ..

我只是试了一下 版本以及单元格输出= 1.不知道为什么它不会工作

Answer 1

在VBA中：

 Dim Data As String, cleanData As String Data = "<version>1</version>" cleanData = Replace(Replace(Data, "<version>", vbNullString), "</version>", vbNullString) 

在Excel中，B57是文本“1”：

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

Answer 2

…鉴于你知道这将被这两个字具体包围，你oculd使用像这样的东西：

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

Answer 3

如果这已经存储在一个string中，那么一个简单的答案可能是：

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

基本上，只要把你的string的前半部分replace成空白，然后用空白replace下半部分，只留下数字。