AutoHotkey Community

URLDownloadToFile,http://www.autohotkey.net/~Rhys/Junk/test.axc,local.axc
URLDownloadToFile,http://www.autohotkey.net/~Rhys/Junk/test_newer.axc,remote.axc

FileReadEx((local_axc:="local.axc"),hdr,8,12 )
FileReadEx((remote_axc:="remote.axc"),hdr,8,12 )
FileReadEx(local_axc,local_csv,numget(hdr,4),numget(hdr))
FileReadEx(remote_axc,remote_csv,numget(hdr,4),numget(hdr))

Local_Date:=Remote_Date:=0
Loop,Parse,local_CSV,`r,`n
{
  Loop,Parse,A_LoopField,CSV
  If (A_Index = 5) && (A_Loopfield > Local_Date)
    Local_Date:=A_LoopField
}
Loop,Parse,remote_CSV,`r,`n
{
  Loop,Parse,A_LoopField,CSV
  If (A_Index = 5) && (A_Loopfield > Remote_Date)
    Remote_Date:=A_LoopField
}

MsgBox, %Local_Date%-Local`n%Remote_Date%-Remote
Return



FileReadEx( F,ByRef V,B,O=0 ) {
 by:= (B<0 ? ABS(B-1) : B), varsetcapacity(V,By,0), h:=dllcall("_lopen",str,f,int,0)
 ifless,h,1,return, -1
 dllcall("_llseek",uint,h,int,( B < 0 ? B : O), uint,(B < 0 ? 2 : 0))
 return dllcall("_lread",uint,h,str,V,int,by) . (dllcall("_lclose",uint,h)+wm_null)     
}

axc_unpackall( packfile,dir="",progress="axm_progress" ) {
  ifequal,dir,,setenv,dir,%a_workingdir%
  u:="uint",i:="int",s:="str",h:=dllcall("_lopen",s,packfile,i,0),varsetcapacity(x,4,0)
  varsetcapacity(hdr,24),dllcall("_lread",u,h,s,hdr,i,24),fls=numget(hdr,8),f:=0
  if (h<1||(numget(hdr)<>0xB2437841)||(numget(hdr,4)<>0x3F800000)||fls<1)
{ dllcall("_lclose",u,h)
  return -1
} varsetcapacity(z,1),dllcall("_lread",u,h,s,z,i,1),z:=asc(z),varsetcapacity(crc,z)
  dllcall("_lread",u,h,s,crc,i,z),csvof:=numget(hdr,12),csvsz:=numget(hdr,16)
  dllcall("_llseek",u,h,i,csvof,i,0),varsetcapacity(csv,csvsz)
  dllcall("_lread",u,h,s,csv,i,csvsz)
  if ( dllcall(&CRC,s,csv,u,csvsz,i,-1,u,0x04C11DB7,"cdecl uint") <> numget(hdr,20) )
{ dllcall("_lclose",u,h)
  return -2
} loop,parse,csv,`n
{ loop, parse, a_loopfield, csv
  f%A_Index%:=a_loopfield
  dllcall("_llseek",u,h,i,f3,i,0),varsetcapacity(bin,f2),dllcall("_lread",u,h,s,bin,i,f2)
  If ((e:=dllcall(&CRC,s,bin,u,f2,i,-1,u,0x04C11DB7,"cdecl uint")+0)<>f4)
{ msgbox,16,Checksum Error!,CRC32 failed on %f1% %e%
  continue
} ifnotexist,% (tf:=dir "\" f7),filecreatedir,%tf%
  ifnotequal,progress,,setenv,dummy,% %progress%(f1,a_index,fls,packfile)
  h2:=dllcall("_lcreat",s,tf "\" f1,i,0),f:=f+1
  dllcall("_lwrite",u,h2,s,bin,u,f2),dllcall(lc,u,h2)
  filesettime,%f5%,%tf%\%f1%,c
  filesettime,%f5%,%tf%\%f1%,m
  filesetattrib,+%f6%,%tf%\%f1%
} Return f+dllcall("_lclose",u,h)
}