ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Хоть головой об стену - ничего я не пойму
19 сообщений из 19, страница 1 из 1
Хоть головой об стену - ничего я не пойму
    #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:18
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #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:36
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #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:42
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35746431
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
К стати & Chr$(34) тоже пробовал. Неа
...
Рейтинг: 0 / 0
07.01.2009, 03:47
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35746603
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Андрей1593. Дальше думаю без какого либо труда найду "onclick" + Chr(34) + "window.open('"Не найдешь даже с трудом. Потому что onclick = "window.open
...
Рейтинг: 0 / 0
07.01.2009, 12:58
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35746725
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Разделил на две части. Нахожу сначало onclick потом перепригиваю и нахожу остальное
В VB явно что-то не доработали. Ладно. Главное результат.
Спасибо. Всем респект :) и празничного настроения.
...
Рейтинг: 0 / 0
07.01.2009, 16:06
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35746770
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Если мастер гонит на инструмент, проблемы в мастере, а не инструменте. Весь html не видно, а там может быть и onclick = " и onclick =" и onclick= ".
...
Рейтинг: 0 / 0
07.01.2009, 17:03
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #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
07.01.2009, 20:26
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35747023
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
В Visual Basic для работы с HTML файлами предусмотрен DOM. Я не увидел ни одного упоминания об этом классе.
...
Рейтинг: 0 / 0
08.01.2009, 00:01
| Ответить | Цитировать | Написать  
Хоть головой об стену - ничего я не пойму
    #35747245
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Андрей159Типа один код chr(x) вытерал левый символ.Вероятно это был код backspace'а.
VladConnЯ не увидел ни одного упоминания об этом классе.Плохо смотрел.

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

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


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