Skip to content

Instantly share code, notes, and snippets.

@nanbu

nanbu/gist:1183393

Created August 31, 2011 12:10
Show Gist options

  • Select an option

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

Select an option

Learn more about clone URLs
Save nanbu/1183393 to your computer and use it in GitHub Desktop.
Download ZIP
VBAで文字列をHTMLの属性(Attribute)としてエスケープ
Raw
gistfile1.vb
Function EscapeHTMLAttribute(Text) As String
Dim Result As String
Result = Replace(Text, "&", "&")
Result = Replace(Result, """", """)
EscapeHTMLAttribute = Result
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment