Strip HTML
Strip HTML from a string with this function. That basically explains it's all!!
AI
AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ソースコード
Public Function StripHTML(sHTML As String) As String
Dim sTemp As String, lSpot1 As Long, lSpot2 As Long, lSpot3 As Long
sTemp$ = sHTML$
Do
lSpot1& = InStr(lSpot3& + 1, sTemp$, "<")
lSpot2& = InStr(lSpot1& + 1, sTemp$, ">")
If lSpot1& = lSpot3& Or lSpot1& < 1 Then Exit Do
If lSpot2& < lSpot1& Then lSpot2& = lSpot1& + 1
sTemp$ = Left$(sTemp$, lSpot1& - 1) + Right$(sTemp$, Len(sTemp$) - lSpot2&)
lSpot3& = lSpot1& - 1
Loop
StripHTML$ = sTemp$
End Function
<script language=javascript>
alert ("type alert here")
</SCRIPT>
</head>
</html>
Upload
オリジナルのコメント (3)
Wayback Machineから復元