vba - VBA StringBetween

Question

我有一个小问题。

我想从我的站点获取版本号，它的存储方式如下：

<version>1</version>

如何将这 2 个字符串之间的数字转换为变量？

我对 vba 完全陌生，只需要它进行简单的检查。

谢谢

//编辑：

现在尝试：

            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

在单元格中，站点 a 上也有一个“1”：

<version>1</version>

但是每次我运行它时，都会弹出消息框..

我只是测试了一下。版本以及单元格输出 = 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

...鉴于你知道它会被这两个词特别包围，你可以使用类似的东西：

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

Answer 3

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

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

基本上，只需用空替换字符串的前半部分，然后用空替换后半部分，只留下数字。