Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
И даже сейчас ты не доходчиво объясняешь. То, что ты хочешь, я понял исключительно из описанной тобой процедуры проверки.shveicar писал(а):Ну конечно, речь идет именно о замене фрагмента текста в теге, как я и пытался (видимо не совсем понятно) объяснить.
А мне сразу было ясно:Batya писал(а):Но что текст для замены нужно брать из соответствующей строки другого файла, это было неясно.
Замена должна производиться из тексового файла в котором список ссылок для замены. ....
Естественно число html файлов и число ссылок в текстовом файле совпадают, то есть в каждом выделенном файле html производится замена одной ссылки на одну ссылку по порядку из текстового файла списка.
Код: Выделить всё
' Замена в содержимом каждого из выделенных файлов строки на строку из файла списка
' в соответствии с сортировкой в активной панели и порядком следования в списке
' Параметры: %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
Изменил свой скрипт.shveicar писал(а):Пытаюсь проверить - жму кнопку скрипта ничего не происходит.
Код: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\html\zamema_po_sablonu.vbs
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=prise.zip'>" "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 1 %L "f:\total\Utils\html\filelist.txt"
F:\WINDOWS\System32\WScript.exe
zamema_po_sablonu
0
-1
Естесственно, я же чисто схематично привёл кнопку и не знаю путь к твоему filelist.txt.shveicar писал(а):единственное путь к файлу filelist.txt пришлось указывать полностью
Код: Выделить всё
Еще раз - премного благодарен!With WScript
Str1 = .Arguments(0)
Str2 = .Arguments(1)
Mode = .Arguments(2)
FF = .Arguments(3)
If .Arguments.Count > 4 Then FZ = .Arguments(4)
End With Код: Выделить всё
Str1 = InputBox("Введите искомую строку:", "Замена текста в файлах с помощью шаблонов")
With WScript
Str2 = .Arguments(0)
Mode = .Arguments(1)
FF = .Arguments(2)
If .Arguments.Count > 3 Then FZ = .Arguments(3)
End With Код: Выделить всё
0 %L "filelist.txt"Код: Выделить всё
1 %L "filelist.txt"Код: Выделить всё
"('flvpla1/player.swf','mplayer','640','380','9','000000')" "('%%FromFileArr%%','mplayer','640','380','9','000000')" 0 %L "filelist.txt"Код: Выделить всё
"<a href='flvpla1/player.swf' rel='nofollow'>" "<a href='%%FromFileArr%%' rel='nofollow'>" 1 %L "filelist.txt"Код: Выделить всё
<a href="flvpla1/player.swf" rel="nofollow">Так и в скрипте и в кнопке фигурируют строки как для поиска, так и для замены. В чём проблема?shveicar писал(а):Спасибо, окно конечно появляется, но после ввода текста, - появляется еще одно окно для ввода текста замены, а речь идет о замене текста из строчек текстового файла
А как удобно? Чтобы автоматически определялось, ставить кавычки или нет? Или по умолчанию для искомой строки без кавычек, а для той, на которую производится замена, с?shveicar писал(а):только, во втором случае приходится в ручную менять двойные кавычки в теге, на одинарные, а - это крайне не удобно.
Код: Выделить всё
('flvpla1/player.swf','mplayer','640','380','9','000000')Код: Выделить всё
"('%%FromFileArr%%','mplayer','640','380','9','000000')"Код: Выделить всё
%%FromFileArr%%Код: Выделить всё
flvpla1/player.swf