引用:

000558(莱茵置业)    百智投(Bezant)资讯   资料截至日期:2004.10.25
一、========`最新资料`========
最新摊薄指标：(摊薄日期:2004年09月30日)
─────────┬───────────────────────────
项目              │最新(摊薄) 2004三季度     增长率 2003三季度 2004年中期
─────────┼───────────────────────────
每股收益(元)      │     0.065      0.065    147.10%     -0.138     -0.004
每股净资产(元)    │     1.219      1.219     31.22%      0.929      1.149
每股公积金(元)    │     0.442      0.442      7.02%      0.413      0.442
每股未分配利润(元)│    -0.224     -0.224     53.72%     -0.484     -0.293
净资产收益率(％)  │         -      5.360    136.14%    -14.830     -0.380

希望编一个--能提取f10资料中的每次公布的每股每股收益数据公式。
以上为f10内容，请参考。谢谢！！

发一个个股资料的 f10 文件

大致方法这样

直接将 TXT 的文件传到论坛来
我要打开文件，计算一下具体空格的数量

好的，谢谢版主！！！

复制内容到剪贴板

代码:

{基于百智投(Bezant)资讯，因为F10资料经常变动，所以在变动后，需要对应调整
查找F10中每股收益的位置}
p1:=F10FIND('每股收益(元)      │',1);
{取每股收益一行的数据资料}
mgsytx:=F10TEXT(p1,0);
{分别取出不同位置的数据}
mgtx1:=LTRIM(STRMID(mgsytx,21,10));//最新
mgtx2:=LTRIM(STRMID(mgsytx,31,11));//04三季
mgtx3:=LTRIM(STRMID(mgsytx,42,11));//增长率
mgtx4:=LTRIM(STRMID(mgsytx,53,11));//03三季
mgtx5:=LTRIM(STRMID(mgsytx,64,11));//04年中
{转换字符串为数值}
mg1:=STRTONUM(mgtx1);mg2:=STRTONUM(mgtx2);
mg5:=STRTONUM(mgtx5);mg4:=STRTONUM(mgtx4);
{显示方法一：解盘显示每股收益变动}
EXPLAIN(p1>0,'最新摊薄：'+mgtx1);
EXPLAIN(p1>0,'04三季度：'+mgtx2);
EXPLAIN(p1>0,'04年中期：'+mgtx5);
EXPLAIN(p1>0,'03三季度：'+mgtx4);
EXPLAIN(p1>0,'增 长 率：'+mgtx3);
{显示方法二：对应显示在 K 线上}
DRAWNUMBER(BARPOS=DATACOUNT,CLOSE,mg1,3),ALIGN4;
DRAWNUMBER(DATE=1040930,CLOSE,mg2,3),ALIGN4;
DRAWNUMBER(DATE=1040630,CLOSE,mg5,3),ALIGN4;
DRAWNUMBER(DATE=1030930,CLOSE,mg4,3),ALIGN4;

附公式（主图）

请帮忙按上边的方法按图做出公式。并请指导用f10采集功能采集图中的内容和做公式的方法。

引用:

qxz 于 2004-11-3 06:56 PM 写道:
请帮忙按上边的方法按图做出公式。并请指导用f10采集功能采集图中的内容和做公式的方法。

不错不错，又学了一样

引用:

hx817 于 2004-11-2 10:37 PM 写道:
[code]
{基于百智投(Bezant)资讯，因为F10资料经常变动，所以在变动后，需要对应调整
查找F10中每股收益的位置}
p1:=F10FIND('每股收益(元)      │',1);
{取每股收益一行的数据资料}
mgsytx:=F10TEXT(p1,0); ...

请问hx817老师：


mgtx1:=LTRIM(STRMID(mgsytx,21,10));//最新
mgtx2:=LTRIM(STRMID(mgsytx,31,11));//04三季
mgtx3:=LTRIM(STRMID(mgsytx,42,11));//增长率
mgtx4:=LTRIM(STRMID(mgsytx,53,11));//03三季
mgtx5:=LTRIM(STRMID(mgsytx,64,11));//04年中


以上代码中，mgsytx,后面的数字应该怎样取？
谢谢！

有的股票财务公告时间不一样,在上面就看不见,是0,
如何能表达取得除权数据的时间
把下面的时间改成'除权时间'
DRAWNUMBER(DATE=1040930,CLOSE,mg2,3),ALIGN4;
DRAWNUMBER(DATE=1040630,CLOSE,mg5,3),ALIGN4;
DRAWNUMBER(DATE=1030930,CLOSE,mg4,3),ALIGN4;

请帮忙按上边的方法按图做出公式。并请指导用f10采集功能采集图中的内容和做公式的方法。

请问hx817老师：


mgtx1:=LTRIM(STRMID(mgsytx,21,10));//最新
mgtx2:=LTRIM(STRMID(mgsytx,31,11));//04三季
mgtx3:=LTRIM(STRMID(mgsytx,42,11));//增长率
mgtx4:=LTRIM(STRMID(mgsytx,53,11));//03三季
mgtx5:=LTRIM(STRMID(mgsytx,64,11));//04年中


我是想问上面的21、31、42、64等数字代表什么？

请帮忙按上边的方法按图做出公式。并请指导用f10采集功能采集图中的内容和做公式的方法

引用:

osir 于 2004-11-4 15:56 写道:
请问hx817老师：

别名: 字符串的中部
所属类别: 字符串函数  参数数量: 3

取得字符串的中间部分
用法:
STRMID(STR,N,M),返回字符串STR的第N个字符开始的长度为M个字符的字符串,M为0则取到末尾
例如:
EXPLAIN(1, STRMID('ABCDEF',3,3))
输出CDE

请帮忙按上边的方法按图做个公式。并请指导用f10采集功能采集图中的内容和做公式的方法 。如图：

引用:

qxz 于 2004-11-5 07:01 写道:
请帮忙按上边的方法按图做个公式。并请指导用f10采集功能采集图中的内容和做公式的方法 。如图：

这是什么 F10 格式的资料？

鹏搏资讯F10资料

引用:

hx817 于 2004-11-4 10:46 PM 写道:
别名: 字符串的中部
所属类别: 字符串函数  参数数量: 3

取得字符串的中间部分
用法:
STRMID(STR,N,M),返回字符串STR的第N个字符开始的长度为M个字符的字符串,M为0则取到末尾
例如:
EXPLAIN(1, STRMID('A ...

谢谢！！！

引用:

qxz 于 2004-11-5 13:09 写道:
鹏搏资讯F10资料

参考：

复制内容到剪贴板

代码:

{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整}
jjstar:=F10FIND('十一、基金持股',1);//定位数据开始
jjend:=F10FIND('截止日期：2004-06-30',jjstar);//定位数据结束

jj:=F10TEXT(jjstar,jjend-jjstar);//取最新基金持股数据
EXPLAIN(jjstar>1,jj);//解盘显示

8c

引用:

hx817 于 2004-11-5 05:40 PM 写道:
参考：
[code]
{基于鹏搏资讯，因为F10资料鹏搏资讯经常变动，所以在变动后，需要对应调整}
jjstar:=F10FIND('十一、基金持股',1);//定位数据开始
jjend:=F10FIND('截止日期：2004-06-30',jjstar);//定位数据结束

j ...

谢谢版主,发一个鹏搏资讯,基金持股的选股公式。

谢谢!谢谢!