ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
XXXXL
Цитата:| Только что бы изменилось одно слово PASSWORD |
Код: ' Окна ввода данных
'Login_Input = InputBox("Введите логин:", "Внимание!", "")
Password_Input = InputBox("Введите пароль:", "Внимание!", "")
' Задаём переменную для имени файла
FileName = "Test.txt"
' Читаем нужный файл
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, 1)
FileContent = f.ReadAll
f.Close
' Включаем регулярные выражения
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
' Маски для замены
Pettern = "-p ([^\d]+) -c"
PatternReplace = "-p " & Password_Input & " -c"
' Меняем значения пароля
FileContent = ReplaceText(FileContent, Pettern, PatternReplace)
' Записываем в файл после замены
Set f = fso.OpenTextFile(FileName, 2)
f.Write FileContent
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 |
Добавлено:
Nagual
Цитата:| Написан для устранения кривизны тэга [code] |
С этим тегом оно не связано, скорее с тегом br  - если копировать текст с двумя строками, то мы видим что только первая строка имеет лишний пробел на конце, значит до символа перевода строки добавляется пробел.
Добавлено:
Цитата:| Скрипт для удаления концевых пробелов в файлах |
Кстати, неплохо было бы для браузера сделать подобную функцию:
«Копировать с руборда» 
Позже может сделаю..
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 20:55 22-02-2008 | Исправлено: ViSiToR, 21:01 22-02-2008 |
|
(возможно это мой локальный глюк, в последнее время ещё не такие глюки бывали 
