1 Тема от SNR93

  • SNR93
  • Участник
  • Неактивен

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

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

2 Ответ от SNR93

  • SNR93
  • Участник
  • Неактивен

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

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

3 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

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

4 Ответ от SNR93

  • SNR93
  • Участник
  • Неактивен

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

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

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

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

5 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

6 Ответ от SNR93

  • SNR93
  • Участник
  • Неактивен

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

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

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

7 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

SNR93 пишет:

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

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