Удаление символов - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго дня. появилась такая проблемка: при выгрузке данных из Экселя в XML, в конце каждого выгруженного элемента появляются символы &#xA подскажите пожалуйста, как можно задать проверку строк в уже созданном файле, или может не пропускать, как-нибудь, сочетание этих символов) вот код выгрузки(использую карты XML):
А в Итоге создаётся XML файл:
узнал что набор этих символов обозначает Табуляцию в таблице. но как убирать эти символы так и не разобрался

Решение задачи: «Удаление символов »

textual
Листинг программы
Sub Изменяем_XML()
    '
    'by the Fever Brain
    '
    Dim FileXML$, GetXml$
    FileXML = "MyXML.xml" 'Здесь должон быть путь к файлу _
    по умолчанию это будет файл в открытой папке
 
    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(FileXML)
            GetXml = .ReadAll
        End With
        
        'Изменяем там чтото на тото
        GetXml = Replace(GetXml, "
", "")
        With .CreateTextFile(FileXML, True) 'True=Перезапись
            .Write GetXml 'Пишем туда
        End With
    End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы