1

Тема: XML-синтаксис атрибутов ленты

Столкнулся с необходимостью подгонять динамические атрибуты компонентов ленты под XML-синтаксис используемый лентой. Например, атрибуты Label, ScreenTip, SuperTip в функциях getLabel, getScreenTip, getSuperTip и др.
Хорошо бы определится с полным XML-синтаксисом подобных атрибутов. Пока я обрабатываю их такой функцией:

Function Ribbon_XMLSyntax(ByRef S As String) As String

    Ribbon_XMLSyntax = S
    ' &
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, "&", "&")
    ' <
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, "<", "&lt;")
    ' >
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, ">", "&gt;")
    ' "
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, """", "&quot;")
    ' chr(13) + chr(10)
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, vbCrLf, " &#13;")
    ' chr(13)
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, vbCr, " &#13;")
    ' chr(10)
    Ribbon_XMLSyntax = Replace(Ribbon_XMLSyntax, vbLf, " &#13;")
    
End Function
Макросы под заказ и готовый пакет - mtdmacro.ru

2

Re: XML-синтаксис атрибутов ленты

Я в своё время сварганил такую функцию

Лучше день потерять — потом за пять минут долететь!