第二步，开始查找所需资料，写下：GDT1:=F10TEXT(GDW1,26); ——参数26的确定是数出一行有13个汉字，每个汉字占两个字节的位置。这一句的冒号后面一定要加上等号（因为这时变量中是字符串而非数值），否则会造成“输出数据类型非法”的提示，在用绘图函数写下一句临时语句：DRAWTEXT(SYSPARAM(2)=BARPOS,5,GDT1); 这样再保存后就可以在图中看到所取得的字符串。
第三步，调整所取的字符串：将第二步语句中的GDW1后移3个字节，改成GDT1:=F10TEXT(GDW1+3,26)后点击“应用于图”，可看到修改后的变化，如果仍不合适就再次调正，直到显示正确，至此第一家流通股东选取完毕。然后返回到GDW1下面，加上一行写下：GDW2:F10FIND('2',GDW1+75),LINETHICK; 在GDT1下面写下：GDT2:=F10TEXT(GDW2+3,26); 然后把DRAWTEXT(SYSPARAM(2)=BARPOS,5,GDT1)里面的GDT1改为GDT2，查看第二家股东的选取情况。
如果看到截取的流通股东名称并不完整，需要继续完善，添加语句如下：
W12:=GDW2-GDW1;
IF W12>120 THEN BEGIN
W:=F10FIND('│',GDW1+75),LINETHICK;
T:=F10TEXT(W+2,26);
GDT1:=RTRIM(GDT1)+LTRIM(T);
END;
这里使用了去除尾部和开始空格的函数，目的是为了使字符串的衔接更加严密。
此时的公式语句为：
GDW0:=F10FIND('【十大流通股东】',30000);
GDW1:F10FIND('1',GDW0+100),LINETHICK;
GDW2:F10FIND('2',GDW1+75),LINETHICK;
W1:=GDW2-GDW1;
GDT1:='1.'+F10TEXT(GDW1+3,26);
GDT2:=F10TEXT(GDW2+3,26);
IF W12>120 THEN BEGIN
W:=F10FIND('│',GDW1+75),LINETHICK;
T:=F10TEXT(W+2,26);
GDT1:=RTRIM(GDT1)+LTRIM(T);
END;
DRAWTEXT(SYSPARAM(2)=BARPOS,5,T);
DRAWTEXT(SYSPARAM(2)=BARPOS,4,GDT1);
0,COLORBLACK;
这时我们发现，如果十家流通股东的查找全部这样写，实际上有很多重复的语句，怎样简化呢？——可以使用循环语句。
在第一行前面写上VARIABLE:GDW[10]=0,GDT[10]='STR'; 将其中的部分变量设定为数组，前半部分为：
VARIABLE:GDW[10]=0,GDT[10]='STR';
GDW0:=F10FIND('【十大流通股东】',30000);
GDW[1]:=F10FIND('1',GDW0+100),LINETHICK;
GDT[1]:='1.'+F10TEXT(GDW[1]+3,26);
FOR j=2 TO 10 DO BEGIN
XH:=RTRIM(LTRIM(NUMTOSTR(j,0)));//将j转换为字符的序号
GDW[j]:=F10FIND(' '+XH+'│',GDW[1]+75);//取字符串所在位置
IF j<10 THEN GDT[j]:=XH+'.'+F10TEXT(GDW[j]+4,26);//取字符串
END;
后面的补充字符串部分变为：【macd.org.cn 收集整理】
//补未取全的字符串
FOR i=1 TO 9 DO BEGIN
WT:=GDW[i+1]-GDW[i];//计算前后股东位置的差
IF WT>120 THEN BEGIN//当差超过一定标准时执行下面语句
TW:=F10FIND('│',GDW[i]+75),LINETHICK;//确定所差字符的起点位置
T:=F10TEXT(TW+2,26);//截取所差字符
GDT[i]:=RTRIM(GDT[i])+LTRIM(T);//前后字符合并
END;
END;
并通过逐一改变DRAWTEXT(SYSPARAM(2)=BARPOS,4,GDT[10])显示语句中GDT下标的数值观察结果。
