거래 소프트웨어 Boyi Master는 어떻게 데이터를 EXCEL로 내보내나요?
이렇게 하면 대량의 Boyi가 텍스트 파일로 내보내집니다.
Master Boyi 데이터를 Feihu Trader VBS로 전송
Sub Main() '메인 프로그램 스크립트, 여기에 메인 프로그램 코드를 적어주세요
dateNum= 10 '0 모두 가져오기를 의미합니다. 앞으로는 지난 며칠의 데이터만 업데이트하는 것이 좋습니다. 10은 지난 10일만 내보내는 것을 의미합니다.
strFile="E:\ Securities Data\pobo\Data \nyefut\Day\CONC.day" 'Boyi Master Daily File (미국 원유 연속)
fileName="C:\TXTDAY\IDIDCONC.TXT" '내보낸 파일(Flying) Fox Trader 표준 텍스트 파일)
PoboToFoxtraderTXT strFile, fileName, dateNum
End Sub '스크립트 메인 프로그램 끝
Sub PoboToFoxtraderTXT(strFile, fileName, dateNum)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim objStream, fso, jiaGe(10 )
objStream = CreateObject("ADODB.Stream") 설정
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFile
dateNum=0이면
dateNum= objStream.Size/32
ElseIf dateNum.Size/32이면
dateNum=dateNum
Else
dateNum=objStream.Size/32
End If
objStream. position = objStream.Size -dateNum*32
For i = 1 To dateNum
readFile = AscB(objStream.Read(1)) AscB(objStream.Read(1))* 256 AscB(objStream.Read(1))*256*256 AscB(objStream.Read(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)
For j = 1 To 4
readFile = AscB(objStream.Read(1)) AscB(objStream.Read (1))* 256 AscB(objStream.Read(1))*256*
256 AscB(objStream.Read(1))*256*256*256
jiaGe(j) =CStr(readFile/1000) "
다음
objStream.position = objStream.position 12 '거래량 및 포지션의 데이터 구조를 알 수 없으므로 당분간 내보낼 수 없습니다!
shuChu = shuChu riQi " " jiaGe(2) jiaGe(3) jiaGe(4) jiaGe(1) vbCrLf
riQi=""
다음
objStream.Close
objStream = Nothing으로 설정
fso=CreateObject("Scripting.FileSystemObject") 설정
If fso.FolderExists( "C:\TXTDAY") 그러면
i=0
Else
fso.CreateFolder ("C:\TXTDAY")
End If
Set MyFile=fso.OpenTextFile(fileName, ForWriting, True, TristateFalse)
MyFile.WriteLine shuChu
MyFile.close
MyFile = 없음 설정
fso = 없음 설정
End Sub