| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1069 人关注过本帖
标题:[求助]这样截取和统计程序应该怎么写?
只看楼主 加入收藏
zyz995462
Rank: 2
等 级:论坛游民
帖 子:22
专家分:20
注 册:2004-12-5
收藏
得分:0 
上面程序我是在记事本里凭着感觉写的,没调试过,可能有错误,但思路就是这样的.你参考一下.
2010-10-09 14:08
wuvdong
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-10-8
收藏
得分:0 
非常感谢zyz995462老师,非常感谢!我用VF用了很久一直都是排序筛选比较简单的表操作命令,还没用过程序,谢谢您!
2010-10-09 15:52
zyz995462
Rank: 2
等 级:论坛游民
帖 子:22
专家分:20
注 册:2004-12-5
收藏
得分:0 
怎么用程序明白吗,先在命令窗口里建一个PRG文件,比如命令
modify  command  test
就建立了一个test.prg,其实是文本文件.把我的程序复制上去保存
然后在命令窗口 do test 就执行了.
没用过程序...以前DOS的批处理明白吧,就是这样顺序执行的.当然里面有循环语句...
这是小程序.
大型程序还编译成EXE,脱离VFP环境直接运行.
2010-10-09 15:58
wuvdong
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-10-8
收藏
得分:0 
我试了一下 成功了 幸亏你带了注释,谢谢你!

有几个地方我看不明白,没用过那样的语句!谢谢你!
2010-10-09 15:59
zyz995462
Rank: 2
等 级:论坛游民
帖 子:22
专家分:20
注 册:2004-12-5
收藏
得分:0 
找本入门的书看一下就明白了,很简单的.有以前foxbase基本的,学VFP太简单了.用VFP就要学习编程序.否则当个高级计算器哦
2010-10-09 16:03
wuvdong
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-10-8
收藏
得分:0 
回复 15楼 zyz995462
找了一本 VFP6.0的 往后要多学习!有问题我多来论坛!谢谢
2010-10-09 16:06
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
没理解“js字段需要填充01表中5项abcd的均分”,是5个数相加再除以5吗?如果是的话,自己改一下吧。
没仔细验证,楼主自己验证吧。
USE s:\01
USE s:\bj in 0
ZAP in bj
STORE 0 to s1,s2,s3,s4,s5,s6,s7,s8
FOR i=1 to RECCOUNT()
    STORE 0 to n1,n2,n3,n4,n5,n6,n7,n8
    GO i
    FOR j=1 to 5
        n1=n1+ctd(SUBSTR(abcd,0+j,1))
        n2=n2+ctd(SUBSTR(abcd,5+j,1))
        n3=n3+ctd(SUBSTR(abcd,10+j,1))
        n4=n4+ctd(SUBSTR(abcd,15+j,1))
        n5=n5+ctd(SUBSTR(abcd,20+j,1))
        n6=n6+ctd(SUBSTR(abcd,25+j,1))
        n7=n7+ctd(SUBSTR(abcd,30+j,1))
        n8=n8+ctd(SUBSTR(abcd,35+j,1))
    NEXT
    APPEND BLANK in bj
     REPLACE j1 with n1,j2 with n2,j3 with n3,;
              j4 with n4,j5 with n5,j6 with n6,;
              j7 with n7,j8 with n8 in bj
    s1=s1+n1
    s2=s2+n2
    s3=s3+n3
    s4=s4+n4
    s5=s5+n5
    s6=s6+n6
    s7=s7+n7
    s8=s8+n8
NEXT
s1=STR(s1/RECCOUNT(),5,2)
s2=STR(s2/RECCOUNT(),5,2)
s3=STR(s3/RECCOUNT(),5,2)
s4=STR(s4/RECCOUNT(),5,2)
s5=STR(s5/RECCOUNT(),5,2)
s6=STR(s6/RECCOUNT(),5,2)
s7=STR(s7/RECCOUNT(),5,2)
s8=STR(s8/RECCOUNT(),5,2)
?s1
?s2
?s3
?s4
?s5
?s6
?s7
?s8

FUNCTION ctd
PARAMETERS x
x=ASC(UPPER(x))
RETURN 85-x-IIF(x=65,0,1)-IIF(x>66,5,0)-IIF(x=68,3,0)

相互学习,互相交流,共同提高。
2010-10-09 17:02
寻H不得
Rank: 4
等 级:业余侠客
威 望:1
帖 子:181
专家分:222
注 册:2010-10-9
收藏
得分:0 
没看懂意思 不过这类应当不太难吧
2010-10-09 22:59
afeng58688
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-11-30
收藏
得分:0 
有用
2012-05-20 19:19
快速回复:[求助]这样截取和统计程序应该怎么写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017860 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved