我想用指標參數來設定某根K線的序號，再用此參數值(K線序號值)來取得這根K線 的數據值 (例如：CLOSE or DATE)。
可是，我不知道該怎麼寫？可不可以幫我一下，謝謝！

例如：1要取得從頭數來第500根K線的CLOSE值。
2要取得從頭數來第500根K線的日期值。

GetNo:=500;
UseCC:C;
UseDE:date;
<%
GetNo=FFL.VarData("GetNo")
UseCC=FFL.VarData("UseCC")
UseDE=FFL.VarData("UseDE")
StKNo=FFL.VarStartIndex("UseCC")
EndKNo=ubound(UseCC)
for i=StKNo to EndKNo
UseCC(i)=UseCC(GetNo-1)
UseDE(i)=UseDE(GetNo-1)
next
FFL.VarData("UseCC")=UseCC
FFL.VarData("UseDE")=UseDE
%>

cgjj 總版主：
我把它套上去測試，K線的部份卻看不到了！(垂直作標範圍很大)。

引用:

---

最初由 cgjj 發表
GetNo:=500;
UseCC:C;
UseDE:date;
<%
GetNo=FFL.VarData("GetNo")
UseCC=FFL.VarData("UseCC")
UseDE=FFL.VarData("UseDE")
StKNo=FFL.VarStartIndex("UseCC")
EndKNo=ubound(UseCC)
for i=StKNo to EndKNo
UseCC(i)=UseCC(GetNo-1)
UseDE(i)=UseDE(GetNo-1)
next
FFL.VarData("UseCC")=UseCC
FFL.VarData("UseDE")=UseDE
%>

---

引用:

---

最初由 aswjc 發表
我想用指標參數來設定某根K線的序號，再用此參數值(K線序號值)來取得這根K線 的數據值 (例如：CLOSE or DATE)。
可是，我不知道該怎麼寫？可不可以幫我一下，謝謝！

例如：1要取得從頭數來第500根K線的CLOSE值。
2要取得從頭數來第500根K線的日期值。

:( :(

---

这〔　〕 在3.5版是视为普通文字，
可接受为变量的名称；
而在4.0版则是保留字，被内建为已被下定义了，不被接受为变量的名称．
这样就知道3.5版可不可用了．

如果是飞狐的用户，
会了解3.5版与4.0版有那些部份的不同，
某些潜水族就不太了解了．

总版主用的是VBScript语法，不管那一版狐狸，都会接受的．

引用:

---

最初由 aswjc 發表
cgjj 總版主：
我把它套上去測試，K線的部份卻看不到了！(垂直作標範圍很大)。

---

test OK!
謝謝，cgjj 總版主及兩位大大！

引用:

---

最初由 cgjj 發表
因為有繪出線, 所以當價位差距大時就會這樣

將這兩行
UseCC:C;
UseDE:date;

換為這兩行即可解決(不繪出線)
UseCC:C LINETHICK0;
UseDE:date LINETHICK0;

---

若已知 K 線主圖上 , 當頁 K 棒起始序號 SYSPARAM(2) ,
K 棒終止序號 SYSPARAM(3) , 請問如何利用上面公式改寫 ?

敬請 cgii 總版主幫忙 ! (因不熟悉 VB 語言)

引用:

---

最初由 fox1688 發表
若已知 K 線主圖上 , 當頁 K 棒起始序號 SYSPARAM(2) ,
K 棒終止序號 SYSPARAM(3) , 請問如何利用上面公式改寫 ?

敬請 cgii 總版主幫忙 ! (因不熟悉 VB 語言)

---

感謝 cgjj 總版主 迅速的解答 , 只是我的上述問題 : 少問了 期間的 最高價 & 最低價 如何求得 ?

引用:

---

最初由 fox1688 發表
感謝 cgjj 總版主 迅速的解答 , 只是我的上述問題 : 少問了 期間的 最高價 & 最低價 如何求得 ?

---

原碼:


GetNo1:=SYSPARAM(2);

GetNo2:=SYSPARAM(3);

UseCC1:C LINETHICK0;

UseDE1:date LINETHICK0;

UseCC2:C LINETHICK0;

UseDE2:date LINETHICK0;

MaxH:High LINETHICK0;

MinL:Low LINETHICK0;

<%

GetNo1=FFL.VarData("GetNo1")

UseCC1=FFL.VarData("UseCC1")

UseDE1=FFL.VarData("UseDE1")

GetNo2=FFL.VarData("GetNo2")

UseCC2=FFL.VarData("UseCC2")

UseDE2=FFL.VarData("UseDE2")

MaxH=FFL.VarData("MaxH")

MinL=FFL.VarData("MinL")

StKNo=FFL.VarStartIndex("UseCC1")

EndKNo=ubound(UseCC1)

ChkMaxH = 0: ChkMinL = MinL(GetNo1)

for i = GetNo1-1 to GetNo2-1

  if MaxH(i)>ChkMaxH then ChkMaxH=MaxH(i)

  if MinL(i)<ChkMinL then ChkMinL=MinL(i)

next

for i=StKNo to EndKNo

  UseCC1(i)=UseCC1(GetNo1-1)

  UseDE1(i)=UseDE1(GetNo1-1)

  UseCC2(i)=UseCC2(GetNo2-1)

  UseDE2(i)=UseDE2(GetNo2-1)

  MaxH(i)=ChkMaxH

  MinL(i)=ChkMinL

next

FFL.VarData("UseCC1")=UseCC1

FFL.VarData("UseDE1")=UseDE1

FFL.VarData("UseCC2")=UseCC2

FFL.VarData("UseDE2")=UseDE2

FFL.VarData("MaxH")=MaxH

FFL.VarData("MinL")=MinL

%>

感謝解答 - 不勝感激 !!