[Iska]

Nikugorsk, упаковываете несколько таких файлов в архив, который прилагаете к сообщению. Дальше смотрим.

[Nikugorsk]

Nikugorsk, упаковываете несколько таких файлов в архив, который прилагаете к сообщению. Дальше смотрим.

Приложил

[alpap]

Nikugorsk,
нужны файлы с разным содержимым или если знаете неплохо содержимое, есть ли в файле строка(и) с похожим содержимым кроме этой строки: 7,2 "Центр_1664#0", т.е если искать по символу _ или # или обеим или по кавычкам - гарантированно будет найдена только одна эта строка?

[Iska]

И ещё, к словам коллеги: случайно ли то, что искомые цифры в файле совпадают с именем файла?

[Iska]

На WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile

Dim objRegExp
Dim strContent

If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		Set objRegExp = WScript.CreateObject("VBScript.RegExp")
		
		With objRegExp
			.Pattern    = "^(.+ "")(?:.+_)(\d+)(?:#)(.+"")$"
			.Global     = True
			.MultiLine  = True
		End With
		
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If StrComp(objFSO.GetExtensionName(objFile.Name), "txt", 0) = 0 Then
				With objFSO.OpenTextFile(objFile.Path)
					strContent = .ReadAll()
					.Close
				End With
				
				If objRegExp.Test(strContent) Then
					objFSO.CopyFile objFile.Name, objFSO.GetBaseName(objFile.Name) & ".bak", True
					
					With objFSO.CreateTextFile(objFile.Name, True)
						.Write objRegExp.Replace(strContent, "$1$2$3")
						.Close
					End With
				Else
					' Nothing to do
				End If
			Else
				' Nothing to do
			End If
		Next
		
		Set objRegExp = Nothing
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

Исходная папка указывается аргументом скрипта (также можно просто перетащить папку на скрипт в Проводнике). Будут обработаны все *.txt файлы из указанной папки. При нахождении шаблона в содержимом текстового файла и последующей замене делается резервная копия исходного файла с расширением .bak.

Согласно изложенным Вами выше правилам поиска и замены в выложенных для примера файлах произойдут следующие замены — в 1657.txt:

Код:

11,2 "Центр_1657#0"

на:

Код:

11,2 "16570"

и в 1664.txt:

Код:

7,2 "Центр_1664#0"

на:

Код:

7,2 "16640"

[Nikugorsk]

Nikugorsk, нужны файлы с разным содержимым или если знаете неплохо содержимое, есть ли в файле строка(и) с похожим содержимым кроме этой строки: 7,2 "Центр_1664#0", т.е если искать по символу _ или # или обеим или по кавычкам - гарантированно будет найдена только одна эта строка?

Да, гарантированно найдётся только эта строка. По любому из 3х признаков.

На WSH: Скрытый текст Код: Option Explicit Dim strSourceFolder Dim objFSO Dim objFile Dim objRegExp Dim strContent If WScript.Arguments.Count = 1 Then strSourceFolder = WScript.Arguments.Item(0) Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strSourceFolder) Then Set objRegExp = WScript.CreateObject("VBScript.RegExp") With objRegExp .Pattern = "^(.+ "")(?:.+_)(\d+)(?:#)(.+"")$" .Global = True .MultiLine = True End With For Each objFile In objFSO.GetFolder(strSourceFolder).Files If StrComp(objFSO.GetExtensionName(objFile.Name), "txt", 0) = 0 Then With objFSO.OpenTextFile(objFile.Path) strContent = .ReadAll() .Close End With If objRegExp.Test(strContent) Then objFSO.CopyFile objFile.Name, objFSO.GetBaseName(objFile.Name) & ".bak", True With objFSO.CreateTextFile(objFile.Name, True) .Write objRegExp.Replace(strContent, "$1$2$3") .Close End With Else ' Nothing to do End If Else ' Nothing to do End If Next Set objRegExp = Nothing Else WScript.Echo "Can't find source folder [" & strSourceFolder & "]." WScript.Quit 2 End If Set objFSO = Nothing Else WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>" WScript.Quit 1 End If WScript.Quit 0 Исходная папка указывается аргументом скрипта (также можно просто перетащить папку на скрипт в Проводнике). Будут обработаны все *.txt файлы из указанной папки. При нахождении шаблона в содержимом текстового файла и последующей замене делается резервная копия исходного файла с расширением .bak. Согласно изложенным Вами выше правилам поиска и замены в выложенных для примера файлах произойдут следующие замены — в 1657.txt: Код: 11,2 "Центр_1657#0" на: Код: 11,2 "16570" и в 1664.txt: Код: 7,2 "Центр_1664#0" на: Код: 7,2 "16640"

А как 0 в конце убрать? Должен остаться только 1657 и 1664

И ещё, к словам коллеги: случайно ли то, что искомые цифры в файле совпадают с именем файла?

Это частный случай. Для примера

[Iska]

А как 0 в конце убрать? Должен остаться только 1657 и 1664 »

Тогда замените строку:

Код:

			.Pattern    = "^(.+ "")(?:.+_)(\d+)(?:#)(.+"")$"

на:

Код:

			.Pattern    = "^(.+ "")(?:.+_)(\d+)(?:#.+)("")$"

Это частный случай. Для примера »

Ясно.

[YuS_2]

Как это сделать через исполнительный файл, ибо файликов таких очень много??? »

powershell
script.ps1

Код:

dir *.txt -file|%{
	(gc $_.fullname -enc default) -replace '(?<=\")[^_]*_|#[^"]*(?=\")'|`
	set-content ($_.fullname) -enc default
}

Для запуска скрипта:
run.bat

Код:

@echo off
echo.Поехали
powershell -ex bypass .\script.ps1
echo.Приехали
pause

[Nikugorsk]

Как это сделать через исполнительный файл, ибо файликов таких очень много??? » powershell script.ps1 Код: dir *.txt -file|%{ (gc $_.fullname -enc default) -replace '(?<=\")[^_]*_|#[^"]*(?=\")'|` set-content ($_.fullname) -enc default } Для запуска скрипта: run.bat Код: @echo off echo.Поехали powershell -ex bypass .\script.ps1 echo.Приехали pause

Не получается