Как со страницы интернета взять число?

[Сеньерадж]

Собственно, такой банальный вопрос. Поделитесь идеями.

[doober]

Ответ.
Загрузить HTML код и парсить его,можно при помощи регулярных выражений

[Astron]

конектишься TclientSocket1 в асинхроне к серверу mysite.ru
отсылаешь заголовок http(прочитай про протокол http)
TclientSocket1.send('GET /index.html HTTP/1.1+#13#10+
Host: mysite.ru+#13#10+
User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9b5) Gecko/2008050509 Firefox/3.0b5+#13#10+
Accept: text/html+#13#10+
Connection: close+#13#10#13#10')

затем принимаешь страницу Tclientsocket1.socket.recv

[motorway]

В Экселе 2007 есть как собственные штуки для этого (взятие курсов валют и т.п.), так и возможность написать макрос на VBA - например, с помощью WinHTTPRequest

[Astron]

я чё то не посмотрел заголовок думал тема про делфи)

[Сеньерадж]

Сообщение от motorway

В Экселе 2007 есть как собственные штуки для этого (взятие курсов валют и т.п.), так и возможность написать макрос на VBA - например, с помощью WinHTTPRequest

Примерчик можно. Это только в 2007 можно сделать?

[motorway]

2003-м давно не пользуюсь, но как-то можно и там.
2007: Данные - Из веба...
Для работы следующего кода нужно отметить Microsoft WinHTTP Services в списке References

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
runurl = "http://google.ru/"
    Set runReq = New WinHttpRequest
  Data = ""
    runReq.Open "POST", runurl, False

    runReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

 runReq.Send ("data=" + Data)
    
 Dim serverresponse As String
serverresponse = runReq.ResponseText
MsgBox serverresponse
End Sub

[valerij]

Сообщение от Сеньерадж

Поделитесь идеями.

Я делаю, банально -элементарно, прога ScreenshotReader в составе Portable FineReader 8.0 Professional Edition, думаю пояснений не требует.