VBA截取html内容的小函数

不用正则表达式，简单截取两个字符串中间的内容。比如：

strhtml="<td>这里是内容</td>"

想获取“这里是内容”，就这样用这个函数：

MidBetween(0,strhtml,”<td>”,”</td>”)

其中nCursor是开始查找的位置，如果想从头开始，就是0。函数很简单，但是类似的功能经常要自己写，如果不是VBA已经停止支持，估计微软会把它加进来。

Function MidBetween(nCursor, strText, strStart, strEnd)

    Dim nStart, nEnd
    
    If InStr(nCursor, strText, strStart) = 0 Or InStr(nCursor, strText, strEnd) = 0 Then
        MidBetween = ""
    Else
        nStart = InStr(nCursor, strText, strStart) + Len(strStart)
        nEnd = InStr(nStart, strText, strEnd)
        MidBetween = Mid(strText, nStart, nEnd - nStart)
    End If
    
End Function

以上。

懒得每次重写的老狼