[DmitriiV]

Можно, но нужно знать критерий, согласно которому выполняется замена.

[aggressor_]

Можно, но нужно знать критерий, согласно которому выполняется замена. »

Допустим есть в папке 40 xml файлов. С помощью скрипта нужно просканировать эти файлы на наличие определённого слова и заменить его из списка.
_something1_ => someaddress(@)mail.ru (1 строчка из списка)
_something2_ => тел. 43242342 (2 строчка из списка)
_something3_ => ул.Красная 10 Караганда (3 строчка из списка)
Либо же напрямую обращаться к файлу, прописав путь.

[DmitriiV]

1. По-моему, задачи из Ваших сообщений не идентичны.
2. Что значит: "Либо же напрямую обращаться к файлу, прописав путь"?

[aggressor_]

Задачи идентичны. Просто немного переформулированы.

Что значит: "Либо же напрямую обращаться к файлу, прописав путь"? »

Это значит, что я знаю в каких именно файлах будут находиться эти анкоры, которые будет заменять скрипт. Т.е. можно либо просканировать папку и заменить слова в файлах, либо же прописать путь к каждому из необходимых файлов.

[SendMessage]

Код:

Option Explicit
 
Dim objFSO 
Dim objShApp
Dim objWshSh
Dim strMask
Dim CurrFolderPath
Dim strFileP
Dim OpenFile
Dim nLine
Dim strLine(2)
Dim strRepl(2)
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") 
Set objShApp = WScript.CreateObject("Shell.Application")
Set objWshSh = CreateObject("WScript.Shell")

' поместите файл скрипта в каталог, который нужно обработать
CurrFolderPath = objWshSh.CurrentDirectory
' маска обрабатываемых файлов
strMask = "*.txt; *.htm"
' файл-образец для замены
strFileP = "z:\list.txt"
' заменяемые выражения
strRepl(0) = "_something1_"
strRepl(1) = "_something2_"
strRepl(2) = "_something3_"

Set OpenFile = objFSO.OpenTextFile(strFileP, 1)
  Do Until OpenFile.AtEndOfStream = True Or nLine = 2
      nLine = OpenFile.Line - 1
      strLine(nLine) = OpenFile.ReadLine
  Loop
OpenFile.Close

If nLine < 2 Then
  MsgBox "Некорректный файл-образец"
Else
  GetFiles objFSO.GetFolder(CurrFolderPath)
End If

Set objFSO = Nothing
Set objShApp = Nothing
Set objWshSh = Nothing

MsgBox "Скрипт завершил обработку каталога"

WScript.Quit 
 
Sub GetFiles(objFolder) 
  Dim SubFolderItem
    ReplaceTextToFiles(objFolder.Path)
    For Each SubFolderItem In objFolder.SubFolders
      GetFiles SubFolderItem 
    Next 
End Sub 
 
Sub ReplaceTextToFiles(strPath) 
  Dim arrFiles
  Dim i, n
  Dim strItemFile
  Dim strText   
    Set arrFiles = objShApp.NameSpace(strPath).Items 
    arrFiles.Filter 192, strMask
    For i = 0 To arrFiles.Count - 1
      strItemFile = arrFiles.Item(i).Path
      Set OpenFile = objFSO.OpenTextFile(strItemFile, 1)
        strText = OpenFile.ReadAll
      OpenFile.Close
      For n = 0 To 2
        strText = Replace(strText, strRepl(n), strLine(n), 1, -1, 1)
      Next
      Set OpenFile = objFSO.OpenTextFile(strItemFile, 2)
        OpenFile.Write strText
      OpenFile.Close
    Next
End Sub

[aggressor_]

Большое спасибо! То что надо!
Этот скрипт ограничен только 3 заменами, а можно добавить strRepl(3) = "_something4_" для четвёртой замены или этого мало и нужно будет ещё корректировать скрипт?

[SendMessage]

Этот скрипт ограничен только 3 заменами, а можно добавить strRepl(3) = "_something4_" для четвёртой замены или этого мало и нужно будет ещё корректировать скрипт? »

Да, нужно.

читать дальше »

Код:

Option Explicit
 
Dim objFSO 
Dim objShApp
Dim objWshSh
Dim strMask
Dim CurrFolderPath
Dim strFileP
Dim OpenFile
Dim nLine
Dim strLine()
Dim strRepl()
Dim nReplaceItems
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") 
Set objShApp = WScript.CreateObject("Shell.Application")
Set objWshSh = CreateObject("WScript.Shell")

' количество заменяемых пунктов (минус 1 пункт)
nReplaceItems = 3

ReDim strLine(nReplaceItems)
ReDim strRepl(nReplaceItems)

' поместите файл скрипта в каталог, который нужно обработать
CurrFolderPath = objWshSh.CurrentDirectory
' маска обрабатываемых файлов
strMask = "*.txt; *.htm"
' файл-образец для замены
strFileP = "z:\list.txt"
' заменяемые выражения
strRepl(0) = "_something1_"
strRepl(1) = "_something2_"
strRepl(2) = "_something3_"
strRepl(3) = "_something4_"

Set OpenFile = objFSO.OpenTextFile(strFileP, 1)
  Do Until OpenFile.AtEndOfStream = True Or nLine = nReplaceItems
      nLine = OpenFile.Line - 1
      strLine(nLine) = OpenFile.ReadLine
  Loop
OpenFile.Close

If nLine < nReplaceItems Then
  MsgBox "Некорректный файл-образец"
Else
  GetFiles objFSO.GetFolder(CurrFolderPath)
End If

Set objFSO = Nothing
Set objShApp = Nothing
Set objWshSh = Nothing

MsgBox "Скрипт завершил обработку каталога"


WScript.Quit 
 
Sub GetFiles(objFolder) 
  Dim SubFolderItem
    ReplaceTextToFiles(objFolder.Path)
    For Each SubFolderItem In objFolder.SubFolders
      GetFiles SubFolderItem 
    Next 
End Sub 
 
Sub ReplaceTextToFiles(strPath) 
  Dim arrFiles
  Dim i, n
  Dim strItemFile
  Dim strText   
    Set arrFiles = objShApp.NameSpace(strPath).Items 
    arrFiles.Filter 192, strMask
    For i = 0 To arrFiles.Count - 1
      strItemFile = arrFiles.Item(i).Path
      MsgBox strItemFile
      Set OpenFile = objFSO.OpenTextFile(strItemFile, 1)
        strText = OpenFile.ReadAll
      OpenFile.Close
      For n = 0 To nReplaceItems
        strText = Replace(strText, strRepl(n), strLine(n), 1, -1, 1)
      Next
      Set OpenFile = objFSO.OpenTextFile(strItemFile, 2)
        OpenFile.Write strText
      OpenFile.Close
    Next
End Sub

В выделенное красным вставляйте нужное количество строк для замены (минус 1). И, соответственно, добавляйте (или убирайте) заменяемые строчки

[aggressor_]

Если я верно понял, то теперь можно просто менять значение nReplaceItems = ... и добавлять strRepl(...) = "..." столько, сколько мне нужно? Никаких ограничений на символы нет в заменяемом тексте?

[SendMessage]

Насчет ограничений на символы не очень понял.
В остальном - да. Но не стоит выходить за рамки количества нужных строк в файле-образце.