Проверка существования значения в файле
Как можно реализовать данную проверку?
Если это возможно то В случае Then Вывести что найдено, else вывести что нет. |
Цитата:
Цитата:
|
|
Реализацию сделал! Спасибо мне!
Вот принцип, если кому надо: Dim fso, ts, s,objHTTP,objFSO, strFlagFile Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("test.vbs", ForReading) s = ts.ReadLine ts.Close Set objHTTP = CreateObject("Microsoft.XMLHTTP") Set objFSO = CreateObject("Scripting.FileSystemObject") strFlagFile = "test.vbs" If s = "Dim fso, ts, s" Then WScript.Echo "File Exist!" Else WScript.Echo "File Not Exist!" End If |
Цитата:
|
Время: 01:29. |
Время: 01:29.
© OSzone.net 2001-