Серый форум — Vbs, считывание текста и выполнение кода

Re: Vbs, считывание текста и выполнение кода

2012-07-13T10:28:37Z

SNR93 пишет:

P.S. у меня у одного бага, что все мои посты раскланировались по 3 раза? О_о

Очистите куки в браузере. Перелогиньтесь на форуме.

Re: Vbs, считывание текста и выполнение кода

2012-07-13T07:33:23Z

В будущем я буду записывать туда ответ от команды.

P.S. у меня у одного бага, что все мои посты раскланировались по 3 раза? О_о

Re: Vbs, считывание текста и выполнение кода

2012-07-12T23:10:21Z

1. В предыдущем коде этого не было. Потому скрипт, при отсутствии файла, вывалится с ошибкой.
2. Вы собирались читать файл — зачем открываете его для записи?!

Re: Vbs, считывание текста и выполнение кода

2012-07-12T22:00:14Z

Большое спасибо, но

Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set f = FSO.OpenTextFile("testfile.txt", 2, True)

Открывает, или если такого файла нет, то сама создает его.

Re: Vbs, считывание текста и выполнение кода

2012-07-12T21:46:14Z

SNR93, хорошо бы ещё проверять, что такой файл существует:

If FSO.FileExists("commands.txt") Then
    …

Re: Vbs, считывание текста и выполнение кода

2012-07-12T21:36:16Z

О чудо, после написания этого поста скрипт каким-то чудом заработал! Тему можно удалять, извините админы и модеры-)

Vbs, считывание текста и выполнение кода

2012-07-12T21:32:24Z

Добрый вечер!
Мне нужно сделать следующее, vbs скрипт считывает txt файл, если файл пустой, то скрипт продолжает считывать файл, а если там какая либо команда, то скрипт выполняет соответствующее действие.
Допустим в txt файле есть команда "Дата", то vbs должен выполнить "MsgBox Date()",
Пробовал так, но у меня ничего не получилось, в vbs новичек

Set WshShell = WScript.CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject") 

Set t_file = FSO.OpenTextFile("commands.txt", 1) 
source = t_file.ReadAll 
t_file.Close

If source = "Дата" Then 
MsgBox Date()
Else
Wscript.Quit
End If