![]() |
Поиск\редактирование строки в текстовом файле
Добрый день. Нужно два скрипта, если сможете помочь буду благодарен.
1) Открывает файл.txt из указанного пути, добавляет туда строку с именем пользователя, под которым запущен скрипт, сохраняет файл, закрывает. 2) Открывает файл.txt из указанного пути, ищет там строку, содержащую имя пользователя, под которым запущен скрипт, удаляет ее, сохраняет файл, закрывает. В поиске был. |
pavvel, что Вы уже сделали сами для написания кода, и в чём состоит глубинный смысл этих действий?
|
Dim fso, f, FileName
Const USER_PROFILE = &H28& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(USER_PROFILE) Set objFolderItem = objFolder.Self Set fso = CreateObject("Scripting.FileSystemObject") NewLine=objFolderItem.Path Set f = fso.OpenTextFile("C:\test.txt", 1) ReadAllTextFile = f.ReadAll Set f = fso.OpenTextFile("C:\test.txt", 2, True) f.WriteLine("test.txt" & "_" & NewLine) f.Write(ReadAllTextFile) MsgBox "Готово!" ввод данных за пределами файла UPD просто файл был пустой. Спасибо разобрался) |
Время: 00:07. |
Время: 00:07.
© OSzone.net 2001-