Динамическое меню (продолжение 3)

    1 
    2 
    3 
    4 
    5 
    6 
    7 
    8 
    9 
   10 
   11 
   12 
Public Function GetRightXMLString(ByVal str As String) As String
'
'Замена в строке XML спецсимволов на их коды
'
  Dim ar(), i%
  ar = Array("""", "<", ">", "[", "]", "'", "-", vbTab, vbCr, vbCrLf, vbLf)
  For i = 0 To UBound(ar)
    str = Replace(str, ar(i), "&#" & AscW(ar(i)) & ";")
  Next
    str = Replace(Replace(str, ChrW(7), ""), ChrW(21), "")
  GetRightXMLString = CleanString(str)
End Function