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

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

null@example.com (alexii) — Fri, 13 Jul 2012 10:28:37 +0000

SNR93 пишет:

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

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

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

null@example.com (SNR93) — Fri, 13 Jul 2012 07:33:23 +0000

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

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

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

null@example.com (alexii) — Thu, 12 Jul 2012 23:10:21 +0000

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

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

null@example.com (SNR93) — Thu, 12 Jul 2012 22:00:14 +0000

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

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

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

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

null@example.com (alexii) — Thu, 12 Jul 2012 21:46:14 +0000

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

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

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

null@example.com (SNR93) — Thu, 12 Jul 2012 21:36:16 +0000

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

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

null@example.com (SNR93) — Thu, 12 Jul 2012 21:32:24 +0000

Добрый вечер!
Мне нужно сделать следующее, 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