南客 2003-9-16 19:20
遍历板块股票代码
[code]bk:='A股板块'; //bk赋值为字符串'A股板块'
stksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[stksum]=''; //定义一个字符串数组用于记录股票代码，元素个数为stksum,初始值为空
for k=1 to stksum do //以下循环,循环计数器k从1开始每次递增1，直到stksum
begin
dm:=stkfromblk(bk,k);//板块bk中第k只证券的证券代码,赋值到字符串变量dm
dmstr[k]:=dm; //股票代码，记录到字符串数组dmstr的第k个元素中
end;
//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]); //在解盘中，输出深圳A股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,bk+'第4只股票的代码是：'+dmstr[4]);
EXPLAIN(1,stkname+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,bk+'共有股票:'+numtostr(stksum,0)+'只');[/code]
廊桥 2003-9-16 19:20
飞狐新增函数应用：如何遍历板块股票代码
你是专家，怎么不发表点有特点和新意的公式…………
努力吧……
jasonkguan 2003-9-16 19:20
飞狐新增函数应用：如何遍历板块股票代码
[QUOTE][i]最初由 廊桥 发布[/i]
[B]你是专家，怎么不发表点有特点和新意的公式…………
努力吧…… [/B][/QUOTE]
南客老师工作很忙，还抽出时间教大家如何编写公式，意在提高大家的公式水平，以实现大家各自不同的炒股思路，而不是编几个所谓的高成功率公式来博取大家的眼球。
只有自己掌握了技巧，借助飞狐强大的公式平台，才可以随心所欲的发挥。公式再好，如果不能理解公式的思路，一样出不了好的效果。
你问问飞狐的正版用户，没有一个不对南客老师心怀感激和尊敬的，这是南客老师长时间无私奉献的最有力的说明！
不苛求你有这么高的觉悟，起码别在一边说风凉话！
fjxxy 2003-9-16 19:20
飞狐新增函数应用：如何遍历板块股票代码
南客好样的。谢谢。
zml 2003-9-16 19:20
飞狐新增函数应用：如何遍历板块股票代码
[QUOTE][i]最初由 jasonkguan 发布[/i]
[B]南客老师工作很忙，还抽出时间教大家如何编写公式..
以下省略...... [/B][/QUOTE]
:yes:
fujiu 2003-9-16 19:20
飞狐新增函数应用：如何遍历板块股票代码
[QUOTE][i]最初由 jasonkguan 发布[/i]
[B]南客老师工作很忙，还抽出时间教大家如何编写公式..
以下省略...... [/B][/QUOTE]
:yes:
pengyou 2005-2-28 12:47
南客老师 水平高 是大家公认的
最主要的是：每次问题 都能及时回复我
是我没有想到的
我想不论人品 水平 都是我们的老师
谢谢您
老师
hecunli 2005-5-28 15:56
请教一个控制语句的问题
南客先生:
您好!
请教一个控制语句的问题。
我试编一个控制语句，
a:=1;
if
A>1
then
b:=1
else
b:=0
;
B:b;
可以通过;
但把条件改为趋势线转盘，
a:=if(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),1,0);
if
a=1
then
b:=1
else
b:=0
;
B:b;
则不能通过，显示: 行4: 语法错误
不知是什么问题，特向您请教。
谢谢!
[email]hecunli@21cn.com[/email]
lyk 2006-5-26 17:22
"南客老师工作很忙，还抽出时间教大家如何编写公式，意在提高大家的公式水平，以实现大家各自不同的炒股思路，而不是编几个所谓的高成功率公式来博取大家的眼球。
只有自己掌握了技巧，借助飞狐强大的公式平台，才可以随心所欲的发挥。公式再好，如果不能理解公式的思路，一样出不了好的效果。
你问问飞狐的正版用户，没有一个不对南客老师心怀感激和尊敬的，这是南客老师长时间无私奉献的最有力的说明！
不苛求你有这么高的觉悟，起码别在一边说风凉话！"
Tony2001 2007-9-13 11:46
谢谢！！！
看了老师的代码受益颇深，再请问老师如何在DLL中遍历股票，先谢谢啦！
[[i] 本帖最后由 Tony2001 于 2007-9-13 12:22 编辑 [/i]]
joneslee 2007-11-17 09:35
如果有许多股票。如何一一列出。