Есть вот такая шн-га
Нужно получить курс валют по курсу ЦБР, у меня есть пример на VB поетому и спрашиваю на этом форуме. Дело в том, что мне надо построчно считать файл найти в нём курс Дол. и Евро и положить в MS Access.
Всем кто поможет буду благодарен!
---------------------------------------------------------------
Dim objIE: Set objIE=CreateObject("InternetExplorer.Application")
objIE.Visible=False: objIE.Silent=False
objIE.Navigate "http://www.rbc.ru/"
While CBool(objIE.Busy): WScript.StdOut.Write "*": Wend
WScript.Echo "получила, парсю..."
Dim objDoc: Set objDoc=objIE.Document 'это то что в клиентском JS называется window.document
'WScript.Echo objDoc.body.innerHTML 'получить HTML-код тега BODY можно так...
Dim a 'объектная переменная для ссылки на элемент анкор (<A>)
For Each a In objDoc.all.tags("A") 'перебираем все элементы (теги) <A> в коллекции
If InStr(1, a.href, "EUR_USD.rus.shtml") Then 'если у ссылки в href= есть ссылка на данный файл
'Получаем родительсую TR и все ее TD-шки 'но помните, что все в нашем мире меняется :-)
Dim TDs: Set TDs=a.parentElement.parentElement.childNodes
WScript.Echo TDs(1).innerText & " на " & TDs(2).innerText & _
" спрос: " & TDs(3).innerText & " предл. " & TDs(4).innerText
End If
Next
MsgBox a
'objIE.Quit: Set objIE=Nothing 'Выходим из приложения и очищаем память