| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 684 人关注过本帖
标题:一行数组中连号情况应该怎么写?
只看楼主 加入收藏
fengmh
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2018-3-18
结帖率:92.31%
  已结贴   问题点数:20  回复次数:9   
一行数组中连号情况应该怎么写?

在EXCELL中公式=SUM(COUNTIF(B2:G2,B2:G2+1))就可轻松分析出一行中数据连号情况,
在dbf表中要如何更新连号情况?
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 行数 数据 dbf 表中 更新 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2018-07-04 07:10
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:218
帖 子:6810
专家分:30147
注 册:2014-5-20
  得分:0 
1 2 4 6 7 8 这样连号算多少  
2018-07-04 07:34
gs2536785678
Rank: 8Rank: 8
等 级:贵宾
威 望:18
帖 子:325
专家分:964
注 册:2017-7-16
  得分:5 
CLEAR
IF NOT USED("SSQ")
USE Ë«é«Çò IN 0 ALIAS ssq
ENDIF
SELECT ssq
x=fCOUNT()
FOR i=1 TO RECCOUNT()
GO i
REPLACE á¬oÅ WITH fssq(x,i)
ENDFOR
BROWSE
RETURN
CLOSE TABLES all

FUNCTION fssq
PARAMETERS x,i
PRIVATE s,u
s=0
FOR u=3 TO x-1
fld1=FIELD(u)
fld2=FIELD(u-1)
    IF &fld1=&fld2+1
    s=s+1
    ENDIF
ENDFOR
RETURN s
ENDFUNC


   
2018-07-04 08:59
gs2536785678
Rank: 8Rank: 8
等 级:贵宾
威 望:18
帖 子:325
专家分:964
注 册:2017-7-16
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2018-07-04 09:00
fengmh
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2018-3-18
  得分:0 
回复 2楼 吹水佬
算2个连号
2018-07-04 11:30
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:99
帖 子:2619
专家分:6511
注 册:2015-3-25
  得分:15 
** 测试数据
create cursor 彩票(开奖日期 C(8),红球1 I,红球2 I,红球3 I,红球4 I,红球5 I,红球6 I,连号 I)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018067',1,2,3,4,15,18,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018068',8,9,10,11,12,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018069',6,7,8,9,10,11,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018070',4,9,15,16,19,27,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018071',2,5,6,13,16,19,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018072',11,16,19,22,25,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018073',2,9,14,15,16,23,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018074',9,11,14,20,27,30,0)
insert into 彩票(开奖日期,红球1,红球2,红球3,红球4,红球5,红球6,连号) values('2018075',7,9,12,13,22,24,0)

select 彩票
brow
** 扫描表
scan
  scatter fields 红球1,红球2,红球3,红球4,红球5,红球6 to myAry &&把当前记录放到数组,然后排序数组
  asort(myAry)
  lh=0
  for i=1 to 5
      if myAry[i]=myAry[i+1]-1 &&第i位与第i+1位比较,第i位=第i+1位-1,计数1次
         lh=lh+1
      endif
  endfor
  repl 连号 with lh
endscan

brow
2018-07-04 16:45
红星二锅头
Rank: 8Rank: 8
等 级:贵宾
威 望:44
帖 子:467
专家分:695
注 册:2016-8-25
  得分:0 
如果有两组连号的,怎么处理,比如:
1,2,3,4,7,8
1-4,7-8 连号,,,

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2018-07-04 19:49
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:197
帖 子:7877
专家分:19523
注 册:2012-2-5
  得分:0 
楼主所说的连号是指二连号(两个相连的号)

坚守VFP最后的阵地
2018-07-04 20:48
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:99
帖 子:2619
专家分:6511
注 册:2015-3-25
  得分:0 
以下是引用sdta在2018-7-4 20:48:12的发言:

楼主所说的连号是指二连号(两个相连的号)

没错,所以6楼的能满足要求,对数据排序,是为了防止数据不是有序的,然后,只要相邻的是连号,就计数
2018-07-05 08:53
schtg
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:34
帖 子:800
专家分:1138
注 册:2012-2-29
  得分:0 
学习拉,谢谢!
2018-07-05 10:06
快速回复:一行数组中连号情况应该怎么写?
数据加载中...
 
   



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

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