Редактирование файлов (вырезать, вставить, массово)

Обсуждение вопросов автоматизации Total Commander с помощью сторонних программ и скриптовых технологий.

Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер

Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

shveicar
Для одного окна поправил. Работает?
Аватара пользователя
shveicar
Сообщения: 277
Зарегистрирован: Пн апр 18, 2011 01:54
Откуда: Россия Москва

Сообщение shveicar »

Одно окно то работает, но после ввода текста для замены выскакивает другое - с ошибкой

Код: Выделить всё

Сценарий:	F:\total\Utils\html\zamema_po_sablonu2.vbs
Строка:	30
Символ:	1
Ошибка:	Несоответствие типа: '[string: "C:\DOCUME~1\xxx\LOCA"]'
Код:	800A000D
Источник: 	Ошибка выполнения Microsoft VBScript
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

shveicar
Исходный второй параметр вернул в качестве первого?
Аватара пользователя
shveicar
Сообщения: 277
Зарегистрирован: Пн апр 18, 2011 01:54
Откуда: Россия Москва

Сообщение shveicar »

Второй это какой? у меня сейчас верхняя часть скрипта выглядит

Код: Выделить всё

Option Explicit
Dim FSO, WSH, F, FF, Mode, Str1, Str2, Errors, i, FZ, ArrZ
Set FSO    = CreateObject("Scripting.FileSystemObject")
Set WSH    = CreateObject("WScript.Shell")
Set Errors = CreateObject("Scripting.Dictionary")
Str1 = InputBox("Введите искомую строку:", "Замена текста в файлах с помощью шаблонов")
With WScript
  Str2 = .Arguments(0)
  Mode = .Arguments(1)
  FF   = .Arguments(2)
  If .Arguments.Count > 3 Then FZ = .Arguments(3)
End With 
ну а дальше все как в оригинале у Batya.
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Я про параметры в кнопке.
Аватара пользователя
shveicar
Сообщения: 277
Зарегистрирован: Пн апр 18, 2011 01:54
Откуда: Россия Москва

Сообщение shveicar »

Ну а кнопка - выглядит так

Код: Выделить всё

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\html\zamema_po_sablonu2.vbs
0 %L "filelist.txt"
C:\WINDOWS\System32\WScript.exe
zamema_po_sablonu2


-1
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

shveicar
Ну, так а параметр со строкой шаблона где?
Последний раз редактировалось Flasher Пт июл 22, 2011 18:55, всего редактировалось 1 раз.
Аватара пользователя
shveicar
Сообщения: 277
Зарегистрирован: Пн апр 18, 2011 01:54
Откуда: Россия Москва

Сообщение shveicar »

То-есть так?

Код: Выделить всё

%%FromFileArr%% 0 %L "filelist.txt"
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

В соответствии с примером в кнопке, приведённой Batya.

Код: Выделить всё

"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"
Аватара пользователя
shveicar
Сообщения: 277
Зарегистрирован: Пн апр 18, 2011 01:54
Откуда: Россия Москва

Сообщение shveicar »

Интересно, - у меня с такими параметрами скрипт заработал

Код: Выделить всё

%%FromFileArr%% 0 %L "filelist.txt"
, а вот с такими

Код: Выделить всё

"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"
смысла нет, поскольку тег замены совсем другой ( если кратко) до срабатывания

Код: Выделить всё

<div id="player_bg"><p id="player">Get The <a href="
flvpla1/player.swf

Код: Выделить всё

" rel="nofollow">Flash Player</a>
и после

Код: Выделить всё

<div id="player_bg"><p id="player">Get The <a href="
videos/1008_m1/player.swf

Код: Выделить всё

" rel="nofollow">Flash Player</a>
Синим выделенна строка до срабатывания скрипта.
Красным выделена строка в файле списке filelist.txt, после срабатывания скрипта. Впрочем главное все работает, и самое главное, что в каждом файле, все совпадения меняются только на одно значение, из одной строки. Остается лишь правильно настроить список в filelist.txt Позже, проверю как будет работать с длинными строками. Спасибо за помощь.
Ответить