标题：[求助]排列引用问题

1楼

PanS 发表于：2012/11/8 15:13:26

K1:TINSORT('A1','KDJ.K',1)；

横向排列里有一个MAX值和一个MIN值，我要这2个值呢？

比如：KDJ.K

1 K值的排列有一个最大值与一个最小值，我需要这2个值如何引用。

2 我要得到K值排列最大值的品种代码与最小值的品种代码如何引用。

2楼

jinzhe 发表于：2012/11/8 15:48:36

排列之后输出a1[1]吧

3楼

PanS 发表于：2012/11/8 16:00:34

详细点啊老大

4楼

jinzhe 发表于：2012/11/8 16:24:21

这个等高人来解释吧，这个函数解释看不明白，光说了如何使用，没说使用之后的如何调用变化后的数据

5楼

PanS 发表于：2012/11/8 16:48:24

KMAX:TINSORT('A1','KDJ.K',1)；

KMIN :TINSORT('A1','KDJ.K',0)；

If KMAX=1 then maxpz:=STKNAME;
if KMIN=1 then minpz:=STKNAME;

DEBUGFILE('E:\debugfile.txt',MAXPZ,1);
DEBUGFILE('E:\debugfile.txt',MINPZ,1);// 品种得到了输出可以查看

Maxzz:stkindi('maxpz','KDJ.K',0,6);
Minzz:stkindi('minpz','KDJ.K',0,6); //但是这里的值又引用不出来

6楼

RogarZ 发表于：2012/11/8 17:46:52

K1:TINSORT('A1','KDJ.K',1)；

例子里一共5个品种，最大的K1=1 最小的K1=5

If K1=1 then maxpz:=STKNAME;
if K1=5 then minpz:=STKNAME;

DEBUGFILE('E:\debugfile.txt',MAXPZ,1);
DEBUGFILE('E:\debugfile.txt',MINPZ,1);// 品种得到了输出可以查看

Maxzz:stkindi('maxpz','KDJ.K',0,6);
Minzz:stkindi('minpz','KDJ.K',0,6); //但是这里的值又引用不出来

debugfile这个函数的目的是为了后台的调试只能写文件，

你必须得去读文件才能得到值啊~ PEL不支持读文件只有VBA才能实现

所以红字部分是无效的

7楼

PanS 发表于：2012/11/12 11:01:59

了解。VBA扩展才能实现。TINSORT函数还是达不到VBA扩展的效果。

共7 条记录, 每页显示 10 条, 页签: [1]