Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 478
от 13.02.2007, 02:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 240, Экспертов: 34
В номере:Вопросов: 1, Ответов: 1


Вопрос № 74681: Вопрос:Как вытащить информацию с Webстраницы в определенных тегах? Использование WebBrowser и MSHTML или ваш вариант. Вот HTMLкод: <tr > <td valign="top" align="left"> Dolar S.U.A. </td> <td...

Вопрос № 74.681
Вопрос:Как вытащить информацию с Webстраницы в определенных тегах? Использование WebBrowser и MSHTML или ваш вариант.
Вот HTMLкод:
<tr >
<td valign="top" align="left"> Dolar S.U.A. </td>
<td valign="top" align="left"> 840 </td>
<td valign="top" align="left"> USD </td>
<td valign="top" align="right"> 1 </td>
<td valign="top" align="right"> 12.9211 </td>
</tr>
Мне нужно вытащить и поместить на TextBox, эту информацию:
Dolar S.U.A.
USD
12.9211
Спасибо зарание....
Отправлен: 08.02.2007, 02:03
Вопрос задал: DeDMakar (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, DeDMakar!
Именно для этого кода HTML можно сделать так:
Public Function FiLeRead() As Boolean 'чтение файла HTML
Dim i(2) As Integer
Open "C:Ваш.HTML" For Input As FreeFile
i(0) = 0
Do Until EOF(1) ' Or (iLin > 6)
Line Input #1, s 'File, s 'iLin(iLin)
i(1) = InStr(2, s, ">")
i(2) = InStr(2, s, "<")
If i(0) <> 0 And i(0) < 6 Then _
TextBox(i(0) - 1) = Trim(Mid(s, i(1) + 2, i(2) - i(1) - 2))
i(0) = i(0) + 1
Loop
Close #1
End Function
Я предположил, что Ваши поля носят имя TextBox() с индексом от 0 до 4
Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 4-ый класс)
Ответ отправлен: 08.02.2007, 21:18


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.44 beta от 26.01.2007
Яндекс Rambler's Top100

В избранное