Что нового

Как сократить объем получаемого файла InetRead

Demitru

Новичок
Сообщения
1
Репутация
0
Всем привет!!
Как можно сократить объем получаемого контента при использовании функции InetRead
Когда я вставляю в блокнот возвращаемый этой функцией текст - я имею 150000 строк в блокноте. Из них - мне для использования нужно только первые 100 строк.
Как максимально грамотно сократить объем?
 

Glass4217

Знающий
Сообщения
58
Репутация
6
_IECreate данная функция возможно вам понравится больше.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 547
Репутация
2 429
С InetRead не получится, а вот можно попробовать с InetGet:
Код:
#include <InetConstants.au3>
#include <WinAPIFiles.au3>

$iLines = 100
$sFilePath = _WinAPI_GetTempFileName(@TempDir)
$hDownload = InetGet('https://litportal.ru/trial/txt/24426353.txt', $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

Do
    StringReplace(FileRead($sFilePath), @LF, '')
Until @extended >= $iLines Or InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)

InetClose($hDownload)

$sRead = FileRead($sFilePath)
$sRead = StringLeft($sRead, StringInStr($sRead, @LF, 2, $iLines - 1))

FileDelete($sFilePath)
ConsoleWrite($sRead & @CRLF)
 
Верх