Rush
Уже за тридцать... | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nervniy2000
Цитата:| структура у всех файлов разная, но во всех есть одинаковые фрагменты. нужно найти фрагмент и заменить его. |
Если исходить из того примера (а тебе он нужен не весь, инпутбоксы тебе ни к чему), то просто в переменную str пишешь фрагмент, который тебе нужно заменить, а в переменную str2 - то чем нужно заменять.
Код: ' Читаем нужный файл
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("имя файла", 1)
setFile = f.ReadAll
f.Close
' Включаем регулярные выражения
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True ' Если регистр символов имеет значение, то поменять на False
' Маски для замены
str="фрагмент, который меняем"
str2="текст, на который меняем"
' Меняем значения нужного фрагмента
setFile = ReplaceText (setFile, str, str2)
' Записываем в файл
Set f = fso.OpenTextFile("имя файла", 2)
f.Write setFile
f.Close
' Очищаем
Set f = Nothing
Set fso = Nothing
Set regEx = Nothing
' Функция замены
Function ReplaceText(txt, patrn, replStr)
regEx.Pattern = patrn
ReplaceText = regEx.Replace(txt, replStr)
End Function |
Кстати, если не нужны при замене регулярные выражения, то можно упростить код
Код: ' Читаем нужный файл
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("имя файла", 1)
setFile = f.ReadAll
f.Close
' Маски для замены
str="фрагмент, который меняем"
str2="текст, на который меняем"
' Меняем значения нужного фрагмента
setFile = Replace(setFile, str, str2)
' Записываем в файл
Set f = fso.OpenTextFile("имя файла", 2)
f.Write setFile
f.Close
' Очищаем
Set f = Nothing
Set fso = Nothing
|
|
