改行文字(CR、LF、CR+LF)を任意の文字に変換します。
- 改行文字をそろえる。
- 改行文字を<br>に変換する。
Dim SourceText As String
Dim ResultText As String
Function EscapeHTML(Text) As String | |
Dim Result As String | |
Result = Replace(Text, "&", "&") | |
Result = Replace(Result, "<", "<") | |
Result = Replace(Result, ">", ">") | |
EscapeHTML = Result | |
End Function |
Function EscapeHTMLAttribute(Text) As String | |
Dim Result As String | |
Result = Replace(Text, "&", "&") | |
Result = Replace(Result, """", """) | |
EscapeHTMLAttribute = Result | |
End Function |