function FindHtmlTag(sPageSource, sTagName, sParamName, ByRef iStartPos, ByRef iLength) As Boolean
|
Sucht in sPageSource nach dem ersten Vorkommen des HTML-Tags sTagName, der den Parameter sParamName enthält.
FindHtmlTag ist case-insensitive. Das erste Zeichen in sPageSource hat die Position 1. Falls sTagName incl. sParamName gefunden wird, retourniert FindHtmlTag den Wert TRUE.
Parameter
| • | sPageSource ... String-Ausdruck, der durchsucht wird. |
| • | sTagName, sParamName ... String-Ausdruck. HTML-Tag und Parameter-Name, nach denen gesucht wird. |
| • | iStartPos ... Index der gefundenen Stelle. |
| • | iLength ... Länge des gefundenen HTML-Tags. |
Beispiel:
Dim s, iStart, iLen
s = "Click <a href=info.htm>here</a> for more information"
If FindHtmlTag(s, "a", "HREF", iStart, iLen) Then
' returns iStart = 7, iLen = 17
s = Mid(s, iStart, iLen)
' returns s = "<a href=info.htm>"
End If
|
|