Windows Script Host
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3 ... 22, 23, 24, 25, 26  Next  :| |:
Total Commander -> Автоматизация Total Commander

#331:  Author: LonerDLocation: Донецк PostPosted: Wed Jan 02, 2013 00:14
    —
Flasher
Спасибо.

#332: ReplaceInFiles.vbs Author: iG0R PostPosted: Tue Mar 19, 2013 20:19
    —
Имеется следующий скрипт ReplaceInFiles.vbs со страницы №4 этого топика. http://forum.wincmd.ru/viewtopic.php?p=14843
Подскажите, как осуществить замену искомого текста другим текстом, частью которого является Escape последовательность.
Например, в файлах необходимо заменить "https" на "[InternetShortcut]\r\nURL=https", где \r\n - это esc-последовательность.

#333:  Author: BatyaLocation: Москва, Россия PostPosted: Tue Mar 26, 2013 20:05
    —
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

#334:  Author: iG0R PostPosted: Tue Mar 26, 2013 20:13
    —
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

#335:  Author: BatyaLocation: Москва, Россия PostPosted: Tue Mar 26, 2013 20:33
    —
iG0R
Хм... Sad

Скрипт, использующий EmEditor, с той же страницы работает, как тебе надо.

#336:  Author: AvadaLocation: Россия, Саратов PostPosted: Tue Mar 26, 2013 20:54
    —
iG0R
Зачем было полностью цитировать скрипт, на который выше уже давалась ссылка? Скрипта "ReplaceInFiles.vbs со страницы №4" в представленном виде на указанной странице нет — приведён модифицированный вариант, взятый из какого-то другого источника (и на него была бы уместна ссылка).
Приучаемся к порядку — и на форуме вообще, и конкретно в "Автоматизации". См. также здесь.
В предыдущие посты внесены некоторые изменения.

#337: Windows Script Host Author: Krots PostPosted: Wed Feb 26, 2014 00:47
    —
В Win7 32 не получается установить сей замечательный продукт TCWSHelp.exe. Выдает ошибку "Unexpected error; quitting". На ХР все нормально. Подскажите, плз, как решить проблему?

#338:  Author: RodnyLocation: Могилёв, Беларусь PostPosted: Wed Feb 26, 2014 02:04
    —
Какая версия хелпера? Запуск от имени админа?

#339: Windows Script Host Author: Krots PostPosted: Wed Feb 26, 2014 07:02
    —
Да, запуск от имени админа помог, спасибо. В ХР как то попроще было, 10 лет на ней сидел, теперь такая ломка, ужс.

#340: Поиск и замена текста без тотала Author: dydaevskiy PostPosted: Sun May 04, 2014 23:41
    —
Возможно ли изменить скрипт что бы он делал свою работу без тотала? То есть я просто помещаю скрипт в папку, в скрипте пишу что найти и на что заменить. Скрипт после запуска будет искать и заменять во всех .txt и .m3u файлах нужные строки, в независимости от того в какой папке или подпапки данные файлы находятся.

#341:  Author: FlasherLocation: Москва PostPosted: Mon May 05, 2014 01:33
    —
dydaevskiy
Возможно, конечно, но тогда это уже будет не Автоматизация Total Commander.
Да и скрипт в таком случае не особо нужен, программ-заменялок в сети - тьма.

#342:  Author: dydaevskiy PostPosted: Mon May 05, 2014 11:26
    —
Да в том то и дело что в тотале не могу настроить полноценный планировщик. А так я б скрипт закинул стандартному планировщику windows и все было б отлично. Перерыл тьму программ заменялок, но планировщика в них нет. Прошу прощение что не совсем по теме, но уж очень сильно нуждаюсь в помощи.

#343:  Author: FlasherLocation: Москва PostPosted: Mon May 05, 2014 11:55
    —
dydaevskiy
Это не меняет картины. Файлменеджер и планировщик уже по сути имеют разные цели. Тут же тема конкретно по синтаксису языков на основе WSH, применительно к ТС.
Что же касается планировщика, то есть смысл в отношении него задействовать консольные приложения (пример 1, пример 2, пример 3).

#344:  Author: Dimsok PostPosted: Sun Aug 17, 2014 01:37
    —
Создание текстового файла с содержимым буфера обмена

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

 !  Avada:
Про правила оформления скриптов и ссылок на них говорилось многократно, в том числе в текущей теме на этой же странице. Приведено к нормальному состоянию.

#345:  Author: FlasherLocation: Москва PostPosted: Sun Aug 17, 2014 02:21
    —
Dimsok
См. прилепленную тему подфорума. В скобках что написано? Угу...
Заодно см. этот вариант.



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3 ... 22, 23, 24, 25, 26  Next  :| |:
Page 23 of 26

Powered by phpBB © 2001, 2005 phpBB Group