VBA-Excel：如何提取字符串中Client="xxxx"内的文本

你的原代码问题在于第二个FIND("""", text)会匹配字符串中第一个双引号（也就是Version="1.10"里的起始引号），导致截取的位置完全错误。下面提供两种可靠的解决方案：

方法一：分步定位（适合简单场景） #

通过分步找到Client="的起始位置，再定位其后的首尾双引号，精准截取内容：

Dim text As String
Dim clientStart As Long
Dim contentStart As Long
Dim contentEnd As Long
Dim clientName As String

text = "< History Version=""1.10"" Client=""TestClient001"" >"
clientStart = InStr(text, "Client=""") ' 找到Client="的起始位置
If clientStart > 0 Then
    contentStart = clientStart + Len("Client=""") ' 跳过Client="，定位到内容开头
    contentEnd = InStr(contentStart, text, """") ' 找到内容后的第一个双引号
    If contentEnd > contentStart Then
        clientName = Mid(text, contentStart, contentEnd - contentStart)
        ' 输出结果：TestClient001
        Debug.Print clientName
    End If
End If

方法二：正则表达式（适合复杂/多变格式） #

正则表达式能更灵活匹配Client="xxx"格式的内容，即使字符串结构有细微变化也能适配：

Dim text As String
Dim regex As Object
Dim matches As Object

text = "< History Version=""1.10"" Client=""TestClient001"" >"
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "Client=""([^""]+)""" ' 匹配Client="后所有非引号字符
regex.Global = False

Set matches = regex.Execute(text)
If matches.Count > 0 Then
    ' 输出结果：TestClient001
    Debug.Print matches(0).SubMatches(0)
End If

内容的提问来源于stack exchange，提问作者sander126