Узанть версию базы нод на оф. сайте
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 10
• Страница 1 из 1
- kuhtiov
- Постоялец
-
- Сообщения: 419
- Зарегистрирован: 03.08.2006 (Чт) 5:31
Узанть версию базы нод на оф. сайте
kuhtiov » 08.04.2008 (Вт) 12:56
Необходимо узнать версию базы вирей на официальном сайте NOD32. У них есть страничка где указывается текущая версия. Делаю так: автоматом страничка сохраняется в файл, затем в нем нужно выполнить поиск по "NOD32 - v.<!---BEGIN_VERSION--->3009<!---END_VERSION---> (<!---BEGIN_DATE--->20080408)". Так вот, подскажите пожалуйста, как выполнить этот самй поиск. Раньше помница в FAQ подобная тема была, но сейчас не поиском не в FAQ не нашел.
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
- kuhtiov
- Постоялец
-
- Сообщения: 419
- Зарегистрирован: 03.08.2006 (Чт) 5:31
kuhtiov » 08.04.2008 (Вт) 16:26
Блин, туплю уже.
Нужно выдернуть отсюда "NOD32 - v.<!---BEGIN_VERSION--->3009<!---END_VERSION---> (<!---BEGIN_DATE--->20080408)" только "3009", не получается, значение a$ нулевое
Open "123.txt" For Input As #1
Input #1, s$
Close
a$ = InStr(24, s$, "v.<!---BEGIN_VERSION--->")
MsgBox a$
Нужно выдернуть отсюда "NOD32 - v.<!---BEGIN_VERSION--->3009<!---END_VERSION---> (<!---BEGIN_DATE--->20080408)" только "3009", не получается, значение a$ нулевое
Open "123.txt" For Input As #1
Input #1, s$
Close
a$ = InStr(24, s$, "v.<!---BEGIN_VERSION--->")
MsgBox a$
- kuhtiov
- Постоялец
-
- Сообщения: 419
- Зарегистрирован: 03.08.2006 (Чт) 5:31
kuhtiov » 08.04.2008 (Вт) 17:11
iGrok писал(а):А почему ты начинаешь искать с 24 символа??? Откуда это вообще?
Мне взбреднуло искать после "v.<!---BEGIN_VERSION--->", учитывая кол-во этих символов, теперь осознаю что читать с первого нужно, но суть проблемы не решается. Через instr() мне должен вернуться номер символа, с которого нужно начинать читать, это я понял. Но я не помню как читать файл с определенного символа
. На самом деле, на сколько я помню, было приблизительно такая функция:
переменная = функция("весь текст" , "искомая фраза" , "сколько знаков после него читаем") в переменную возвращается непосредственно текст, а не номер символа (если я конечно ничего не путаю).
- burik
- Постоялец
-
- Сообщения: 514
- Зарегистрирован: 03.11.2005 (Чт) 22:04
- Откуда: Беларусь, Рогачев
burik » 08.04.2008 (Вт) 17:14
- Код: Выделить всё
strVer = Mid$(yourStringToFind, InStrRev(yourStringToFind, "<!---END_VERSION") - 4, 4)
Между слухов, сказок, мифов,
просто лжи, легенд сомнений
мы враждуем жарче скифов
за несходство заблуждений
Игорь Губерман
просто лжи, легенд сомнений
мы враждуем жарче скифов
за несходство заблуждений
Игорь Губерман
- kuhtiov
- Постоялец
-
- Сообщения: 419
- Зарегистрирован: 03.08.2006 (Чт) 5:31
kuhtiov » 08.04.2008 (Вт) 17:26
burik писал(а):
- Код: Выделить всё
strVer = Mid$(yourStringToFind, InStrRev(yourStringToFind, "<!---END_VERSION") - 4, 4)
Спасибо огромное, а то я опять через жжжж делать начал
l = Left(Text, (InStr(1, Text, v.<!---BEGIN_VERSION--->") - 1))
MsgBox l
Только вот выражения типа "<!---END_VERSION", в файле 3, в возвращается последнее!
Сообщений: 10
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 80