InetGet() gets a corrupt Excel file

[Herb191]

I am getting a corrupt Excel file when I use InetGet().

$sFilePath = @ScriptDir & "\List.xls"
$sDownloadURL = "https://alachua.lienexpress.net/certificates/list.xls?q=%7B%7D%0A"

$hDownload = InetGet($sDownloadURL, $sFilePath)

[water]

How do you know it is corrupt?

[Herb191]

How do you know it is corrupt?

 

Corrupt in the sense that if I manually go to the URL and download it the file opens fine in Excel. When I use InetGet() and open the file with Excel it says that it is a bad file type.

[water]

Have you tried flag $INET_FORCERELOAD?

[Herb191]

Have you tried flag $INET_FORCERELOAD?

Sorry for the late response of have been sick the last couple of days.

Yes I have tried $INET_FORCERELOAD.

The exact message I get from Excel is:

The file format and extension of ‘list.xls’ don’t match. The file could be corrupted or unsafe. Unless you trust its source, don’t open it. Do you want to open it anyway?

When I open the file its is not readable.

When I download the file manually the extension is a .xls.

[Danp2]

When I manually download the file, Firefox thinks it downloaded a 223KB file. However, when you examine the actual file it is 992KB. It looks like the file being downloaded with InetGet is compressed. I was able to open it with 7Zip and extract the same 992KB file from within.

[Herb191]

When I manually download the file, Firefox thinks it downloaded a 223KB file. However, when you examine the actual file it is 992KB. It looks like the file being downloaded with InetGet is compressed. I was able to open it with 7Zip and extract the same 992KB file from within.

 

Hummm very interesting. I was also able to read it once I unzipped it. I guess I will have to use InetGet() to get the file and then have AutoIt unzip it. Thanks Danp2.

[Herb191]

So upon further research I found that the issue was that the file was being downloaded in gzip format. I thought I would post my code for anyone that ran into a similar problem. This code uses the zLib UDF found >here.

#include "ZLIB.au3"

$sFilePath = @ScriptDir & "\list.xls"
$sURL = "https://alachua.lienexpress.net/certificates/list.xls?q=%7B%7D%0A"
InetGet_GZ($sURL, $sFilePath)

Func InetGet_GZ($sDownloadURL, $sFileName)
    $Data = InetRead($sDownloadURL)
    $Data = BinaryToString(_ZLIB_GZUncompress($Data), 1)
    If FileExists($sFileName) Then FileDelete($sFileName)
    FileWrite($sFileName, $Data)
EndFunc   ;==>InetGet_GZ