[amel27]

О каких утилитах идет речь? может ними действительно поинтересней... »

SED, AWK и подобные, но в этом случае для TC придется создавать батник

при выделении всех файлов в TC, нужно нажать на подходящий баттон, к которому подключен нужный скрипт »

с этого и следовало начинать... тогда так:

читать дальше »

Код:

If WScript.Arguments.Count < 2 Then WScript.Quit

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oRegEx = CreateObject("VBScript.RegExp")

oRegEx.Pattern = "(?:(^)[\n\r]+|(\r?\n)[\n\r]*)"
oRegEx.IgnoreCase = True
oRegEx.Global = True

iProc = 0
For iFile=1 To Wscript.Arguments.Count-1
  sFile = Wscript.Arguments.Item(0) & Wscript.Arguments.Item(iFile)

  If StrComp(oFSO.GetExtensionName(sFile),"TXT",1)=0 Then
    FileProc sFile
    iProc=iProc+1
  End If
Next

WScript.Echo "Файлов обработано:"& vbTab & iProc & vbCrLf & _
             "Файлов пропущено :"& vbTab & WScript.Arguments.Count-iProc-1

Sub FileProc (strFile)
  Dim oF, sF

  Set oF = oFSO.OpenTextFile(strFile, 1)
  If oF.AtEndOfStream Then Exit Sub
  sF = oF.ReadAll
  oF.Close

  sF = oRegEx.Replace(sF, "$1$2")
  Set oF = oFSO.OpenTextFile(strFile, 2)
  oF.Write(sF)
  oF.Close
End Sub

P.S. в "Параметрах" батона должно стоять "%P %S"