Есть ли какой-нибудь возможный способ получить глобальное решение для regex.pattern для текста типа xml?
таким образом я избавлюсь от функции замены, а оболочка использует регулярное выражение.
Беда в том, чтобы проанализировать <> порядок или нет ..
Также замена зарезервированных символов на '& и так далее.
вот код
обработка специальных функций символов
Функция-друг ReplaceSpecChars (строка ByVal как строка) как строка
Dim arrLessThan As New Collection
Dim arrGreaterThan As New Collection
Если не IsDBNull (str), то
str = CStr(str)
If Len(str) > 0 Then
str = Replace(str, "&", "&")
str = Replace(str, "'", "'")
str = Replace(str, """", """)
arrLessThan = FindLocationOfChar("<", str)
arrGreaterThan = FindLocationOfChar(">", str)
str = ChangeGreaterLess(arrLessThan, arrGreaterThan, str)
str = Replace(str, Chr(13), "chr(13)")
str = Replace(str, Chr(10), "chr(10)")
End If
Return str
Else
Return ""
End If
End Function
Друг Функция ChangeGreaterLess (ByVal lh As Collection, ByVal gr As Collection, ByVal str As String) Как строка
Поскольку я как целое число = 0 к lh.Count
Если CInt (lh.Item (i))> CInt (gr.Item (i)), то
str = Заменить (str, "<", "<") ///////// проблемы ////
Конец, если </p>
Next
str = Replace(str, ">", ">")
End Function
Функция Friend FindLocationOfChar (ByVal chr As Char, ByVal str As String) Как коллекция
Dim Arr As New Collection
For i As Integer = 1 Для str.Length () - 1
Если str.ToCharArray (i, 1) = chr, то
arr.Add (я)
End If
следующий
Возврат обр
Конечная функция
возникла проблема на отметке проблемы
это стандартный xml с разными тегами, которые я хочу проанализировать ..