[Starter1]

Код:

Set infile=1.txt 
Set find=config 
Set replace=parametr

setlocal enabledelayedexpansion 
for /F "tokens=* delims=," %%n in (!infile!) do ( 
set LINE=%%n 
set LINE=!LINE:%find%=%replace%! 
@echo !LINE!>>2.txt 
)
endlocal

Ну тут думаю всё понятно. Ищу в файле 1.txt выражение config, а как найду то поменяю его на parametr.

[Den]

добрый день!
у меня похожая задача только нужно заменить в исходном файле 1.тхт все буквы а на буквы о
извините заранее в этой области я новичок

форум классный! всем удачи

[ferget]

так и заменяйте

Код:

Set find=a 
Set replace=o

[Den]

спасибо! работает!

[adamic]

а как пользоваться этим скриптом скажите плииз

[Iska]

а как пользоваться этим скриптом скажите плииз »

Что именно вызывает у Вас затруднение?

[user2e@vk]

здравствуйте, а как сделать, чтоб изменился текст в файле и пересохранился этот файл, сейчас скрипт делает копию.

[x0r]

Решение, но на VBS

Есть скрипт, чужой, для поиска и замены, правда на VBS для TotalCommander.

Код:

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

Option Explicit

Dim FSO, Find_String, Replace_String, F, Buffer, ListFile
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

   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 Sub
'=========================[  End of file  ]=========================

[Iska]

здравствуйте, а как сделать, чтоб изменился текст в файле и пересохранился этот файл, сейчас скрипт делает копию. »

Используйте две команды «ren» — для переименования оригинала в *.bak, и последующего переименования нового файла в оригинал.