博藝主數據傳輸至飛狐經銷商VBS
sub Main（）‘腳本主程序，請在此處編寫主程序代碼。
DateNum = 10‘0表示所有導入。初始化時，所有導入，建議僅更新未來最後幾天的數據。10表示僅導出過去10天的數據。
StrFile =“E:\ securities Data \ pobo \ Data \ Nye fut \ Day \ conc . Day““博壹大師每日檔案（美原油連續）
file name =“c:\ txt day \ ididconc . txt““導出文件（飛狐經銷商的標準文本文件）。
PoboToFoxtraderTXT文件，文件名，日期
“End Sub”腳本主程序結束。
sub PoboToFoxtraderTXT（strFile，fileName，dateNum）
Const ForReading = 1，ForWriting = 2，ForAppending = 8
const tristatusedefault =-2，tristat true =-1，TristateFalse = 0
Dim對象流，fso，嘉歌（10）
set objStream = CreateObject（“ADODB。流”）
對象流。Type = 1
對象流。打開
對象流。LoadFromFile strFile
如果dateNum=0，則
dateNum = objStream.Size/32
ElseIf dateNum & lt那麽是objStream.Size/32
dateNum=dateNum
其他
dateNum=objStream。尺寸/32
如果…就會結束
objStream.position = objStream。Size-dateNum*32
For i = 1到dateNum
readFile = AscB（objStream。讀作（1）+AscB（objStream。讀作（1）* 256+AscB（objStream。讀作（1））* 256 * 256+AscB（objStream。讀作（1）* 256 * 256 * 256
nian = readFile\1048576
yue = readFile \ 65536-nian * 16+100
ri =（readFile Mod 65536）\ 256 \ 8+100
riQi = CStr（nian）+“/“+Right（CStr（yue），2）+“/“+Right（CStr（ri），2）
對於j = 1到4
readFile = AscB（objStream。讀作（1）+AscB（objStream。讀作（1）* 256+AscB（objStream。讀作（1））* 256 * 256+AscB（objStream。讀作（1）* 256 * 256 * 256
jiageg（j）= CStr（readFile/1000）+““
然後
對象流。position = objstream。position+12‘體量和位置的數據結構未知，暫不導出！
舒楚=舒楚+日奇+““+甲哥（2）+甲哥（3）+甲哥（4）+甲哥（1）+vbCrLf
日奇=““
然後
對象流。關閉
Set objStream = Nothing
set FSO = CreateObject（“Scripting。文件系統對象“）
如果fso。文件夾存在（“C:\TXTDAY“）
i=0
其他
fso。create folder（“C:\ txt day“）
如果…就會結束
設置MyFile=fso。OpenTextFile（文件名，用於書寫，True，TristateFalse）
我的文件。WriteLine shuChu
我的文件。關閉
設置MyFile = Nothing
設置fso =無
末端接頭