版主對不起因我沒說清楚,我是想若要透過
"單季每股盈餘"及
"年度每股盈餘"
來選股作為參考
而非單單按 [F10] 功能一個一個的查看

引用:

---

最初由 jeng 發表
版主對不起因我沒說清楚,我是想若要透過
"單季每股盈餘"及
"年度每股盈餘"
來選股作為參考
而非單單按 [F10] 功能一個一個的查看

---

非常謝謝版主熱心的回覆,
我是要抓F10中的
單季每股盈餘
2008/1 3.4元
2007/4 3.8元
2007/3 3.1元
2007/2 2.0元
年度每股盈餘
2007 10.6元
2006 7.1元
2005 7.3元
2004 3.1元
的各種數字

引用:

---

最初由 jeng 發表
非常謝謝版主熱心的回覆,
我是要抓F10中的
單季每股盈餘
2008/1 3.4元
2007/4 3.8元
2007/3 3.1元
2007/2 2.0元
年度每股盈餘
2007 10.6元
2006 7.1元
2005 7.3元
2004 3.1元
的各種數字

---

還是沒有說明你要如何用來選股?
例如:
用最近一次的單季每股盈餘來選股

非常不好意思,沒有表達清楚,
我是要"單季每股盈餘"的"所有資料,"可以知道前4季的"總"獲利
也要"年度每股盈餘 "的"所有資料,"可以知道以往的獲利情形

引用:

---

最初由 jeng 發表
非常不好意思,沒有表達清楚,
我是要"單季每股盈餘"的"所有資料,"可以知道前4季的"總"獲利
也要"年度每股盈餘 "的"所有資料,"可以知道以往的獲利情形

---

原碼:


//若值為 -99999 表示無數據

PN:=F10FIND('單季每股盈餘',1);

VARIABLE:GP[4]=0,單季[4]:=-99999;

if PN<>-1 then begin

  USTR:=F10TEXT(PN,0); SP:=0;

  for i=1 to 4 do begin

    SP:=STRFIND(USTR,'/',SP+1);

    GP[i]:=SP;

  end;

  for i=1 to 4 do begin

    SP:=STRFIND(USTR,'元',GP[i]+1);

    if SP>0 and i<4 then begin

       if SP>GP[i+1] then SP:=0;

    end;

    if SP>0 then begin

      單季[i]:=STRTONUM(STRMID(USTR,GP[i]+2,SP-2));

    end;

  end;

end;

單1:單季[1];

單2:單季[2];

單3:單季[3];

單4:單季[4];

//若值為 -99999 表示無數據
PN:=F10FIND('年度每股盈餘',1)+15;
VARIABLE:GP[4]=0,年度[4]:=-99999;
if PN<>-1 then begin
USTR:=F10TEXT(PN,0); SP:=0;
for i=1 to 4 do begin
年度[i]:=STRTONUM(STRMID(USTR,(i-1)*16+5,7));
end;
end;
年1:年度[1];
年2:年度[2];
年3:年度[3];
年4:年度[4];

非常謝謝版主的熱心回答,真是感激不盡