1 Тема от Вождь

  • XML-синтаксис атрибутов ленты
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Тема: 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 Ответ от viter.alex

  • XML-синтаксис атрибутов ленты
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сайтviter.alex