' Окна ввода данных Login_Input = InputBox("Введите логин:", "Внимание!", "") Password_Input = InputBox("Введите пароль:", "Внимание!", "") ' Читаем нужный файл 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 ' Маски для замены str="192.168.1.1 " & chr(34)& "[\D\d]*?" & chr(34) & " root -p " & chr(34)& "[\D\d]*?" & chr(34) str2="192.168.1.1 " & chr(34)& Login_Input & chr(34) & " root -p " & chr(34)& Password_Input & chr(34) ' Меняем значения логина и пароля 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 |