| Single Post |
Topic: Редактирование файлов (вырезать, вставить, массово) |
| Author |
Message |
Flasher
|
 Posted: Sat Jun 25, 2011 23:07 Post subject: |
 |
|
shveicar
Честно пытался сделать набросок, но выходит не пойми чего:
| Code: | ' Замена в содержимом каждого из выделенных файлов строки на строку из файла списка
' в соответствии с сортировкой в активной панели и порядком следования в списке
' Параметры: %L "<Путь к файлу со списком замен>"
'================================================
T=CreateObject("WScript.Shell").ExpandEnvironmentStrings(WScript.Arguments(1))
Str="<META HTTP-EQUIV=""Refresh"" CONTENT=""0; URL=prise.zip"">"
With CreateObject("Scripting.FileSystemObject")
Set Temp = .GetFile(WScript.Arguments(0)).OpenAsTextStream(1)
Set List = .GetFile(T).OpenAsTextStream(1)
On Error Resume Next
Do While Not Temp.AtEndOfStream And Not List.AtEndOfStream
If Abs(Temp.Line)=Abs(List.Line) Then
Set F = .OpenTextFile(Temp.ReadLine,1)
Str1 = Left(List.ReadLine,Len(List.ReadLine))
R = Replace(F.ReadAll, Str, "<META HTTP-EQUIV=""\Refresh"" CONTENT=""0; URL=" & Str1 & """>",1,1,1)
.OpenTextFile(Temp.ReadLine,2).Write R
F.Close
End If
Loop
End With
WScript.Quit |
Тут какое-то условие нужно особое. В общем, надо ждать Батю, пусть поправит, где я промахнулся.  |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
