[Iska]

Sally88, например, так:

Код:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2


Dim strFile

Dim strFind
Dim strFindPlus

Dim objFSO
Dim objRegExp

Dim strContent

strFile = "E:\Песочница\0099\text.txt"

strFind     = "строчка"
strFindPlus = "1" & strFind

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strFile) Then
		Set objRegExp = WScript.CreateObject("VBScript.RegExp")
		
		With objRegExp
			.IgnoreCase = True
			.Global     = True
			.Pattern    = strFindPlus
		End With
		
		With .OpenTextFile(strFile, ForReading)
			strContent = .ReadAll()
			
			.Close
		End With
		
		With .OpenTextFile(strFile, ForWriting)
			If objRegExp.Test(strContent) Then
				.Write objRegExp.Replace(strContent, strFind)
			Else
				objRegExp.Pattern = strFind
				.Write objRegExp.Replace(strContent, strFindPlus)
			End If
			
			.Close
		End With
		
		Set objRegExp = Nothing
	Else
		WScript.Echo "File [" & strFile & "] not found"
	End If
End With

WScript.Quit 0

[Sally88]

Спасибо большое. Все получилось.

[Sally88]

А если текст который нужно найти и добавить к нему символ, содержит двойные кавычки ( например строчка "01" )

[Iska]

Sally88, определитесь.

Теперь Вам надо добавлять за шаблоном поиска? Тогда так:

Код:

strFind     = "строчка"
strFindPlus = strFind & " ""1"""

Или Вам именно искать надо по шаблону «строчка "01"» и менять на «1строчка "01"»? Тогда так:

Код:

strFind     = "строчка ""1"""
strFindPlus = "1" & strFind

[Sally88]

Или Вам именно искать надо по шаблону «строчка "01"» и менять на «1строчка "01"»? Тогда так: »

Да, именно так. Я просто не очень точно выразился, хорошо что вы поняли. Еще раз, спасибо за помощь.

[Sally88]

И снова я. День добрый.
Что нужно поменять в скрипте, чтобы нужный мне символ добавлялся не в начале искомого слова, а в начале строчки содержащей искомое слово?

Пример:
В файле есть строчка "кино, домино, вино", нужно найти эту строчку по слову "домино" и добавить в начале "1 ", чтобы получилось "1 кино, домино, вино".

И в догонку такая ситуация. Допустим, файле есть две строчки с искомым словом. Но одна уже содержит символ который необходимо добавить, а в начале второй его нет.
Необходимо добавить его к строчкам где его нет и убрать у строчек где он есть.

[megaloman]

Использую похожую тему.

Код:

fName = "D:\Delete\111.txt"                     ' Где текстовый файл

tStrok = "домино"                               ' Что ищем в строке текста
bStrok = "1"                                    ' Что вставляем/удаляем в начале найденной строки

Set FSO = CreateObject("Scripting.FileSystemObject")

Set F = FSO.OpenTextFile(fName, 1, False)       ' Открываем исходный текст файл для чтения
AllTxt = F.ReadAll()                            ' Cчитываем весь файл в строковую переменную
F.Close                                         ' Закрываем файл

Mas = Split(AllTxt, vbCrLf)                     ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf
N = UBound(Mas)

LtStrok = LCase(tStrok)                         ' Преобразуем иском подстроку к ниж регистру
LbStrok = LCase(bStrok)                        ' Преобразуем вставляем/удаляем подстроку к ниж регистру

ii = Len(bStrok)

For i = 0 To N
    LMas = LCase(Mas(i))                        ' Преобразуем строку к ниж регистру
    If InStr(1, LMas, LtStrok, 1) <> 0 Then       ' Если подстрока найдена
        If InStr(1, LMas, LbStrok, 1) = 1 Then    ' Если в начале строки есть удаляемая подстрока
            Mas(i) = LTrim(Mid(Mas(i), ii + 1))
        Else
            Mas(i) = bStrok + " " + Mas(i)
        End If
    End If
Next

AllTxt = Join(Mas, vbCrLf)                  ' Консолидируем массив в строку для записи
    
Set F = FSO.OpenTextFile(fName, 2, False)   ' Открываем исходный файл для записи
F.Write AllTxt                              ' Записываем полученное на место исходного файла
F.Close                                     ' Закрываем файл

Поиск слова ведётся вне зависимости от регистра. Недостаток - я не определяю, что такое слово, я практически ищу подстроку в строке, то есть скрипт одинаково обработает строку со словом домино и, например, доминошка

[Sally88]

Проверил, скрипт отрабатывает как нужно.

Спасибо за ваше решение, да еще с комментариям.

[Sally88]

megaloman
А можно в скрипт добавить исключение. Чтобы он не модифицировал подходящие по критериям строчки, но содержащие исключающее слово.


Например исключающее слово "другое".
Тогда вот в таком списке...

кино, домино
1 кино, домино, вино
кино, домино, вино
кино, домино, вино и другое.

...должны модифицироваться все строчки, кроме последней, содержащей слово "другое".