Flasher
|
 Posted: Tue Jan 15, 2013 19:31 Post subject: |
 |
|
qwerty
Таких программ со списками несколько. Что за пакет?
| Code: | ' Удалить в файле строки, взятые из другого файла
' Параметры: "<путь к файлу со списком для чтения>" "<Путь к редактируемому файлу>"
'==================================================================================
With WScript.Arguments
If .Count < 2 Then
WScript.Echo "Не указаны все параметры!" : WSCript.Quit
End If : RList = .Item(0) : WList = .Item(1)
End With
With CreateObject("Scripting.FileSystemObject")
Set File = .GetFile(WList) : Text = File.OpenAsTextStream(1, -2).ReadAll
For Each F in Split(.GetFile(RList).OpenAsTextStream(1, -2).ReadAll, vbNewLine)
If Trim(F) <> "" Then
Text = Replace(Text, F & vbNewLine, "") : Text = Replace(Text, vbNewLine & F, "")
End If
Next : File.OpenAsTextStream(2, -2).Write Text : Set File = Nothing
End With : WScript.Quit |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
