如何用VB提取網頁中的信息

用我提供的函數可以做到截取A字符串和B字符串中間字符串：

Function GetByDiv(ByVal code As String, ByVal divBegin As String, divEnd As String) '獲取分隔符所夾的內容[完成，通過測試]

Dim lgStart As Long

Dim lens As Long

Dim lgEnd As Long

lens = Len(divBegin)

lgStart = InStr(1, code, divBegin) + CLng(lens)

lgEnd = InStr(lgStart, code, divEnd)

GetByDiv = Mid(code, lgStart, lgEnd - lgStart)

End Function

上一篇:foxcode是什麽

下一篇:樂山實驗幼兒園的工資怎麽樣