1 Тема от Starley25 (изменено: Starley25, 2011-03-01 15:02:00)

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

Тема: VBS: Работа с файлом

Стоит задача: есть текстовый файл, необходимо в зависимости от содержимого в этом файле (error или ок) производить действие - скажем вывод сообщения на экран, то есть если error, то одно сообщение, если ok, то другое. Все это на vbs.

2 Ответ от alexii

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

Re: VBS: Работа с файлом

Starley25, примерно так:

Option Explicit

Const ForReading = 1

Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
    strPath = "c:\MyFile.txt"
    
    If .FileExists(strPath) Then
        With .OpenTextFile(strPath, ForReading)
            Select Case Trim(UCase(.ReadLine()))
                Case UCase("error")
                    WScript.Echo "Error"
                Case UCase("ok")
                    WScript.Echo "OK"
                Case Else
                    WScript.Echo "Other content"
            End Select
            
            .Close
        End With
    Else
        WScript.Echo "File [" & strPath & "] not found"
    End If
End With

WScript.Quit 0

Чтение производится только из первой строки файла.