1 #Region "Microsoft.VisualBasic::aa87a5e3ed09cefef7301cf14f37ed58, 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, 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 StringAs 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 StringAs 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         <Extension>
76         Public Function UnescapeHTML(html As StringAs String
77             Using writer As New StringWriter()
78                 ' Decode the encoded string.
79                 HttpUtility.HtmlDecode(html, writer)
80                 Return writer.ToString()
81             End Using
82         End Function
83     End Module
84 End Namespace