博易云一个目录打开多程序

名为博易大师文件夹为原安装好的博易大师目录，名为博易大师1和名为博易大师2为2个新建文件夹，可以将原博易大师安装目录下的所有文件粘贴到这两个新文件夹2内，这样三个文件夹内的内容一样。进入这3个目录进入博易大师system文件，可以找到博易大师执行文件双击打开运行。

用户需要开3个博易大师，可以三次双击打开博易大师安装文件，将博易大师安装在3个不同的目录下。

有两个目录

一个在安装目录下，默认安装时在C:\Program Files\Pobo目录

另一个在C:\Documents and Setting\你的登录用户名\Pobo目录

注意第二个是隐藏目录，要先该变文件夹属性才能看到

博易大师数据转飞狐交易师 VBS

Sub Main()'脚本主程序，请在此下写入主程序代码

dateNum=10 '0代表全部导入,初始化的时候，全部导入，以后建议只更新最近几天的数据， 10代表只导出最近10天

strFile="E:\证券数据\pobo\Data\nyefut\Day\CONC.day" '博易大师日线文件（美国原油连续）

fileName="C:\TXTDAY\IDIDCONC.TXT" '导出的文件（飞狐交易师标准文本文件）

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)

Set objStream = CreateObject("ADODB.Stream")

objStream.Type = 1

objStream.Open

objStream.LoadFromFile strFile

If dateNum=0 Then

dateNum= objStream.Size/32

ElseIf dateNum <objStream.Size/32 Then

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)+" "

Next

objStream.position = objStream.position+12 '成交量和持仓量数据结构未知，暂时不导出！

shuChu = shuChu+riQi+" "+jiaGe(2)+jiaGe(3)+jiaGe(4)+jiaGe(1)+vbCrLf

riQi=""

Next

objStream.Close

Set objStream = Nothing

Set fso=CreateObject("Scripting.FileSystemObject")

If fso.FolderExists("C:\TXTDAY") Then

i=0

Else

fso.CreateFolder ("C:\TXTDAY")

End If

Set MyFile=fso.OpenTextFile(fileName,ForWriting,True,TristateFalse)

MyFile.WriteLine shuChu

MyFile.close

Set MyFile = Nothing

Set fso = Nothing

End Sub