批量取次日开收高低

103660

20260105        000969
20260105        600489
20260105        002716
20260105        002080
20260105        001208
20260105        000333
20260106        603061
20260106        002497
20260106        001203
20260106        603929

需求：取上述股票第一列日期的下一交易日开盘价、收盘价、最高价、最低价，输出到一个外部文件。

资深技术07

您的问题正在处理，请稍等

103660

我可以使用自定义数据

103660

我已经把这些数据导进了自定义数据，但是不知道怎么操作自定义数据。

资深技术07

自定义数据，使用说明，供您参考：https://www.weistock.com/docs/PE ... 9%E6%95%B0%E6%8D%AE

103660

以下代码可以表示我的需求：调用自定义数据DATA2，用FOR循环从序号1到10调取自定义数据DATA2中的10行，每行的日期和代码，然后日期和代码取得下一交易日开盘价和收盘价。请老师帮改一下。
D:=SELFDATA('DATA2'); //即上述10行数据

FOR VAR1=1 TO 10 DO
BEGIN
  指定日期:=D(VAR1,1);//这里不知道怎么取代码
  LABLE:=D(VAR1,2);//这里不知道怎么取代码
  
  指定位置:=BARSLAST(指定日期);
  下一交易日开盘:=REFDATE(O,指定位置+1);
  下一交易日收盘:=REFDATE(C,指定位置+1);
  str:=NUMTOSTR(最大涨幅,2)+' '+D+' '+NUMTOSTR(下一交易日开盘,2)+'  '+NUMTOSTR(下一交易日收盘,2);
  DEBUGFILE('C:\TEST.TXT',str,0);
END

103660

请老师帮助改一下：

D:=SELFDATA('DATA2'); //即上述10行数据

FOR VAR1=1 TO 10 DO
BEGIN
  指定日期:=D(VAR1,1);//这里不知道怎么取日期
  LABLE:=D(VAR1,2);//这里不知道怎么取代码
  
  指定位置:=BARSLAST(指定日期);
  下一交易日开盘:=REFDATE(O,指定位置+1);
  下一交易日收盘:=REFDATE(C,指定位置+1);
  str:=NUMTOSTR(最大涨幅,2)+' '+D+' '+NUMTOSTR(下一交易日开盘,2)+'  '+NUMTOSTR(下一交易日收盘,2);
  DEBUGFILE('C:\TEST.TXT',str,0);
END

103660

请老师帮改一下。
D:=SELFDATA('DATA2'); //即上述10行数据

FOR VAR1=1 TO 10 DO
BEGIN
  指定日期:=D(VAR1,1);//这里不知道怎么取日期
  LABLE:=D(VAR1,2);//这里不知道怎么取代码
  
  指定位置:=BARSLAST(指定日期);
  下一交易日开盘:=REFDATE(O,指定位置+1);
  下一交易日收盘:=REFDATE(C,指定位置+1);
  str:=NUMTOSTR(最大涨幅,2)+' '+D+' '+NUMTOSTR(下一交易日开盘,2)+'  '+NUMTOSTR(下一交易日收盘,2);
  DEBUGFILE('C:\TEST.TXT',str,0);
END

资深技术07

自定义数据，可以按照品种代码取得自定义数据，目前，尚不能按照数据或者日期，取品种代码。所以您1楼的功能，不能用自定义数据实现。

可以用getinifile读取INI文件，再用writeinifile写一个新的INI文件，将您需要次日的开高低收写入

103660

OK, 我试一试。另外因为误操作发了三遍同样回复，抱歉。