Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Редактирование файлов (вырезать, вставить, массово)
Goto page Previous  1, 2, 3, 4, 5
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Jul 21, 2011 23:03    Post subject: Reply with quote
shveicar
Для одного окна поправил. Работает?
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
Post (Separately) Posted: Fri Jul 22, 2011 01:06    Post subject: Reply with quote
Одно окно то работает, но после ввода текста для замены выскакивает другое - с ошибкой
Code:

Сценарий:   F:\total\Utils\html\zamema_po_sablonu2.vbs
Строка:   30
Символ:   1
Ошибка:   Несоответствие типа: '[string: "C:\DOCUME~1\xxx\LOCA"]'
Код:   800A000D
Источник:    Ошибка выполнения Microsoft VBScript
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Fri Jul 22, 2011 01:34    Post subject: Reply with quote
shveicar
Исходный второй параметр вернул в качестве первого?
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
Post (Separately) Posted: Fri Jul 22, 2011 03:00    Post subject: Reply with quote
Второй это какой? у меня сейчас верхняя часть скрипта выглядит
Code:
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.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Fri Jul 22, 2011 03:15    Post subject: Reply with quote
Я про параметры в кнопке.
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
Post (Separately) Posted: Fri Jul 22, 2011 11:08    Post subject: Reply with quote
Ну а кнопка - выглядит так
Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\html\zamema_po_sablonu2.vbs
0 %L "filelist.txt"
C:\WINDOWS\System32\WScript.exe
zamema_po_sablonu2


-1
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Fri Jul 22, 2011 16:10    Post subject: Reply with quote
shveicar
Ну, так а параметр со строкой шаблона где?

Last edited by Flasher on Fri Jul 22, 2011 18:55; edited 1 time in total
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
Post (Separately) Posted: Fri Jul 22, 2011 16:43    Post subject: Reply with quote
То-есть так?
Code:
%%FromFileArr%% 0 %L "filelist.txt"
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Fri Jul 22, 2011 16:45    Post subject: Reply with quote
В соответствии с примером в кнопке, приведённой Batya.
Code:
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
Post (Separately) Posted: Fri Jul 22, 2011 17:28    Post subject: Reply with quote
Интересно, - у меня с такими параметрами скрипт заработал
Code:
%%FromFileArr%% 0 %L "filelist.txt"
, а вот с такими
Code:
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"
смысла нет, поскольку тег замены совсем другой ( если кратко) до срабатывания
Code:
<div id="player_bg"><p id="player">Get The <a href="
flvpla1/player.swf
Code:
" rel="nofollow">Flash Player</a>
и после
Code:
<div id="player_bg"><p id="player">Get The <a href="
videos/1008_m1/player.swf
Code:
" rel="nofollow">Flash Player</a>

Синим выделенна строка до срабатывания скрипта.
Красным выделена строка в файле списке filelist.txt, после срабатывания скрипта. Впрочем главное все работает, и самое главное, что в каждом файле, все совпадения меняются только на одно значение, из одной строки. Остается лишь правильно настроить список в filelist.txt Позже, проверю как будет работать с длинными строками. Спасибо за помощь.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4, 5
Page 5 of 5

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group