VBA网抓数据拆分

VBA爬虫得到的数据经常是><区间内的内容，下面是一个例子

以下是一个例子，可以帮助您获取所有包含在符号区间内且不为空的字符串。

Function GetStringsInBrackets(inputString As String) As Variant

    Dim outputArray() As String '声明输出数组
    Dim bracketStart As Integer '括号开始位置
    Dim bracketEnd As Integer '括号结束位置
    Dim currentIndex As Integer '当前位置
    Dim outputIndex As Integer '输出索引
    Dim extractString As String '提取的字符串

    ReDim outputArray(0 To 0) '将输出数组初始化为1个元素

    '从输入字符串的第1个字符开始，逐个遍历
    currentIndex = 1
    Do While currentIndex <= Len(inputString)

        '搜索接下来的左括号
        bracketStart = InStr(currentIndex, inputString, "<")
        If bracketStart = 0 Then Exit Do '如果没有左括号了，则停止遍历

        '搜索接下来的右括号
        bracketEnd = InStr(bracketStart, inputString, ">")
        If bracketEnd = 0 Then Exit Do '如果没有右括号了，则停止遍历

        '提取位于左右括号之间的子字符串
        extractString = Mid(inputString, bracketStart + 1, bracketEnd - bracketStart - 1)

        '检查提取的子字符串是否为空
        If Len(extractString) > 0 Then
            '如果不为空，则将其添加到输出数组中
            outputIndex = UBound(outputArray) + 1 '确定新元素的索引
            ReDim Preserve outputArray(0 To outputIndex) '扩展输出数组
            outputArray(outputIndex) = extractString '将提取的子字符串添加到输出数组中
        End If

        '将当前位置调整为右括号之后的下一个字符
        currentIndex = bracketEnd + 1

    Loop

    '返回输出数组
    GetStringsInBrackets = outputArray

End Function
您可以将上述代码复制并粘贴到VBA编辑器中，然后使用下面的代码行来测试它：

Sub TestGetStringsInBrackets()

    Dim inputString As String
    Dim outputArray As Variant
    Dim i As Integer

    '设置输入字符串
    inputString = "This is <some> text <with> <bracketed> words <> and <<<>>>"

    '从输入字符串中获取所有包含在符号区间内且不为空的字符串
    outputArray = GetStringsInBrackets(inputString)

    '将输出数组中的所有元素打印到立即窗口中
    For i = LBound(outputArray) To UBound(outputArray)
        Debug.Print outputArray(i)
    Next i

End Sub
此代码将输出以下内容：

some
with
bracketed