На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS

Дорогие друзья! Поздравляем вас с Новым 2025 годом!

Всем удачи, успеха и благополучия!

msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Как удалить родительский узел в XML если он содержит в себе дочерний узел , работа с VBS (XMLDOM) и файлом XML
    Друзья нужна помощь в удалении родительского узла <Placemark> если он содержит в себе узел <Point> и так нужно побеждаться по всему xml файлику.
    Я к сожалению не силен в VBA, поэтому нужна помощь.
    ExpandedWrap disabled
      <?xml version="1.0"?>
      <addons>
       
            <Placemark>
              <name>ТТ-4</name>
              <styleUrl>#icon-labelson-nodesc</styleUrl>
              <Point>
                <coordinates>
                  11.1234578,12.7451877
                </coordinates>
              </Point>
            </Placemark>
            
            <Placemark>
              <name>ТК-8</name>
              <styleUrl>#icon-labelson-nodesc</styleUrl>
                <coordinates>
                  12.2556868,13.5278782
                </coordinates>
            </Placemark>
       
      </addons>

    ExpandedWrap disabled
      Set objXMLDoc = Wscript.CreateObject("Microsoft.XMLDOM")
      objXMLDoc.async = False
       
      Dim XMLFile
      XMLFile = "C:\TEMP\XML\000.xml"
      objXMLDoc.load(XMLFile)
      Set nodes = objXMLDoc.selectNodes("addons/Placemark/Point")
      For Each node In nodes
        ????.remove
      Next
       
      objXMLDoc.Save(XMLFile)
       
      MsgBox "Delete completed"
    Сообщение отредактировано: User32 -
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0186 ]   [ 16 queries used ]   [ Generated: 20.01.25, 06:55 GMT ]