FindHtmlTag

Top  Previous  Next

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

 

= "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