Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Traveller124, примерно так:
читать дальше »
Код: Выделить весь код
Option Explicit

Const ForReading = 1
Const ForWriting = 2

Dim sFolder

Dim objRegExp
Dim objFile

Dim strContent


sFolder = "C:\Песочница\0005"

Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.Global = True
	.Pattern = "Золотая рыбка"
End With

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(sFolder) Then
		For Each objFile In .GetFolder(sFolder).Files
			If UCase(.GetExtensionName(objFile.Name)) = UCase("txt") Then
				With objFile.OpenAsTextStream(ForReading)
					strContent = .ReadAll()
					
					.Close
				End With
				
				If objRegExp.Test(strContent) Then
					With objFile.OpenAsTextStream(ForWriting)
						.Write objRegExp.Replace(strContent, "Очень золотая рыбка")
						
						.Close
					End With
				End If
			End If
		Next
	Else
		WScript.Echo "Folder [" & sFolder & "] not found"
	End If
End With

Set objRegExp = Nothing

WScript.Quit 0

Последний раз редактировалось Iska, 02-04-2012 в 19:16. Причина: Добавлен неучтённый глобальный поиск, согласно письма в PM

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:43, 01-04-2012 | #6