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

;功能：解析大智慧自选股blk文件中的股票代码 
;作者：sunwind
;时间：2015年8月22日00:20:16
;更新：2019年1月6日20:45:10，升级为解析新版大智慧blk文件

;请按自己的blk文件路径修改Filename。
Filename=F:\ahk炒股\自选股20.BLK

Flags:=3
SetFormat, integer, H
bkfile := FileOpen(Filename, Flags )
_StockList:=""
Loop
{
	if (a_index=1)
	{
		bkfile.seek(5,1)
	}
	else
		bkfile.seek(8,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

以下是2015年弄得，新版大智慧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

需要量身定制的请微信联系 sunwind1576157
相关文件请猛戳这儿