[amel27]

andreton, в задаче не оговорен поиск в подкаталогах, кодировка и размер файлов
VBS-вариант для поиска в подкаталогах и файлов размером много меньше RAM:

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "(?:(^)[\n\r]+|(\r?\n)[\n\r]*)"
objRegEx.IgnoreCase = True
objRegEx.Global = True
'-----------------------------
FileProcByExt "C:\TEST", "TXT"
'-----------------------------
Sub FileProcByExt (strDir, strExt)
  Dim oS, cS, oI, cF

  Set oS = objFSO.GetFolder(strDir)
  Set cS = oS.SubFolders

  On Error Resume Next
  For Each oI In cS
    FileProcByExt oI.Path, strExt
  Next

  Set cF = oS.Files
  For Each oI In cF
    If StrComp(objFSO.GetExtensionName(oI.Path),strExt,1)=0 Then FileProc oI.Path
  Next
End Sub

Sub FileProc (strFile)
  Dim oF, sF

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

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

P.S. всё-таки специализированные консольные утилиты сделают это быстрее

[andreton]

amel27. здесь поиска в подкаталогах не требуется. есть папка и в ней только тхт-файлы в кодировке ANSI, вот и все... при выделении всех файлов в TC, нужно нажать на подходящий баттон, к которому подключен нужный скрипт. Ваш вариант для этого не работает... или я чего-то не изменил в нем?...

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

[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"

[andreton]

amel27, при подключении кода в кнопку, выделения файлов и нажатия на эту кнопку ничего не происходит

Попробовал убрать первую строку If WScript.Arguments.Count < 2 Then WScript.Quit, выдает "Файлов обработано:0 Файлов пропущено:1 ".... вне зависимости от выделения файлов в папке. Что идет не так?

[NiOl]

Шутки ради - существует ограниченный (даже можно сказать убогий) скриптовой язык, на котором пишут "батники"...

в одну строчку пойдет?

Код:

@for /f "tokens=* delims=" %%F in ('dir /b /a-d *.txt') do @findstr /r "." %%F>%%F_ & del /f %%F & ren %%F_ %%F

[andreton]

может и пойдет... только не знаю куда вставить и как проверить не сталкивался с такого рода вещами, как "батники".

Знаю о них только вот это http://forum.ru-board.com/topic.cgi?...8&start=640#15

в моем случае также?

подскажите неграмотному, плиз!

[amel27]

"Файлов обработано:0 Файлов пропущено:1 "... »

да нет, проверил - сколько выделил, столько и обработал... но в скрипте (для страховки) обрабатываются только файлы с расширением TXT, остальные пропускаются... вот мои настройки (пробел в между %P и %S обязателен):

[amel27]

andreton, вариант с использованием SFK (swiss file knife):



P.S. но тут уже без всякой страховки, и вплоть до бинарников...

[andreton]

Большое СПАСИБО, amel27!

Поменял правильно настройки, все заработало! Но, что интересно: у меня в пробной папке был 71 файл, выделил все, нажал на "батон" - и, вуаля, "Файлов обработано:71 Файлов пропущено:1".

Где этот неведомый файл? Все файлы - тхт.

Но не будем заморачиваться - спасибо, работает и так! Очень помогли! Можем тему закрывать.