Макрос записи справа от символа.

[Sensi]

Всем здравствуйте и доброго времени суток.

Вот есть такая задача. Точнее две.

первая.
нужно найти некое сочетание символов и вслед за ними (или перед ними) написать заданное слово.

вторая.
есть такие строки в xml файлике
<tag>№№</tag>
нужно вставить "x" вместо "№№". №№ может быть 1-, 2-, 3-х значным числом.
проблема в том, что числа могут встречаться и в других строках... но есть зацепка tag...

Как сделать? заранее очень благодарен специалистам!

[doober]

Файла примера нет,могу только в темную написать.
Код рабочий.

Добавте ссылку на библиотеку MSXML

Sub Пример_Использования()
 If To_find_and_replace("4638868", "вася4638868пупкин", "C:\Product.xml") Then
 MsgBox "Все ОК"
 Else
  MsgBox "Заменить не удалось"
 End If
End Sub


Public Function To_find_and_replace(find_ As Variant, replace_ As Variant, Path_XML As String) As Boolean
      To_find_and_replace = False
        Dim xmlDoc As MSXML2.DOMDocument30
        Set xmlDoc = New DOMDocument30
        xmlDoc.async = False
        xmlDoc.validateOnParse = False
        xmlDoc.Load (Path_XML)
        Dim objNode As IXMLDOMNode
        Dim objListOfNodes As IXMLDOMNodeList
        Dim Выбор As IXMLDOMNodeList
        xmlDoc.setProperty "SelectionLanguage", "XPath"
        XPath = "//tag"

        Set objListOfNodes = xmlDoc.SelectNodes(XPath)
     
                For Each objNode In objListOfNodes(0).ChildNodes
                If objNode.Text = find_ Then
                objNode.Text = replace_
                To_find_and_replace = True
                  Exit For
                End If
                Next
          xmlDoc.Save Path_XML
End Function

[Sensi]

Спасибо, а не могли бы на примере показать, как этот код прикрутить в notepad'e.
хотя я просто копирую его и вставляю в excel. и начинаю обрабатывать как текст..правда при этом форматирование пропадает. и компилятор жалуется MSXML2.DOMDocument30 not defined...

например, вот xml пример.
https://www.dropbox.com/s/2q4q3o1jr2hwift/xml_.xml

[doober]

Перед обработкой файла xml закоментируйте строку в нем
<!DOCTYPE yml_catalog SYSTEM "shops.dtd">
на <!---DOCTYPE yml_catalog SYSTEM "shops.dtd"--->
После обработки верните ее в исходное состояние.
идео в помощь ЗДЕСЬshops.dtd

[Sensi]

В общем посидел я, подумал - это не совсем то получается...

нужно то в каждом(!) теге description, которые содержатся в документе xml
А - или поменять значение, (независимо от того какое значение там есть
Б - или при ставить к уже имеющемуся значению (например, к цене любой опять же - приставить "руб.")

то есть к каждому тегу приставить руб. а не к отдельно взятому офферу .

[doober]

Сообщение от Sensi

В общем посидел я, подумал - это не совсем то получается...

Вам было предложено два варианта поиска вашего загадочного тега.

Исходя из первого варианта,функция приобретает вид

Public Function To_find_and_replace(AB As Boolean, replace_ As Variant, Path_XML As String) As Boolean
      To_find_and_replace = False
        Dim xmlDoc As MSXML2.DOMDocument30
        Set xmlDoc = New DOMDocument30
        xmlDoc.async = False
        xmlDoc.validateOnParse = False
        xmlDoc.Load (Path_XML)
        Dim objNode As IXMLDOMNode
        Dim objListOfNodes As IXMLDOMNodeList
        Dim Выбор As IXMLDOMNodeList
        xmlDoc.setProperty "SelectionLanguage", "XPath"
        XPath = "//description"

        Set objListOfNodes = xmlDoc.SelectNodes(XPath)
     
     For n = 0 To objListOfNodes.Length - 1
                For Each objNode In objListOfNodes(n).ChildNodes
               If AB Then
                objNode.Text = replace_
               Else
                 objNode.Text = objNode.Text & "руб."
               End If
                To_find_and_replace = True
            Next
                
       Next
          xmlDoc.Save Path_XML
End Function

[Sensi]

а почему компилятор ругается на эту строку
MSXML2.DOMDocument30
user-defined type not defined

?

я с точностью это скопировал код функции.. ничего не получается(

я смог сделать только так, как в видео.. но это не подходит.
мне надо заменить значения внутри встречающихся тегов <categoryID> x </categoryID>
и добавить к значению внутри тегов <description> x р.=</description>
подскажите как быть то, как сделать?

[doober]

Сообщение от Sensi

а почему компилятор ругается на эту строку
MSXML2.DOMDocument30
user-defined type not defined

В самом начале фильма я показал добавление ссылки

подскажите как быть то, как сделать?

Подскажу.
Все тот же пример

Sub Пример_Использования()
 If To_find_and_replace("93144", "новая categoryID", "C:\yml_catalog.xml") Then
 MsgBox "Все ОК"
 Else
  MsgBox "Заменить не удалось"
 End If
End Sub


Public Function To_find_and_replace(find_ As Variant, replace_ As Variant, Path_XML As String) As Boolean
      To_find_and_replace = False
        Dim xmlDoc As MSXML2.DOMDocument30
        Set xmlDoc = New DOMDocument30
        xmlDoc.async = False
        xmlDoc.validateOnParse = False
        xmlDoc.Load (Path_XML)
        Dim objNode As IXMLDOMNode
        Dim objListOfNodes As IXMLDOMNodeList
        xmlDoc.setProperty "SelectionLanguage", "XPath"
        XPath = "//offer [@id='" & find_ & "']"
        Set objListOfNodes = xmlDoc.SelectNodes(XPath)
                For Each objNode In objListOfNodes(0).ChildNodes
               If objNode.BaseName = "description" Then
               
                 objNode.Text = objNode.Text & "р."
               End If
              
                If objNode.BaseName = "categoryID" Then
               
                 objNode.Text = replace_
               End If
                To_find_and_replace = True
                              
                Next
          xmlDoc.Save Path_XML
End Function

Game Over

[Sensi]

опять ругается на это
For Each objNode In objListOfNodes(0).ChildNodes

variable not set...

[динал123]

Все привет , извините что не по теме , у меня такая проблема с роутерем= раньше играл с роутером но вдруг захотел новый ip адрес он был у меня 192.168.1.2 ну я изменил его на 192.168.1.28 просто попробывать но и потом понял что наделал я сменил IPv4 и вдруг сайт routerlogin.com выключился я его включать он нет и интернет отрубылся , помогите как вернуть 192.168.1.2 или хотябы интернет, пытался настроить ну и понял как сделать через копьютер зашол в его свойства и нажал не авто написал свой но интернет и сайт routerlogin.com не работает!