| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1138 人关注过本帖
标题:给狐狸们出个小题:表记录及函数操作
只看楼主 加入收藏
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
回复 18楼 qjbzjp
不符合要求,要能处理如:1,3-9,12,16,18-21,56 这样的录入 。


举个例子:像做 打印表单:输入记录范围就可打印了,对于不存在的记录(输入错误的)进行提示,并且把每次打印的时间进行记录。
要求:表单中只能有一个text,和一个command按钮。输入连续和不连续的记录分别用半角的“-”号和“,”号分开。

[ 本帖最后由 qshuju 于 2013-2-27 17:08 编辑 ]
2013-02-27 17:04
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
有兴趣的朋友看看这上面的回答:http://bbs.
2013-03-01 17:33
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
来晚了,虽然结贴了,也附上一段吧(不知是否符合楼主要求)vfp 9.0 运行
** 建立一张允许打印的记录序号表。
S="7,8,10,-,-80,70-60,kk-y,40-50,101,30-j-60,104,张=50,@,#," && 注:文本框内容中,假如也有许多输入错误
Clear
Close all
Set safety off
set talk off
CREATE cursor 表 (记录号 n(10,0), 标记 c(10))
nlen=ALINES(M,S,",") && 文本框输入后,以逗号分行,总共分的行数,每行内容存入 M 中

    STORE SECONDS() TO tm && 开始时间
for n=1 to nlen
    c1=alltrim(GETWORDNUM(M(n),1,"-")) && 每行的前部
    c2=alltrim(GETWORDNUM(M(n),2,"-")) && 每行的后部

       if VAL(M(n))<1 && 不是数字时
          errmes()
       else
          if at("-",M(n))>0 and (VAL(c1)<1 or VAL(c2)<1) && 每行中如果存在 "-"时
             errmes()
          else
              if at("-",M(n))>0 && 行中存在 "-" 时
                 if c1>c2 && 页号从大到小时,返回来 比如: 70-60
                   n1=VAL(c2)
                   n2=VAL(c1)
                 else
                   n1=VAL(c1)
                   n2=VAL(c2)
                 endif
                 for t=n1 to n2 && 像 60-70 这样的数据行,从60一直排到70
                     insert into 表(记录号,标记) value(n1,"*")   
                     n1=n1+1
                 endfor
              else
                    insert into 表(记录号,标记) value(VAL(M(n)),"*")   
              endif
           endif
        endif   
endfor
        =MESSAGEBOX("耗时:"+STR(SECONDS()-tm,4,2)+"秒",64,"")
        brow
close all                     
return
****************
 procedure errmes
          =MESSAGEBOX("输入的字符: "+M(n)+" 不合格",64,"")
 endproc


[ 本帖最后由 qingfameng 于 2013-3-2 12:04 编辑 ]
2013-03-02 03:51
快速回复:给狐狸们出个小题:表记录及函数操作
数据加载中...
 
   



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

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