Понятно. Исправил предложенный тобой скрипт.
Не тестировал, поэтому первый запуск советую произвести на тестовой папке с копиями реальных файлов. В теории все должно работать
Если чего то работать не будет или будет работать не так, опиши подробно что не так.
Перед использованием читай описание внизу сообщения.
Код:
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim objArgs
Dim objFSO
Dim objFile
Dim strWhatFind
Dim strReplaceBy
Dim strFindFrom
Dim strFindTo
Dim strContent
Set objArgs = WScript.Arguments.Named
If objArgs.Count = 5 Then
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objArgs.Exists("FolderForScan") Then
If objArgs.Exists("FileExtension") Then
If objArgs.Exists("FileReplaceBy") Then
If objArgs.Exists("FileFindFrom") Then
If objArgs.Exists("FileFindTo") Then
If objFSO.FolderExists(objArgs.Item("FolderForScan")) Then
If objFSO.FileExists(objArgs.Item("FileFindFrom")) Then
If objFSO.FileExists(objArgs.Item("FileFindTo")) Then
If objFSO.FileExists(objArgs.Item("FileReplaceBy")) Then
If objFSO.GetFile(objArgs.Item("FileFindFrom")).Size > 0 Then
With objFSO.OpenTextFile(objArgs.Item("FileFindFrom"), ForReading)
strFindFrom = .ReadAll()
.Close
End With
Else
strFindFrom = ""
End If
If objFSO.GetFile(objArgs.Item("FileFindTo")).Size > 0 Then
With objFSO.OpenTextFile(objArgs.Item("FileFindTo"), ForReading)
strFindTo = .ReadAll()
.Close
End With
Else
strFindTo = ""
End If
If objFSO.GetFile(objArgs.Item("FileReplaceBy")).Size > 0 Then
With objFSO.OpenTextFile(objArgs.Item("FileReplaceBy"), ForReading)
strReplaceBy = .ReadAll()
.Close
End With
Else
strReplaceBy = ""
End If
WScript.Echo "Folder for scan: " & objArgs.Item("FolderForScan")
WScript.Echo "File extension: " & objArgs.Item("FileExtension")
WScript.Echo "File find from: " & objArgs.Item("FileFindFrom")
WScript.Echo "File find to: " & objArgs.Item("FileFindto")
WScript.Echo "File replace by: " & objArgs.Item("FileReplaceBy")
WScript.Echo
ScanSubFolders objFSO.GetFolder(objArgs.Item("FolderForScan"))
Else
WScript.Echo "File [" & objArgs.Item("FileReplaceBy") & "] not found"
End If
Else
WScript.Echo "File [" & objArgs.Item("FileFindTo") & "] not found"
End If
Else
WScript.Echo "File [" & objArgs.Item("FileFindFrom") & "] not found"
End If
Else
WScript.Echo "Folder [" & objArgs.Item("FolderForScan") & "] not found"
End If
Else
WScript.Echo "Not found argument <FileFindTo>"
Call Usage
End If
Else
WScript.Echo "Not found argument <FileFindFrom>"
Call Usage
End If
Else
WScript.Echo "Not found argument <FileReplaceBy>"
Call Usage
End If
Else
WScript.Echo "Not found argument <FileExtension>"
Call Usage
End If
Else
WScript.Echo "Not found argument <FolderForScan>"
Call Usage
End If
Set objFSO = Nothing
Else
Call Usage
End If
Set objArgs = Nothing
WScript.Quit
'=============================================================================
'=============================================================================
Sub ScanSubFolders(objFolder)
Dim objSubFolder
Dim objFile
WScript.Echo "[" & objFolder.Path & "]"
For Each objFile In objFolder.Files
If UCase(objFSO.GetExtensionName(objFile.Name)) = UCase(objArgs.Item("FileExtension")) Then
WScript.Echo " " & objFile.Name
If objFile.Size > 0 Then
With objFSO.OpenTextFile(objFile.Path, ForReading)
strContent = .ReadAll()
.Close
End With
Dim posFrom As Currency
Dim posTo As Currency
If strFindFrom > "" And strFindTo > "" Then
posFrom = InStr(1, strContent, strFindFrom, vbTextCompare) + Len(strFindFrom)
posTo = InStr(1, strContent, strFindTo, vbTextCompare)
Else
If strFindFrom > "" And strFindTo = "" Then
posFrom = InStr(1, strContent, strFindFrom, vbTextCompare) + Len(strFindFrom)
posTo = Len(strContent)
End If
If strFindFrom = "" And strFindTo > "" Then
posFrom = 1
posTo = InStr(1, strContent, strFindTo, vbTextCompare)
End if
If strFindFrom = "" And strFindTo = "" Then
posFrom = 0
posTo = 0
End if
End If
If posFrom > Len(strFindFrom) And posTo > 0 Then
strWhatFind = Mid(strContent, posFrom, posTo - posFrom)
Else
strWhatFind = ""
End If
If InStr(1, strContent, strWhatFind, vbTextCompare) > 0 Then
WScript.Echo " Fragment for replace found"
With objFSO.OpenTextFile(objFile.Path, ForWriting)
.Write Replace(strContent, strWhatFind, strReplaceBy)
.Close
End With
End If
End If
End If
Next
WScript.Echo
For Each objSubFolder In objFolder.SubFolders
ScanSubFolders objSubFolder
Next
End Sub
'=============================================================================
'=============================================================================
Sub Usage()
WScript.Echo "Usage: cscript.exe //nologo " & WScript.ScriptName & " " & _
"/FolderForScan:<folder> " & _
"/FileExtension:<extension> " & _
"/FileWhatFind:<file> " & _
"/FileReplaceBy:<file>"
End Sub
Описание:
Теперь скрипт нужно запускать не с 4 параметрами, а с 5.
- FolderForScan - был
- FileExtension - был
- FileReplaceBy - был
- FileFindFrom - новый параметр. Строка от которой нужно произвести замену (не включая саму строку)
- FileFindTo - новый параметр. Строка до которой нужно произвести замену (не включая саму строку)
Соответственно файлов с информацией теперь будет 3:
- Файл со строкой начала
- Файл со строкой конца
- Файл с текстом для замены
Условия выполнения замены (
важно):
Если в файле начальной строки и в файле конечной строки есть информация и она найдена в тексте, то будет произведена обычная заменя ОТ -- ДО
Если в файле начальной строки ничего нет, а в файле конечной строки есть информация и она найдена, то будет произведена замена с самого начала файла до конечной строки
Если в файле начальной строки есть информация и она найдена, а в файле конечной строки ничего нет, то будет произведена замена от начальной строки до конца файла
