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 

Windows Script Host
Goto page Previous  1, 2, 3 ... 22, 23, 24, 25  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
LonerD



Joined: 04 Jan 2011
Posts: 1011
Location: Донецк

Post (Separately) Posted: Wed Jan 02, 2013 00:14    Post subject: Reply with quote

Flasher
Спасибо.
Back to top
View user's profile Send private message
iG0R



Joined: 19 Mar 2013
Posts: 2

Post (Separately) Posted: Tue Mar 19, 2013 20:19    Post subject: ReplaceInFiles.vbs Reply with quote

Имеется следующий скрипт ReplaceInFiles.vbs со страницы №4 этого топика. http://forum.wincmd.ru/viewtopic.php?p=14843
Подскажите, как осуществить замену искомого текста другим текстом, частью которого является Escape последовательность.
Например, в файлах необходимо заменить "https" на "[InternetShortcut]\r\nURL=https", где \r\n - это esc-последовательность.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2199
Location: Москва, Россия

Post (Separately) Posted: Tue Mar 26, 2013 20:05    Post subject: Reply with quote

iG0R
http://forum.wincmd.ru/viewpost.php?p=69647
_________________
Нет, я не сплю. Я просто медленно моргаю.


Last edited by Batya on Tue Mar 26, 2013 20:14; edited 1 time in total
Back to top
View user's profile Send private message
iG0R



Joined: 19 Mar 2013
Posts: 2

Post (Separately) Posted: Tue Mar 26, 2013 20:13    Post subject: Reply with quote

Batya
Спасибо за ответ, но этот скрипт
по сути ничем не отличается от ReplaceInFiles.vbs со страницы №4
Code:

'  File:         ReplaceInFiles.vbs
'  Description:  Search and replace of text
'                in selected files
'  Installation: Create a button on a TC bar
'                Command: "disk:\path\ReplaceInFiles.vbs"
'                Parameters: "%L" (exactly in "")
'  Copyright:    (c) 2006, Volniy (mod by Yuk)
 
Option Explicit
 
Dim FSO, Find_String, Replace_String, F, Buffer, ListFile, re
Const ForReading = 1, ForWriting = 2
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set re = New RegExp
 
Find_String = InputBox("Enter search string", "Search and Replace")
If Len(Find_String) = 0 Then
   MsgBox "Search string was not set!", vbExclamation, "Search and Replace"
   WScript.Quit()
End If
 
Replace_String = InputBox("Enter replace string", "Search and Replace")
 
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not ListFile.AtEndOfStream
   Call DoItForThisFile(ListFile.ReadLine)
Loop
ListFile.Close
Set ListFile = Nothing
Set F = Nothing
Set FSO = Nothing
 
MsgBox "Replace done!", vbInformation, "Search and Replace"
WScript.Quit
 
Sub DoItForThisFile(FilePath)
   Set F = FSO.OpenTextFile(FilePath, ForReading)
   Buffer = F.ReadAll
   F.Close
 
 
    re.Pattern = Find_String
    re.Global = True
    re.IgnoreCase = True
    re.MultiLine = True 
 
   Buffer = re.Replace(CStr(Buffer), Replace_String)
   FSO.CopyFile FilePath, FilePath & ".bak"
 
   Set F = FSO.OpenTextFile(FilePath, ForWriting)
   F.Write Buffer
   F.Close
End Sub


Который может искать по Esc-последовательности, но не может заменять. Sad
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2199
Location: Москва, Россия

Post (Separately) Posted: Tue Mar 26, 2013 20:33    Post subject: Reply with quote

iG0R
Хм... Sad

Скрипт, использующий EmEditor, с той же страницы работает, как тебе надо.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8712
Location: Россия, Саратов

Post (Separately) Posted: Tue Mar 26, 2013 20:54    Post subject: Reply with quote

iG0R
Зачем было полностью цитировать скрипт, на который выше уже давалась ссылка? Скрипта "ReplaceInFiles.vbs со страницы №4" в представленном виде на указанной странице нет — приведён модифицированный вариант, взятый из какого-то другого источника (и на него была бы уместна ссылка).
Приучаемся к порядку — и на форуме вообще, и конкретно в "Автоматизации". См. также здесь.
В предыдущие посты внесены некоторые изменения.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Krots



Joined: 25 Feb 2014
Posts: 2

Post (Separately) Posted: Wed Feb 26, 2014 00:47    Post subject: Windows Script Host Reply with quote

В Win7 32 не получается установить сей замечательный продукт TCWSHelp.exe. Выдает ошибку "Unexpected error; quitting". На ХР все нормально. Подскажите, плз, как решить проблему?
Back to top
View user's profile Send private message
Rodny



Joined: 24 Jan 2007
Posts: 948
Location: Могилёв, Беларусь

Post (Separately) Posted: Wed Feb 26, 2014 02:04    Post subject: Reply with quote

Какая версия хелпера? Запуск от имени админа?
Back to top
View user's profile Send private message
Krots



Joined: 25 Feb 2014
Posts: 2

Post (Separately) Posted: Wed Feb 26, 2014 07:02    Post subject: Windows Script Host Reply with quote

Да, запуск от имени админа помог, спасибо. В ХР как то попроще было, 10 лет на ней сидел, теперь такая ломка, ужс.
Back to top
View user's profile Send private message
dydaevskiy



Joined: 09 Mar 2014
Posts: 4

Post (Separately) Posted: Sun May 04, 2014 23:41    Post subject: Поиск и замена текста без тотала Reply with quote

Возможно ли изменить скрипт что бы он делал свою работу без тотала? То есть я просто помещаю скрипт в папку, в скрипте пишу что найти и на что заменить. Скрипт после запуска будет искать и заменять во всех .txt и .m3u файлах нужные строки, в независимости от того в какой папке или подпапки данные файлы находятся.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12230
Location: Москва

Post (Separately) Posted: Mon May 05, 2014 01:33    Post subject: Reply with quote

dydaevskiy
Возможно, конечно, но тогда это уже будет не Автоматизация Total Commander.
Да и скрипт в таком случае не особо нужен, программ-заменялок в сети - тьма.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
dydaevskiy



Joined: 09 Mar 2014
Posts: 4

Post (Separately) Posted: Mon May 05, 2014 11:26    Post subject: Reply with quote

Да в том то и дело что в тотале не могу настроить полноценный планировщик. А так я б скрипт закинул стандартному планировщику windows и все было б отлично. Перерыл тьму программ заменялок, но планировщика в них нет. Прошу прощение что не совсем по теме, но уж очень сильно нуждаюсь в помощи.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12230
Location: Москва

Post (Separately) Posted: Mon May 05, 2014 11:55    Post subject: Reply with quote

dydaevskiy
Это не меняет картины. Файлменеджер и планировщик уже по сути имеют разные цели. Тут же тема конкретно по синтаксису языков на основе WSH, применительно к ТС.
Что же касается планировщика, то есть смысл в отношении него задействовать консольные приложения (пример 1, пример 2, пример 3).
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 538

Post (Separately) Posted: Sun Aug 17, 2014 01:37    Post subject: Reply with quote

Создание текстового файла с содержимым буфера обмена

Как сделать, чтобы файл создавался в активной панели, а не в папке, где лежит данный скрипт. Может какие-то параметры прописать. И желательно, чтобы файл создавался сразу, без необходимости подтверждения

 !  Avada:
Про правила оформления скриптов и ссылок на них говорилось многократно, в том числе в текущей теме на этой же странице. Приведено к нормальному состоянию.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12230
Location: Москва

Post (Separately) Posted: Sun Aug 17, 2014 02:21    Post subject: Reply with quote

Dimsok
См. прилепленную тему подфорума. В скобках что написано? Угу...
Заодно см. этот вариант.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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 ... 22, 23, 24, 25  Next
Page 23 of 25

 
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