1 #Region "Microsoft.VisualBasic::ce075806382293939df3455aa5debe0c, Microsoft.VisualBasic.Core\Text\Xml\XmlEntity.vb"
2
3     ' Author:
4     ' 
5     '       asuka (amethyst.asuka@gcmodeller.org)
6     '       xie (genetics@smrucc.org)
7     '       xieguigang (xie.guigang@live.com)
8     ' 
9     ' Copyright (c) 2018 GPL3 Licensed
10     ' 
11     ' 
12     ' GNU GENERAL PUBLIC LICENSE (GPL3)
13     ' 
14     ' 
15     ' This program is free software: you can redistribute it and/or modify
16     ' it under the terms of the GNU General Public License as published by
17     ' the Free Software Foundation, either version 3 of the License, or
18     ' (at your option) any later version.
19     ' 
20     ' This program is distributed in the hope that it will be useful,
21     ' but WITHOUT ANY WARRANTY; without even the implied warranty of
22     ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23     ' GNU General Public License for more details.
24     ' 
25     ' You should have received a copy of the GNU General Public License
26     ' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30     ' /********************************************************************************/
31
32     ' Summaries:
33
34     '     Module XmlEntity
35     ' 
36     '         Function: EscapingXmlEntity, UnescapeHTML, UnescapingXmlEntity
37     ' 
38     ' 
39     ' /********************************************************************************/
40
41 #End Region
42
43 Imports System.IO
44 Imports System.Runtime.CompilerServices
45 Imports System.Text
46 Imports System.Web
47
48 Namespace Text.Xml
49
50     ''' <summary>
51     ''' https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references
52     ''' </summary>
53     Public Module XmlEntity
54
55         Public Function EscapingXmlEntity(str As String) As String
56             Return New StringBuilder(str) _
57                 .Replace("&", "&amp;") _
58                 .Replace("""", "&quot;") _
59                 .Replace("'", "&apos;") _
60                 .Replace("<", "&lt;") _
61                 .Replace(">", "&gt;") _
62                 .ToString
63         End Function
64
65         Public Function UnescapingXmlEntity(str As String) As String
66             Return New StringBuilder(str) _
67                 .Replace("&quot;", """") _
68                 .Replace("&apos;", "'") _
69                 .Replace("&lt;", "<") _
70                 .Replace("&gt;", ">") _
71                 .Replace("&amp;", "&") _
72                 .ToString
73         End Function
74
75         ''' <summary>
76         ''' 处理HTML之中的特殊符号的转义
77         ''' </summary>
78         ''' <param name="html"></param>
79         ''' <returns></returns>
80         <Extension> Public Function UnescapeHTML(html As String) As String
81             Using writer As New StringWriter()
82                 ' Decode the encoded string.
83                 HttpUtility.HtmlDecode(html, writer)
84                 Return writer.ToString()
85             End Using
86         End Function
87     End Module
88 End Namespace