Total Commander

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

'==================================================================
' Поиск и замена строк в выделенных файлах в TC с помощью EmEditor

' В параметрах вызова из TC должно быть прописано:
' %L
'
' Ниже задайте правильный путь к EmEditor
'==================================================================

Dim Editor
'-------- Путь к EmEditor -----------------------
Editor = "d:\Program Files\EmEditor\emeditor.exe"
'------------------------------------------------

Dim WS, FSO, StreamFile, Find_String, Replace_String, Current_File, MsgBut
Set WS = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

Find_String = InputBox("Введите искомую строку", "Поиск и замена")
if Len(Find_String) = 0 then
 MsgBut = MsgBox("Не задана строка для поиска!", vbOKOnly + vbExclamation, "Поиск и замена")
 WScript.Quit()
End if
Replace_String = InputBox("Введите строку для замены", "Поиск и замена")

Do While Not StreamFile.AtEndOfStream
 Current_File = StreamFile.ReadLine
 WS.Run """" & Editor & """ /fc """ & Find_String & """ """ & Current_File & """ /rw """ & Replace_String & """"
Loop

StreamFile.Close
Set WS = Nothing
Set FSO = Nothing
Set StreamFile = Nothing
Wscript.Quit

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

TOTALCMD#BAR#DATA
d:\WHS\ReplaceInFiles.vbs
%L
shell32.dll,22
Поиск и замена в файлах


-1

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

'**************************************************
' File:    ReplaceTxt.vbs (WSH sample in VBScript) 
' Author:  (c) G. Born, Batya, Zergal
'
' Что-то меняет в Ваших файлах
' УРА - Никакого бэкапа!!!
'**************************************************
Option Explicit
Dim WS, FSO2, StreamFile, Find_String, Replace_String, Current_File, MsgBut 
Set WS = WScript.CreateObject("WScript.Shell") 
Set FSO2 = CreateObject("Scripting.FileSystemObject") 

Set StreamFile = FSO2.OpenTextFile(WScript.Arguments(0), 1) 

Find_String = InputBox("Введите искомую строку", "Поиск и замена") 
if Len(Find_String) = 0 then 
 MsgBut = MsgBox("Не задана строка для поиска!", vbOKOnly + vbExclamation, "Поиск и замена") 
 WScript.Quit() 
End if 
Replace_String = InputBox("Введите строку для замены", "Поиск и замена") 


		' We must define ForWriting because the 
		' iomode constants are unknown to VBScript.
		Const ForWriting = 2              ' iomode: write access

'		Const inF = "TestFile.txt"
'		Const outF = "TestFile1.txt"

Do While Not StreamFile.AtEndOfStream 


		' Here are the strings for replacement.

		Dim Text
		Dim fso, oFile                 ' Object variable
		Dim oFileIn, oFileOut   ' Text stream
		Dim path, fileIn, fileOut

		path = StreamFile.ReadLine         ' Retrieve current path to script.
		fileIn = path    ' Create filenames.
		fileOut = left(path, len(path)-4) & "_" & right(path,4)

		' Create a FileSystemObject object to access the file system.
		Set fso = CreateObject("Scripting.FileSystemObject")

		If Not fso.FileExists(fileIn) Then  ' Input file exists?
		    WScript.Echo "File '" & fileIn & "' not found"
		    WScript.Quit 1
		End If

		' Input file present; open file and create output file.
		Set oFileIn = fso.OpenTextFile(fileIn)   ' Open input file.
		Set oFileOut = fso.OpenTextFile(fileOut, _
		                    ForWriting, True)    ' Open output file.

		Do While Not (oFileIn.atEndOfStream)
		    Text = oFileIn.ReadLine              ' Read a line.
		    Text = Filter(Text, Find_String, Replace_String)
		    oFileOut.WriteLine Text              ' Write text.
		Loop
		oFileOut.Close
		oFileIn.Close 
		fso.DeleteFile FileIn
		Set oFile = fso.GetFile(fileOut)  
		oFile.move FileIn
		Set oFileOut = nothing
		Set oFileIn = nothing
Loop 
Function GetPath
    ' Retrieve the script path.
    Dim path
    path = WScript.ScriptFullName  ' Script name
    GetPath = Left(path, InStrRev(path, "\"))
End Function

Function Filter(txt, expr1, expr2)
    ' Replace expr1 with expr2 in text.
    Dim oReg

    Set oReg = New RegExp        ' Create regular expression.
    oReg.Global = True           ' All matches
    oReg.IgnoreCase = True       ' Make case-insensitive.

    ' Replace all expr1 with expr2.
    oReg.Pattern = expr1          ' Set pattern.
    Filter = oReg.Replace(txt, expr2)
End Function

'*** End

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

'=========================[ Start of file ]========================= 
'  File:         ReplaceInFiles.vbs 
'  Description:  Производит поиск текста с заменой 
'                в выделенных текстовых файлах      
'  Installation: Создайте кнопку на панели TC 
'                Команда: "диск:\путь\к\файлу\ReplaceInFiles.vbs" 
'                Параметры: "%L" 
'  Copyright:    (c) 2006-2008, Volniy 

Option Explicit 

Dim FSO, Find_String, Replace_String, F, Buffer, ListFile, Found 
Const ForReading = 1, ForWriting = 2 

Set FSO = CreateObject("Scripting.FileSystemObject") 

Find_String = InputBox("Введите искомую строку", "Поиск и замена") 
If Len(Find_String) = 0 Then 
   MsgBox "Не задана строка поиска!", vbExclamation, "Поиск и замена" 
   WScript.Quit() 
End If 

Replace_String = InputBox("Введите строку для замены", "Поиск и замена") 

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 "Поиск с заменой завершен!", vbInformation, "Поиск и замена" 
WScript.Quit 

Sub DoItForThisFile(FilePath) 
   Set F = FSO.OpenTextFile(FilePath, ForReading) 
   Buffer = F.ReadAll 
   F.Close 
   Found = InStr(1, Buffer, Find_String, 1) 
   If Found <> 0 Then 
     Buffer = Replace(CStr(Buffer), Find_String, Replace_String,1,-1,1)
     'FSO.CopyFile FilePath, FilePath & ".bak" 
     Set F = FSO.OpenTextFile(FilePath, ForWriting) 
     F.Write Buffer 
     F.Close 
   End If 
End Sub 
'=========================[  End of file  ]=========================

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

/* ====================================
   Подсчет количества выделенных файлов
   Параметры вызова из TC:
   %L
==================================== */
var objArgs, FSO, TextFile, i = 0;
objArgs = WScript.Arguments;
FSO = new ActiveXObject("Scripting.FileSystemObject");
TextFile = FSO.OpenTextFile(objArgs(0));
while (!TextFile.AtEndOfStream)
{
  i++;
  TextFile.SkipLine();
}
TextFile.Close();
WScript.Echo("Выделено " + i + " файлов");