这样的策略如何系统化

目前有一个套利策略，手动操作，基本稳定盈利，想要系统化。
构想：将行情软件的数据（包括价格与委托数量）实时导出至EXCEL，进行判断，如有赢利空间，则执行。
问题：1行情软件数据导出的问题
2判断后执行指令的问题
现在首先想解决数据导出至EXCEL的问题，因为目前手动输入，经常手忙脚乱，不知各位有什么建议

 

你可以研究下论坛最近有朋友发的无人值守工作站的经验,利用autoit可以解决你的问题.

 

期货的话，现在软件功能都挺强了，金钱豹都可以后台连matlab了。

股票的话，fix协议，TB传说中的证券版应该也能搞定。

偷偷的猜测一下，需要“委托数量”，LZ是想搞做市商策略？

 

从外部向excel直接灌数据比较难（不是说不可能）
但是让excel读取外面的数据则容易得多

你可以考虑让行情软件输出文件，再让excel去读这个文件

 

大哥，可能的话，你策略的思想给我说说，一句话或几个字就行，不必详细披露。下面是通达信导出程序。。。。原来年少不懂事的时候编的，应该很好用。。。你试验一下，你觉得过意不去就给我发个邮件，透露下你的思想啊，几个字就行，给点灵感嘛。。。liubin730020@yahoo.com.cn
Sub liu()
Cells(1, 1).Value = "日期"
Cells(1, 2).Value = "开盘"
Cells(1, 3).Value = "最高"
Cells(1, 4).Value = "最低"
Cells(1, 5).Value = "收盘"
Cells(1, 7).Value = "成交量"
Dim wz As String
Dim sto As String
Dim ffname As String
wz = InputBox("请输入文件保存位置")
sto = InputBox("请输入股票代码例(sh000001)")
ffname = wz & "\" & sto & ".day"
MsgBox ffname
uuuuu = getdata(ffname)

Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft

End Sub
Rem Private Function getdata(sdm As String)
Private Function getdata(fname As String)
Dim sdata() As Byte
Dim dstr As String
Dim total As String
Dim pval As Double
Open fname For Binary As #1

ReDim sdata(LOF(1))

Get #1, , sdata()
For ppp = 0 To LOF(1) / 4 - 1

pval = 0
total = ""


For i = ppp * 4 + 3 To ppp * 4 + 0 Step -1
dstr = ""
a = sdata(i)

Do While a > 0
dstr = Trim(Trim(Str(a Mod 2)) & Trim(dstr))
a = a \ 2
Loop

If Len(dstr) < 8 Then
For j = 1 To 8 - Len(dstr)
dstr = "0" & dstr
Next
End If
total = Trim(Trim(total) & Trim(dstr))
Next

For ii = 1 To Len(total)
pval = pval + Val(Mid(total, ii, 1)) * 2 ^ (Len(total) - ii)
Next

Cells(ppp \ 8 + 2, (ppp Mod 8) + 1).Value = pval


Next

Close #1


End Function

 

dreamera9
直接用上期综合平台的“盈佳“或者”云辉“软件终端，直接用excel接收实时行情，最方便

 

目前计划这样做

 

是一个股票方面的策略,不是期货方面的,需要委托数量是为了控制冲击成本

 

不知股票行情支持否

 

淘宝网上有卖的，大智慧实时导出行情数据，我用了接近两年了（我用的是导出txt,不过他可以导出excel）。你可以自己去找一下

 

恩，找到了，不过目前行情问题解决了，通过SINA能导即时数据了