Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Хоть головой об стену - ничего я не пойму / 19 сообщений из 19, страница 1 из 1
07.01.2009, 03:18
    #35746419
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Ищу вот этот код в гробаном HTML на странице...
1. Скачал
2. Загрузил страницу в переменную PZ_S
3. Дальше думаю без какого либо труда найду "onclick" + Chr(34) + "window.open('"
И тут началось
InStr - не находит
if Mid(...)=Mid(...) - тоже

и главное и уровнение и InStr ищут только до слова "onclick", а кавычки (тоесть Chr(34)) ему в облом поискать. Что это ? У меня гарячка уже началась. Я с нетерпением начал искать причину, так как не понял в чем дело... Никогда с таким не сталкивался.

И изобрел старый велосипед

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim f As Long
Dim Posh As Long
Dim S As String
S = LCase("onclick" + Chr( 34 ) + "window.open('")
PZ_S = LCase(PZ_S)
For f =  1  To Len(PZ_S) - Len(S)
  If Mid(PZ_S, f,  8 ) = Mid(S,  1 ,  8 ) Then
      Debug.Print "-->" + Mid(PZ_S, f,  40 )
    For Posh =  1  To Len(S)
      If Mid(PZ_S, f + Posh -  1 ,  1 ) <> Mid(S, Posh,  1 ) Then Exit For
      
      If Posh = Len(S) Then
        Stop
      End If
    Next
  End If
Next


Mid(S, 1, 7) - находит, а Mid(S, 1, 8) - уже нет. Проверял еще так:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 03:36
    #35746426
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Все кажется нашел. Причина в скобках. Еб..тый VB почему то их игнорирует. Не пробовал на простом примере, но из данного случая выходит настоящий глюк. Я долден найти сначало
S="onclick"
MPos = 1
MPos = InStr(MPos, PZ_S, S)
потом пропустить скобки, т.к. он тупой и не ищет. Или у меня уже извехрения...
И продолжаю
If Mid(PZ_S, 1, 11) = "window.open" Then Stop
Мля...

Что тут еще добавить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 03:42
    #35746427
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Ой загон был.
Вот исправил
Код: plaintext
1.
2.
3.
4.
5.
6.
MPos =  1  ' использую для дальнейшего поиска
S="onclick" ' Задаю упрощенно
MPos = InStr(MPos, PZ_S, S) ' Ищу
MsgBox Mid(PZ_S, MPos +  9 ,  100 ) ' Эт я уже проверяю и вздовж и впоперек
PZ_S = Mid(PZ_S, MPos +  9 ) 'На всякий случай отсекаю, чтоб легче разобраться
If Mid(PZ_S,  1 ,  11 ) = "window.open" Then Stop 'Вот так то находит, но не с chr(34)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 03:47
    #35746431
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
К стати & Chr$(34) тоже пробовал. Неа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 12:58
    #35746603
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Андрей1593. Дальше думаю без какого либо труда найду "onclick" + Chr(34) + "window.open('"Не найдешь даже с трудом. Потому что onclick = "window.open
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 16:06
    #35746725
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Разделил на две части. Нахожу сначало onclick потом перепригиваю и нахожу остальное
В VB явно что-то не доработали. Ладно. Главное результат.
Спасибо. Всем респект :) и празничного настроения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 17:03
    #35746770
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Если мастер гонит на инструмент, проблемы в мастере, а не инструменте. Весь html не видно, а там может быть и onclick = " и onclick =" и onclick= ".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2009, 20:26
    #35746918
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Все верно. Я помню раньше на Commandor 64 писал программу. Так там такое возможно. Типа один код chr(x) вытерал левый символ. Но это же не DOS. В строке я четко вижу, выделяю и копирую код HTML из блокнот. Хотя блокнот тоже не золото (мож просто ЕХЕ файл открыть и сохранить как - программа не будет работать), но я вытаскивал код средством:
Код: plaintext
1.
2.
3.
  Dim mDoc As HTMLDocument
  Set mDoc = WebBrowser1.Document
  Dim html As String
  html = mDoc.documentElement.innerHTML

text1.text=html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2009, 00:01
    #35747023
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
В Visual Basic для работы с HTML файлами предусмотрен DOM. Я не увидел ни одного упоминания об этом классе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2009, 11:23
    #35747245
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Андрей159Типа один код chr(x) вытерал левый символ.Вероятно это был код backspace'а.
VladConnЯ не увидел ни одного упоминания об этом классе.Плохо смотрел.

Андрей159
Настал подходящий момент обосновать конкретным примером оправданность наездов на VB ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2009, 22:15
    #35748018
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Ты имеешь ввиду HTMLDocument? ОК, ОК, я имел ввиду применительно к VB. Там, как я понял, пример в контексте Commandor 64? В пику VB?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2009, 22:27
    #35748033
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Сейчас посмотрел на Yahoo Commandor 64, думая, это какой-то неведомый мне язык. Нашел вообще Commodore 64, но последний не упоминался в топике...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2009, 09:59
    #35748304
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Имелся ввиду именно компьютер Commodore 64, просто автор запамятовал, как правильно пишется. У меня тоже был такой комп, но на нем я почти не прогал, потому что возможности встроенного бейсика были беднее, чем даже на совковом БК 0010-01. Единственное, что было просто — прогать музыку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2009, 15:35
    #35748794
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Aaaa, тогда чего-то недопонимаю. Почему же он не использовал DOM для своей задачи, виня VB, если уже знал про него, использую на Commodore 64? Там код вроде VB-шный.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2009, 20:53
    #35749212
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Может тогда
Код: plaintext
html = mDoc.documentElement.innerHTML
какие то chr-ры не выводит ? Я пробовал разными способами заганять VB - пока безрезультатно. Да и мне он нравится, новерное через ctrl+scroll lock и горячее окно :)
Вот как еще пробовал поковырять (так на пару минут работы)

Правда chr-рами от 0 до 31 заганять не пробовал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2009, 23:44
    #35749351
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Автор, прекрати поток сознания. html давай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2009, 01:20
    #35750242
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Antonariy, Вы не против, если мы продолжым эту тему по почте ?
Если будут решения, то ответ сюда. Я уже отправил Вам сообщения. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2009, 10:40
    #35750471
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
На указанной странице вообще нет onclick.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2009, 06:27
    #35751716
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хоть головой об стену - ничего я не пойму
Ой. Недосмотрел. Отправил еще раз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Хоть головой об стену - ничего я не пойму / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 426ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161463]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 69ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 234ms
total:  426ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]