Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


sniper_super, примерно так:
Код: Выделить весь код
#Include <File.au3>

AutoItSetOption("MustDeclareVars", 1)

Local $sUrl          = "http://www.oszone.net/go.php?url=http://www.rts-tender.ru/DFile.ashx?guid=87864c7c-1741-4e0b-9a81-04152506e117"
Local $sTempFileName = _TempFile()


If InetGet($sUrl, $sTempFileName, 1) = 0 Then
	ConsoleWriteError("Can't download link [" & $sUrl & "] into local file [" & $sTempFileName & "]" & @CRLF)
	Exit(1)
EndIf

Local $oWord     = ObjCreate("Word.Application")
Local $oDocument = $oWord.Documents.Open($sTempFileName, False, True)
Local $oTable    = $oDocument.Tables.Item(3)

Local $oHyperlink
Local $i

For $i = 2 To $oTable.Rows.Count
	For $oHyperlink In $oTable.Cell($i, 5).Range.Hyperlinks
		ConsoleWrite($oHyperlink.TextToDisplay & ":[" & $oHyperlink.Address & "]" & @CRLF)
	Next
Next

$oTable    = 0
$oDocument.Close()
$oDocument = 0
$oWord.Quit()
$oWord     = 0

FileDelete($sTempFileName)

Exit(0)
Цитата:
Код: Выделить весь код
ООО Дельрус-Новосибирск:[http://www.rts-tender.ru/Participant/ParticipantView.aspx?id=7982]
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:04, 19-04-2011 | #2