- 656 名前：デフォルトの名無しさん mailto:sage [2009/06/12(金) 14:13:01 ]
- VBSでHTMLタグを除去するために下記のようなコードを作成したのですが
もっと高速にする方法はないでしょうか？
Function DeleteHtmlTag(ByVal s)
Dim ret
ret = ""
Dim i, bTag, w
bTag = False
For i = 1 To Len(s)
w = Mid(s, i, 1)
Select Case w
Case "<"
bTag = True
Case ">"
bTag = False
Case Else
If bTag = False Then
ret = ret & w
End If
End Select
Next
DeleteHtmlTag = ret
End Function
