Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Проверка существования значения в файле (http://forum.oszone.net/showthread.php?t=296749)

Nic_odin 11-03-2015 20:35 2481501

Проверка существования значения в файле
 
Как можно реализовать данную проверку?
Если это возможно то
В случае Then Вывести что найдено, else вывести что нет.

Iska 11-03-2015 20:42 2481505

Цитата:

Цитата Nic_odin
Как можно реализовать данную проверку? »

Чтением и сравнением.

Цитата:

Цитата Nic_odin
Если это возможно то
В случае Then Вывести что найдено, else вывести что нет. »

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

Nic_odin 11-03-2015 20:48 2481509

Цитата:

Цитата Iska
Чтением и сравнением. »

Это принцип а не реализация

Цитата:

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

Спасибо за ответ.

Nic_odin 11-03-2015 21:34 2481523

Реализацию сделал! Спасибо мне!
Вот принцип, если кому надо:

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 2486261

Цитата:

Цитата Nic_odin
If s = "Dim fso, ts, s" Then »

Непонятно: он сам себя читает? Но в первой строке уже добавил objHTTP... и будет File Not Exist, хотя File Exist?


Время: 01:29.

Время: 01:29.
© OSzone.net 2001-