當日漲幅前30名

上市股票當日漲幅前30名，請問如何寫？請指導，謝謝！！

引用:

---

最初由 L0123 發表
上市股票當日漲幅前30名，請問如何寫？請指導，謝謝！！

---

引用:

---

最初由 cgjj 發表
不用寫, 於數據列表按一下 [漲幅] 欄位排序即可

---

引用:

---

最初由 L0123 發表
因為還要加其他條件作選股 拜託 大大指導 感恩之至

---

原碼:


UseBlkName:='上市股票'; //設定選用板塊

SetMaxStkNum:=30;  //設定選出數量

UseDIR:=1; //設定排序方向 0.升序 1.降序



BlkStkNum:=STKCOUNT(UseBlkName);

if BlkStkNum=0 then exit;

RdNum:=0;  //有效商品數

VARIABLE:RdNo[BlkStkNum]=0;  //原始次序

VARIABLE:UseDatAry[BlkStkNum]=0;

VARIABLE:SortPAry[BlkStkNum]=0;

for SNo:=1 to BlkStkNum do begin

  UseSTK:=STKFROMBLK(UseBlkName,SNo);

  if DYNAINFO2(8,UseSTK)> 0 then begin //檢查總張>0

    RdNum:=RdNum+1; RdNo[RdNum]:=SNo;

    UseDatAry[RdNum]:=DYNAINFO2(14,UseSTK); //導入漲幅數據

    SortPAry[RdNum]:=UseDatAry[RdNum];

  end;

end;

MaxStkNum:=if(RdNum<SetMaxStkNum,RdNum,SetMaxStkNum);

tmp:=SORTPOS(SortPAry,UseDIR,1,RdNum);

SelListStr:='';

for SNo:=1 to MaxStkNum do begin

  UseSTK:=STKFROMBLK(UseBlkName,RdNo[SortPAry[SNo]]);

  SelListStr:=SelListStr+UseSTK+';';

end;

選中:STRFIND(SelListStr,MARKETLABEL+STKLABEL,1)>0;

感謝 總版主的指導，更謝謝在程式列尾端加註說明，這樣對學習幫助很大。
其中一列 ” if DYNAINFO2(8,UseSTK)> 0 then begin //檢查總張>0 “
偶想將”檢查總張>0”改為檢查昨日總張>N張，要如何改，敬請再指導，謝謝！！

感謝 總版主的指導，更謝謝在程式列尾端加註說明，這樣對學習幫助很大。
其中一列 ” if DYNAINFO2(8,UseSTK)> 0 then begin //檢查總張>0 “
偶想將”檢查總張>0”改為檢查昨日總張>N張，要如何改，敬請再指導，謝謝！！

引用:

---

最初由 L0123 發表
感謝 總版主的指導，更謝謝在程式列尾端加註說明，這樣對學習幫助很大。
其中一列 ” if DYNAINFO2(8,UseSTK)> 0 then begin //檢查總張>0 “
偶想將”檢查總張>0”改為檢查昨日總張>N張，要如何改，敬請再指導，謝謝！！

---

引用:

---

最初由 cgjj 發表
目前動態行情並無提供 [昨日總張] 此項
僅用動態行情計算速度可以飛快
若要藉由日線, 去拿昨日總張來算
速度會很慢很慢, 因為要載入一堆商品資料
盤中難以跑的動, 就算能動負擔也太大

---

引用:

---

最初由 L0123 發表
謝謝 總版主的答覆，有些失望，因為昨日總量的數據，對於選股是一重要的元素，一般選股條件都會考慮量的，
如在盤中選股大都會引用昨日量或平均量，盤後則用當日量。
5.1 新版可以解決這樣的問題嗎？

---

引用:

---

最初由 cgjj 發表
會跟博庭建議一下, 看能否加入
(重點是資料源中必需有昨日量, 若沒有我們要做也有問題)

---

引用:

---

最初由 cgjj 發表
目前動態行情並無提供 [昨日總張] 此項
僅用動態行情計算速度可以飛快
若要藉由日線, 去拿昨日總張來算
速度會很慢很慢, 因為要載入一堆商品資料
盤中難以跑的動, 就算能動負擔也太大

---

引用:

---

最初由 Touareg_Smart 發表
請問版主，若我的需求是昨日漲幅前30名，但並不需要在盤中
去做計算，那該如何去修改程式?

因為DYNAINFO並不是昨日的行情資料，然若想得到昨日每支股票的漲幅並放進array，似乎又會語法錯誤，請問該如何解決又或有其它方式? 謝謝版主...

(UseDatAry[RdNum]:=Ref("UseSTK$Close" - "UseSTK$Open" / "UseSTK$Opem), 1);

---