[ahk]解析大智慧自选股blk文件中的股票代码

 ;功能：解析大智慧自选股blk文件中的股票代码 
 ;作者：sunwind
 ;时间 : 2015年8月22日00:20:16


Filename=自选股5.BLK
;~ Filename=%A_ScriptDir%\%Filename%
Flags:=3
SetFormat, integer, H
bkfile := FileOpen(Filename, Flags )
_StockList:=""
Loop
{
    bkfile.seek(4,1)
    bkfile.RawRead(String,8)

    IsAtEOF := bkfile.AtEOF
    if IsAtEOF
    {
        ;~ MsgBox 结束
        break
    }

    _StockCode:=""
    Loop,8
    {
        _Byte := NumGet(String, A_Index-1, "UChar")
        _Chr := chr(_Byte)
        _StockCode.=_Chr

    }
    _StockList.=_StockCode . "`n"
}
FileDelete,_StockList.ini
FileAppend,%_StockList%,_StockList.ini
run,_StockList.ini

return

相关文件请猛戳这儿