Вопрос № 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
Удачи.
Евгений.