Поиск\редактирование строки в текстовом файле

[pavvel]

Добрый день. Нужно два скрипта, если сможете помочь буду благодарен.

1) Открывает файл.txt из указанного пути, добавляет туда строку с именем пользователя, под которым запущен скрипт, сохраняет файл, закрывает.
2) Открывает файл.txt из указанного пути, ищет там строку, содержащую имя пользователя, под которым запущен скрипт, удаляет ее, сохраняет файл, закрывает.

В поиске был.

[Iska]

pavvel, что Вы уже сделали сами для написания кода, и в чём состоит глубинный смысл этих действий?

[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 просто файл был пустой. Спасибо разобрался)