以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  在一分钟周期上，当前周期结束时如何获取当前周期的最高价、最低价、开盘价、收盘价、成交量、时间、日期  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=86241)
--  作者：wcsmomo
--  发布时间：2015/10/15 16:44:02
--  在一分钟周期上，当前周期结束时如何获取当前周期的最高价、最低价、开盘价、收盘价、成交量、时间、日期
后台交易程序里，在一分钟周期上，当前周期结束时如何获取当前周期的最高价、最低价、开盘价、收盘价、成交量、时间、日期。
我用这些函数，但返回的是一个数组，我应该取数组的那个值呢？
myClose := CLOSE; 
myOpen := OPEN;
myHigh := HIGH;
myLow := LOW;
myVol := VOL;
myTime := TIME;
myDate := DATE; 


我的全部代码如下：

DEBUGOUT(\'开始执行=%.0f\',OPEN);
myClose := CLOSE; 
myOpen := OPEN;
myHigh := HIGH;
myLow := LOW;
myVol := VOL;
myTime := TIME;
myDate := DATE; 

//if timetot0(dynainfo(207))=time0-1 then begin
//extgbdataset(\'myClose\', CLOSE); 
//extgbdataset(\'myOpen\', open); 
//extgbdataset(\'myHigh\', high); 
//extgbdataset(\'myLow\', low); 
//extgbdataset(\'myVol\', vol); 
//extgbdataset(\'myTime\', time); 
//extgbdataset(\'myDate\', date+19000000); 
//end

<%  
 myCloses =ffl.vardata("myClose")
 
 myClose = myCloses(0)
 myOpens =ffl.vardata("myOpen")
 
 myOpen = myOpens(0)
 myHighs =ffl.vardata("myHigh")
 
 myHigh = myHighs(0)
 myLows =ffl.vardata("myLow")
 
 myLow = myLows(0)
 myVols =ffl.vardata("myVol")
 
 myVol = myVols(0)
 myTimes =ffl.vardata("myTime") 
 myTime = myTimes(0)
 myDates =ffl.vardata("myDate")
 
 myDate = myDates(0)

  
Dim conn
Dim Rst
Dim strCnn
 
Const strC

Set conn = CreateObject("adodb.connection")
conn.Open strConn

\'查看是否连接成功，成功状态值为1
\'msgbox Conn.state
\'If Conn.State = 0 Then
\'   msgbox  "连接数据库失败"
\'else
\'  msgbox   "连接数据库成功"
\'End If
Set Rst =CreateObject("ADODB.Recordset")
 Rst.open "insert into spr_candle_line(high,low,opens,closes,vol,times,dates) values("&myHigh&","&myLow&","&myOpen&","&myClose&","&myVol&","&myTime&","&myDate&")",conn
  
\'Rst.open "insert into spring_test(test_no) values("&myClose&")",conn
\'msgbox "数据库插入成功"
\'Rst.open "select test_no from spring_test",conn
\'While not Rst.eof \'
\' test_no = Rst("test_no").value
\' msgbox test_no
\' Rst.movenext
\'wend
\'Rst.open "update spring_test set test_no = 9999999",conn
\'Rst.close        \'关闭记录集
Set Rst=nothing         \'释放对象
conn.close        \'关闭连接
Set cnn=nothing        \'释放对象
%>

DEBUGOUT(\'执行结束=%.0f\',CLOSE)
--  作者：yukizzc
--  发布时间：2015/10/15 17:28:35
--  
您具体是要做什么目的？把数据导出保存数据库？
--  作者：wcsmomo
--  发布时间：2015/10/15 18:28:23
--  
对，保存到数据库里，用外围系统来分析得出买卖信号传给金字塔交易，金字塔这软件实现不了太复杂的业务逻辑。
--  作者：wcsmomo
--  发布时间：2015/10/15 18:31:49
--  
但不知道怎么准确的取金字塔的数据...不知道到金字塔有没有这样的功能？
--  作者：wcsmomo
--  发布时间：2015/10/17 9:47:18
--  
不会吧，作为一个优秀的程序化交易软件，连准确取k线数据的方法都没有？看来这些所谓的优秀软件都只是吹嘘时尚的功能罢了......基础数据存取功能都做不好！
--  作者：王锋
--  发布时间：2015/10/18 0:25:22
--  

目前金字塔不提供数据导出的技术客服服务。

如果现有的软件功能无法实现你的要求，你可以具体指出需要做哪些操作，需要哪些功能，我们会日后完善并努力改进。

[此贴子已经被作者于2015/10/18 0:30:10编辑过]
--  作者：wcsmomo
--  发布时间：2015/10/18 9:32:18
--  
其实我要的功能就是在一个k线走完成后，取到这个k线的数据。
这是一个很基础的功能吧，其他那么复杂的功能你们都是实现了，为什么这么简单的功能你们没有实现呢，是不是你误解我的意思了，以为我要数据导出功能。导出和存储我知道怎么做，只要你们软件能获取k线的数据就行。
[此贴子已经被作者于2015/10/18 9:32:48编辑过]
--  作者：wcsmomo
--  发布时间：2015/10/18 11:06:27
--  
self
--  作者：马良
--  发布时间：2015/10/18 22:11:15
--  
你自己的使用逻辑方式有问题，既然是数组，需要最新的k线数据就用最后一个数据就是了啊。