VB 一些處理資料的方法 2023-03-24 16:02:32
取代無意義的空格或換行
text = Replace(text, vbLf, "")
text = Replace(text, vbCr, "")
text = Replace(text, vbCrLf, "")
text = Replace(text, vbNewLine, "")
text = Replace(text, " ", "")
將雙引號取代成\"
text = Replace(text, """", "\""")
將字串HTML ENCODE
text = Server.HtmlEncode(text)
將HTML TAG全部刪除
Dim regexObject
Set regexObject = CreateObject("vbscript.regexp")
With regexObject
.Pattern = "<!*[^<>]*>" 'html tags and comments
.Global = True
.IgnoreCase = True
.MultiLine = True
End With
text = regexObject.Replace(text, "")
字串高過某個長度就只取到指定長度
IF Len(RemoveHTML(content)) > 80 Then
content = Left(content,80)&"..."
END IF