joneslee 2007-11-17 10:11
如果有100个股票。如何用循环写出？
BKs:=STKCOUNT('石油');
variable:DM[BKs]='';
for k=1 to BKs do begin
码:=STKFROMBLK(BK,k);
Dm[k]:=STRRIGHT(码,6);
if BKs>=1 then p1:STKINDI(Dm[1],'P.p',0,-1);
if BKs>=2 then p2:STKINDI(Dm[2],'P.p',0,-1);
if BKs>=3 then p3:STKINDI(Dm[3],'P.p',0,-1);
[color=Red]如果有100个股票。如何用循环写出？[/color]
joneslee 2007-11-17 13:04
[quote]原帖由 [i]bajatje[/i] 于 2007-11-17 12:36 发表 [url=http://bbs.fjfox.com/redirect.php?goto=findpost&pid=372950&ptid=42180][img]http://bbs.fjfox.com/images/common/back.gif[/img][/url]
写100条 [/quote]
太可怕了。
joneslee 2007-11-26 19:48
真的没有简单的方法？