vb批量提取网站标题
发布网友
发布时间：2022-04-22 07:19
共1个回答
热心网友
时间：2022-06-17 13:49
Function GetPageTitle(ByVal strCode As String) As String
'这里假设 strCode 是网页源代码
Dim strTemp As String, i As Integer, j As Integer
i = InStr(1, LCase(strCode), "<title>") + 7
j = InStr(i, LCase(strCode), "</title>")
strTemp = Mid(strCode, i, j - l)
GetTitle = strTemp
End Function
