[Serguei Kouzmine]

скрипт на повершел можно написать чтобы это сделать

[v79italya]

Паувэр шелл тоже подходит.
Только я сам не смогу написать, т.к. не умею
Прошу помочь.
Сейчас эту задачу выполняю вручную в Нотепадд++. Двадцать-тридцать замен не очень напрягает. Но есть вероятность что замен будет более пятидесяти раз. Благо это нужно всего два-три раза в месяц

[megaloman]

v79italya, .vbs

Код:

Option Explicit

Dim FileXLS: FileXLS = "Z:\Box_In\папка\Лист Microsoft Excel.xlsm"
Dim BeginXLS: BeginXLS = "A2"
Dim FileXMLin: FileXMLin = "Z:\Box_In\папка\SNMPDiscovery.xml"
Dim FileXMLout: FileXMLout = "Z:\Box_In\папка\SNMPDiscoveryOut.xml"

Dim Mass, i, i1, i2, j2
Dim AllTxt

MsgBox "Begin"
With CreateObject("Excel.Application")
    .Visible = False 'True
    .Workbooks.Open FileXLS
    Mass = .Range(.Range(BeginXLS), .Range(BeginXLS).Offset(0, 1).End(-4121))
    .Quit
End With

i1 = LBound(Mass, 1)
i2 = UBound(Mass, 1)
j2 = UBound(Mass, 2)

With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(FileXMLin, 1, False)
        AllTxt = .ReadAll
        .Close
    End With
    
    For i = i1 To i2
        AllTxt = Replace(AllTxt, Mass(i, i1), Mass(i, j2))
    Next
    
    With .OpenTextFile(FileXMLout, 2, True)
        .Write AllTxt
        .Close
    End With
End With
MsgBox "Done"

[v79italya]

megaloman, спасибо за скрипт!
С кириллицей в пути или в имени файла не захотел работать. Но это не беда
А вот с этим справочником почему не хочет работать? 12 замен сделало и все
ps предупрежу что в последней строке справочника Номер 1 заменяется на vv. Это я проверял будет ли происходить замена если в одном искомом значении есть часть другого искомого значения. Будет

[megaloman]

v79italya,

С кириллицей в пути или в имени файла не захотел работать. »

- не надо ляля. Сохраняйте скрипт в 1251 кодировке, у меня же работает. На всякий случай прилагаю свой файл.

А вот с этим справочником почему не хочет работать? 12 замен сделало и все »

Всегда можно подобрать данные, способные одурачить программу

Проблема - в столбце справочника пустые ячейки. Уточняю: в столбце A не должно быть пустых ячеек среди данных. В столбце B - эту ситуацию учел.

если в одном искомом значении есть часть другого искомого значения. »

Больше не будет, если в обрабатываемом файле эти значения в кавычках.

Код:

Option Explicit

Dim FileXLS: FileXLS = "D:\Мой контент\Загрузки\Microsoft Excel.xlsx"
Dim BeginXLS: BeginXLS = "A2"
Dim FileXMLin: FileXMLin = "Z:\Box_In\папка\SNMPDiscovery.xml"
Dim FileXMLout: FileXMLout = "Z:\Box_In\папка\SNMPDiscoveryOut.xml"

Dim Mass, i, i1, i2, j2
Dim AllTxt

MsgBox "Begin"
With CreateObject("Excel.Application")
    .Visible = False 'True
    .Workbooks.Open FileXLS
    Mass = .Range(BeginXLS + ":" + .Range(BeginXLS).End(-4121).Offset(0, 1).Address)
    .Quit
End With

i1 = LBound(Mass, 1)
i2 = UBound(Mass, 1)
j2 = UBound(Mass, 2)

With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(FileXMLin, 1, False)
        AllTxt = .ReadAll
        .Close
    End With
    
    For i = i1 To i2
        AllTxt = Replace(AllTxt, """" + Mass(i, i1) + """", """" + Mass(i, j2) + """")
    Next
    
    With .OpenTextFile(FileXMLout, 2, True)
        .Write AllTxt
        .Close
    End With
End With
MsgBox "Done"

Переименуйте мой файл из txt. Пропишите свои пути.

[v79italya]

megaloman, спасибо еще раз

сли в обрабатываемом файле эти значения в кавычках »

вот этот момент я не до конца понял. Если надо заменить Магазин Продуктов на Продуктовый Магазин, а также заменить Магазин на Ларек и Продукт на Товар, то как следует их в кавычки брать?

[megaloman]

v79italya, Я в тупике, что Вам надо.
Если в справочнике
Магазин Продуктов и Продуктовый Магазин
скрипт в файле будет искать "Магазин Продуктов" и менять на "Продуктовый Магазин"
"Магазин продуктов №5" уже не поменяется на "Продуктовый магазин" если это в справочнике не прописано.
А иначе как определить, где полное название а где его часть?

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

- мы это проходили. Сформулируйте, как определить, как подставить строку. Будем думать.

[v79italya]

megaloman, меня уже все устраивает. Даже первый Ваш скрипт мне подходит(Учитывать отсутствие кириллицы в пути и имени файла не проблема).
А так вот например с чем приходится работать

[megaloman]

А так вот например с чем приходится работать »

Что это? И что с этого надо поиметь? Не пойму проблему кириллицы в пути и имени файла - нет её. Формулируйте, чтобы можно было решить.