Войти

Показать полную графическую версию : Проверка существования значения в файле


Nic_odin
11-03-2015, 20:35
Как можно реализовать данную проверку?
Если это возможно то
В случае Then Вывести что найдено, else вывести что нет.

Iska
11-03-2015, 20:42
Как можно реализовать данную проверку? »
Чтением и сравнением.

Если это возможно то
В случае Then Вывести что найдено, else вывести что нет. »
Чтобы это было возможно — Вы должны упаковать образец файла в архив, выложить на RGhost, ссылку — сюда. Затем Вы должны указать, что искать и по каким принципам искать.

Nic_odin
11-03-2015, 20:48
Чтением и сравнением. »
Это принцип а не реализация

Чтобы это было возможно — Вы должны упаковать образец файла в архив, выложить на RGhost, ссылку — сюда. Затем Вы должны указать, что искать и по каким принципам искать. »
Спасибо за ответ.

Nic_odin
11-03-2015, 21:34
Реализацию сделал! Спасибо мне!
Вот принцип, если кому надо:

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

alef2474
23-03-2015, 00:21
If s = "Dim fso, ts, s" Then »
Непонятно: он сам себя читает? Но в первой строке уже добавил objHTTP... и будет File Not Exist, хотя File Exist?




© OSzone.net 2001-2012