如何用VBA提取字符串中第4与第5个斜杠间的指定内容？

原代码的核心问题是依赖固定字符偏移量（iString + 21、jString - iString - 29）截取内容，只要URL前半部分长度稍有变化（比如Word01改成更长的名称），结果就会完全错误，根本没法适配不同结构的URL。

下面给两种稳定可靠的解决方法：

方法一：用Split函数分割字符串 #

这是最直观的方式，把URL按斜杠拆成数组，直接取对应位置的元素：

Sub ExtractTargetSegment()
    Dim sString As String
    Dim splitParts As Variant
    
    sString = "https://Word01.com/Word_02/Wööörd_03/Word_04/Word_05=0"
    ' 按斜杠分割字符串
    splitParts = Split(sString, "/")
    
    ' 数组索引说明（从0开始）：
    ' splitParts(0) = "" （https://第一个斜杠前的空内容）
    ' splitParts(1) = "" （https://两个斜杠之间的空内容）
    ' splitParts(2) = "Word01.com"
    ' splitParts(3) = "Word_02"
    ' splitParts(4) = "Wööörd_03"  ← 目标内容
    ' splitParts(5) = "Word_04"
    ' splitParts(6) = "Word_05=0"
    
    If UBound(splitParts) >= 4 Then
        MsgBox splitParts(4)
    Else
        MsgBox "URL格式不符合预期"
    End If
End Sub

不管前面的域名、路径片段长度怎么变，只要URL结构是https://xxx/xxx/目标内容/xxx/xxx的形式，就能精准提取目标部分。

方法二：循环定位斜杠位置 #

如果不想用Split函数，可以通过循环计数找到第4和第5个斜杠的位置，再截取中间内容：

Sub ExtractByFindingSlashes()
    Dim sString As String
    Dim currentPos As Long
    Dim slashCount As Integer
    Dim startPos As Long, endPos As Long
    
    sString = "https://Word01.com/Word_02/Wööörd_03/Word_04/Word_05=0"
    currentPos = 1
    slashCount = 0
    
    ' 定位第4个斜杠的位置
    Do While slashCount < 4 And currentPos > 0
        currentPos = InStr(currentPos + 1, sString, "/")
        slashCount = slashCount + 1
    Loop
    startPos = currentPos + 1 ' 目标内容的起始点（第4个斜杠之后）
    
    ' 定位第5个斜杠的位置
    endPos = InStr(startPos, sString, "/")
    ' 如果后面没有斜杠，就取到字符串末尾
    If endPos = 0 Then endPos = Len(sString) + 1
    
    ' 提取并显示结果
    MsgBox Mid(sString, startPos, endPos - startPos)
End Sub

这种方法通过动态查找斜杠位置，完全不依赖固定长度，适配性更强。

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