query von liste oder sql command

app/BrainpoolXmlParser/Mark.vb

@@ -22,6 +22,25 @@ Public Class Mark
     Private _OppositionPeriodEndDate As Date 'Ablauf Widerspruchsfrist
     Private _Image As ImageDetail
 
+    Private Function ReplaceSingleQuote(value As String)
+        Return value.Replace("'", "''")
+    End Function
+
+    Private Function ReplaceUmlauts(value As String)
+        Dim result = value.Replace("ae", "ä")
+        result = result.Replace("oe", "ö")
+        result = result.Replace("ue", "ü")
+        Return result
+    End Function
+
+    Private Function DecodeHTML(value As String)
+        Return WebUtility.HtmlDecode(value)
+    End Function
+
+    Private Function ParseShortDate(value As String)
+        Return DateTime.Parse(value).ToShortDateString()
+    End Function
+
 #Region "SearchProperties"
     Public Property RegistrationOfficeCode As String
         Get
@@ -37,7 +56,7 @@ Public Class Mark
             Return _RegistrationDate
         End Get
         Set(value As String)
-            _RegistrationDate = DateTime.Parse(value).ToShortDateString()
+            _RegistrationDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -55,9 +74,7 @@ Public Class Mark
             Return _MarkCurrentStatusCode
         End Get
         Set(value As String)
-            value = value.Replace("ae", "ä")
-            value = value.Replace("oe", "ö")
-            value = value.Replace("ue", "ü")
+            value = ReplaceUmlauts(value)
 
             _MarkCurrentStatusCode = value
         End Set
@@ -68,7 +85,10 @@ Public Class Mark
             Return _MarkVerbalElementText
         End Get
         Set(value As String)
-            _MarkVerbalElementText = WebUtility.HtmlDecode(value)
+            value = DecodeHTML(value)
+            value = ReplaceSingleQuote(value)
+
+            _MarkVerbalElementText = value
         End Set
     End Property
 
@@ -86,7 +106,7 @@ Public Class Mark
             Return _ApplicationDate
         End Get
         Set(value As String)
-            _ApplicationDate = DateTime.Parse(value).ToShortDateString()
+            _ApplicationDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -104,7 +124,10 @@ Public Class Mark
             Return _Applicant
         End Get
         Set(value As String)
-            _Applicant = WebUtility.HtmlDecode(value)
+            value = DecodeHTML(value)
+            value = ReplaceSingleQuote(value)
+
+            _Applicant = value
         End Set
     End Property
 
@@ -113,7 +136,10 @@ Public Class Mark
             Return _Representative
         End Get
         Set(value As String)
-            _Representative = WebUtility.HtmlDecode(value)
+            value = DecodeHTML(value)
+            value = ReplaceSingleQuote(value)
+
+            _Representative = value
         End Set
     End Property
 #End Region
@@ -123,7 +149,7 @@ Public Class Mark
             Return _PublicationDate
         End Get
         Set(value As String)
-            _PublicationDate = DateTime.Parse(value).ToShortDateString()
+            _PublicationDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -132,7 +158,7 @@ Public Class Mark
             Return _ExpiryDate
         End Get
         Set(value As String)
-            _ExpiryDate = DateTime.Parse(value).ToShortDateString()
+            _ExpiryDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -141,7 +167,7 @@ Public Class Mark
             Return _TerminationDate
         End Get
         Set(value As String)
-            _TerminationDate = DateTime.Parse(value).ToShortDateString()
+            _TerminationDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -150,7 +176,7 @@ Public Class Mark
             Return _OppositionPeriodStartDate
         End Get
         Set(value As String)
-            _OppositionPeriodStartDate = DateTime.Parse(value).ToShortDateString()
+            _OppositionPeriodStartDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -159,7 +185,7 @@ Public Class Mark
             Return _OppositionPeriodEndDate
         End Get
         Set(value As String)
-            _OppositionPeriodEndDate = DateTime.Parse(value).ToShortDateString()
+            _OppositionPeriodEndDate = ParseShortDate(value)
         End Set
     End Property
 
@@ -216,7 +242,7 @@ End Class
 
 Public Class ClassificationDetail
     Public ClassNumber As String
-    Public GoodsServicesDescription
+    Public GoodsServicesDescription As String
 
     Public Sub New()
     End Sub