0

少し問題があります。

そのように保存されている自分のサイトからバージョン番号を取得したい:

<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

セルには、サイトにも「1」があります。

<version>1</version>

しかし、私はそれを実行するたびに、メッセージボックスがポップアップします..

私はちょうどそれをテストしました。バージョンとセル出力= 1.なぜそれが機能しないのかわかりません

4

3 に答える 3

2

VBAで：

Dim Data As String, cleanData As String

Data = "<version>1</version>"

cleanData = Replace(Replace(Data, "<version>", vbNullString), "</version>", vbNullString)

B57 がテキスト "1" である Excel の場合:

LEFT(RIGHT(B57, LEN(B57) - FIND(">",B57)), 1)
于 2012-11-26T17:32:00.903 に答える
0

...特にこれらの2つの単語に囲まれることがわかっている場合、次のようなものを使用できます。

MyVersion = Replace(Replace(x, "<version>", ""), "</version>", "")
于 2012-11-26T17:27:59.487 に答える
0

これがすでに文字列に格納されている場合、簡単な答えは次のようになります。

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

基本的に、文字列の前半を何も置き換えずに、後半を何も置き換えずに数字だけを残します。

于 2012-11-26T17:29:07.483 に答える