Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Поиск\редактирование строки в текстовом файле (http://forum.oszone.net/showthread.php?t=232512)

pavvel 10-04-2012 18:06 1897119

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

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

В поиске был.

Iska 11-04-2012 00:10 1897352

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

pavvel 11-04-2012 16:38 1897757

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-