Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB6] Webbrowser, html код 
V
    Опции темы
eldar22
Дата 23.4.2009, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Допустим есть html код

Код

<html> 
<head> 
<title>Сайт с фреймом
</title> 
</head> 
<frameset rows="*,106" frameborder=1 bordercolor=black framespacing=0> 
<frame name="frame" src="http://сайт/gates.php" noresize scrolling=auto id="website_frame" title="jgFNRtUwHy"> 
<frame name="site_eldP813q" src="http://site.ru/surf_frame.php" noresize scrolling=no> 
</frameset> -274686065
</html>


Вопрос в одном как в Label  вывести это значение title="jgFNRtUwHy"
PM MAIL WWW   Вверх
Akina
Дата 23.4.2009, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Ковыряй WebBrowser1.Document.body. И поиск по форуму. И внизу под формой ответа - раздел "А здесь смотрели?".


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
eldar22
  Дата 24.4.2009, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Ну вот допустим есть код Delphi
Код

procedure TForm1.Button1Click(Sender: TObject);
var
s : ansistring;
k1,k2,k3 : integer;
begin
s := Memo1.Text;
k1 := pos('website_frame',s);
k2 := pos('title',copy(s,k1,length(s)));
k2 := k1 + k2 + 6;
k3 := pos('"',copy(s,k2,length(s)));
Edit1.Text := copy(s,k2,k3-1);
end;




procedure TForm1.Button2Click(Sender: TObject);

     var
x:tstringlist;
begin

x:=tstringlist.create;

x.Add('button.y=11');
x.Add('password=m');





memo1.Text:=IdHTTP1.get('http://www.сайт.ru/surf.php');



memo1.lines.savetofile('c:\test.html');


end;



 вот как на visual basice сделать я не знаю

Это сообщение отредактировал(а) eldar22 - 24.4.2009, 12:45
PM MAIL WWW   Вверх
Akina
Дата 24.4.2009, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Читать не хотим (а там есть исчерпывающий ответ), думать не хотим... ну и нечего тогда в тематическом форуме делать... 

Перенесено в ЦП.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
neic
Дата 27.4.2009, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7
Точно сказать не могу (из-за IE7 в VB6 WebBrouser глючит), но наверное так должно быть:

Код

qw = WebBrowser1.Document.body ' здесь видимо получаем исходный текст html страницы

find = Mid(qw, InStr(1, qw, "title=") + 7)
find = Left(find, InStr(1, find, ">") - 2)
PM MAIL WWW ICQ Skype   Вверх
eldar22
Дата 18.6.2009, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Проблема решена всем спасибо
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0762 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.