Skip to content

Instantly share code, notes, and snippets.

@nanbu

nanbu/gist:1183384

Created August 31, 2011 12:03
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save nanbu/1183384 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save nanbu/1183384 to your computer and use it in GitHub Desktop.
Download ZIP
VBAで文字列をHTMLエスケープ
Raw
gistfile1.vb
Function EscapeHTML(Text) As String
Dim Result As String
Result = Replace(Text, "&", "&")
Result = Replace(Result, "<", "&lt;")
Result = Replace(Result, ">", "&gt;")
EscapeHTML = Result
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment