거래 소프트웨어 Boyi 마스터는 어떻게 데이터를 EXCEL 로 내보냅니까?

박예주 데이터 비호 판매상 VBS 로 전송

Sub Main ()' 스크립트 마스터 프로그램, 여기에 마스터 프로그램 코드를 쓰십시오.

DateNum= 10 '0 은 모든 가져오기를 의미합니다. 초기화 시 모두 가져오므로 앞으로 마지막 며칠 동안의 데이터만 업데이트하는 것이 좋습니다. 10 은 최근 10 일만 내보낸다는 의미입니다.

Strfile = "e: \ securitiesdata \ pobo \ data \ nyefut \ day \ conc.day"' Boyi 마스터 일일 파일 (미국 원유 연속)

File name = "c: \ txtday \ ididconc.txt"' 익스포트 파일 (feihu 리셀러 표준 텍스트 파일).

PoboToFoxtraderTXT 파일, 파일 이름, 날짜

End Sub' 스크립트 주 프로그램이 종료되었습니다.

Sub PoboToFoxtraderTXT(strFile, fileName, dateNum)

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Const tristeusedefault =-2, TristateTrue =-1, TristateFalse = 0

Dim 개체 흐름, FSO, 가그 (10)

Set objstream = createobject ("adodb. 흐름) 을 참조하십시오

ObjStream. 유형 =1

ObjStream. 열다

ObjStream. 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

I = 1 to dateNum 의 경우

ReadFile = AscB(objStream) 입니다. 읽기 (1)+ascb (objstream). 읽기 (1) * 256+ascb (objstream). 읽기 (1) * 256 * 256+ascb (objstream). 읽기 (1) * 256 * 256 * 256

Nian = readFile\ 1048576

왕위 = 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

자그 (j) =CStr(readFile/ 1000)+ ""

그리고 나서

Objstream. 위치 = objstream 입니다. 위치+12' 볼륨 및 위치의 데이터 구조를 알 수 없으므로 일시적으로 내보내지 않습니다!

서초 = 서초+일기+""+가형 (2)+ 가형 (3)+ 가형 (4)+ 가형 (1)+vbCrLf

이치 = ""

그리고 나서

ObjStream. 닫기

Set objStream = Nothing

Set fso=CreateObject("Scripting. 파일 시스템 객체) 를 참조하십시오

Fso 인 경우. FolderExists("C:\TXTDAY ") 다음에

I=0

기타

Fso. CreateFolder ("C:\TXTDAY ")

만약 ... 끝날거야

MyFile=fso 를 설정합니다. OpenTextFile (파일 이름, ForWriting, True, TristateFalse)

내 문서. WriteLine 책장

MyFile.close

MyFile = Nothing 을 설정합니다

Fso = 없음 설정

끝단 접합