Ａ變數里保存的，ＸＭＬ的一個標簽
例：
A="<max>1000</max>"
我要取得1000這個數值，要如何取得。
其中，<max></max>這種是有可能的，如果沒有數值，我還需要判斷。
同時，數值長度不確定，可以任意長度
求教
uj5u.com熱心網友回復：
樓主參考一下：A = "<max>1000</max>"
i = InStr(1, A, ">") + 1 ' 確定第1個">"字符后面的位置
j = InStr(i, A, "<") - i ' 計算">"與"<"之間的字符數
If (j = 0) Then
MsgBox "標簽中沒有資料。", 64
Else
A = Mid$(A, i, j)
MsgBox A, 64
End If
uj5u.com熱心網友回復：
a=replace(a,"<max>","")uj5u.com熱心網友回復：
a=replace(a,"</max>","")
經過二次替換就剩下中的文字了。
判斷一下長度，如果是0，就是沒有。
uj5u.com熱心網友回復：
'把兩個指定字串中間的內容取出來
‘用法
debug.print MidStr("<max>1000</max>","<max>","</max>")
Public Function MidStr(ByVal Str As String, ByVal StartStr As String, ByVal EndStr As String, Optional ByVal Order As Integer = 0) As String
Dim L As Long, R As Long
L = InStr(Str, StartStr)
If L = 0 Then Exit Function
L = L + Len(StartStr)
If Order = 0 Then
R = InStr(L, Str, EndStr)
Else
R = InStrRev(Str, EndStr)
End If
If R < L Then Exit Function
MidStr = Mid(Str, L, R - L)
End Function
uj5u.com熱心網友回復：
Dim A As String
Dim v As Long
A = "<max>1000</max>"
v = Val(Mid(A, InStr(A, ">") + 1))
uj5u.com熱心網友回復：
正則運算式，必須的轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/65434.html
標籤：VB基礎類
上一篇：WINIO如何記錄連續按鍵
下一篇：求修改代碼