7518
社区成员
多行数字的筛选
说明：
一行有7组数据每组数据之间已“+”号分开，每行数据已“，”号分开
问题：
在以下多行数据中第1组数据和第6组数据 有连续3行一样的数字的筛选出来,并且前后个留5行。
改如果实现？
例如：
条件1
---------------------------------------------------
01+08+09+14+19+24+26,
01+02+03+05+08+13+26, 第一组有3行都是相同的
01+06+10+18+21+26+30,
显示的结果：
07+09+11+14+17+19+25,
05+10+14+18+19+21+28,
02+06+07+10+12+14+26,
01+04+11+15+24+25+27,
04+12+14+25+26+29+30,
01+08+09+14+19+24+26,
01+02+03+05+08+13+26, 前后个留5行
01+06+10+18+21+26+30,
04+15+17+18+22+24+29,
09+12+15+22+25+27+29,
02+06+10+17+18+27+28,
01+09+13+18+19+22+26,
01+05+06+11+12+26+30,
第6组如果有相同3行数据显示方式跟上面举例是一样显示的
----------------------------------------------------------------------------------------
测试数据
07+09+11+14+17+19+25,
05+10+14+18+19+21+28,
02+06+07+10+12+14+26,
01+04+11+15+24+25+27,
04+12+14+25+26+29+30,
01+08+09+14+19+24+26,
01+02+03+05+08+13+26,
01+06+10+18+21+26+30,
04+15+17+18+22+24+29,
09+12+15+22+25+27+29,
02+06+10+17+18+27+28,
01+09+13+18+19+22+26,
01+05+06+11+12+26+30,
04+05+07+12+20+21+29,
04+05+08+17+24+25+26,
02+08+11+14+16+25+30,
09+10+14+18+23+25+26,
06+13+16+19+20+22+25,
07+12+13+22+23+27+28,
01+05+06+09+24+28+30,
02+04+07+09+13+20+22,
01+11+20+21+24+25+29,
01+10+13+20+27+28+29,
09+12+13+18+19+24+26,
01+02+14+17+18+19+29,
02+04+06+16+18+27+30,
08+11+15+18+26+27+28,
05+09+14+18+22+25+27,
01+03+07+14+18+26+30,
04+12+13+17+19+29+30,
一行有7组数据每组数据之间已“+”号分开，每行数据已“，”号分开
问题：
在以下多行数据中第1组数据和第6组数据 有连续3行一样的数字的筛选出来,并且前后个留5行。
改如果实现？
例如：
条件1
---------------------------------------------------
01+08+09+14+19+24+26,
01+02+03+05+08+13+26, 第一组有3行都是相同的
01+06+10+18+21+26+30,
显示的结果：
07+09+11+14+17+19+25,
05+10+14+18+19+21+28,
02+06+07+10+12+14+26,
01+04+11+15+24+25+27,
04+12+14+25+26+29+30,
01+08+09+14+19+24+26,
01+02+03+05+08+13+26, 前后个留5行
01+06+10+18+21+26+30,
04+15+17+18+22+24+29,
09+12+15+22+25+27+29,
02+06+10+17+18+27+28,
01+09+13+18+19+22+26,
01+05+06+11+12+26+30,
第6组如果有相同3行数据显示方式跟上面举例是一样显示的
----------------------------------------------------------------------------------------
测试数据
07+09+11+14+17+19+25,
05+10+14+18+19+21+28,
02+06+07+10+12+14+26,
01+04+11+15+24+25+27,
04+12+14+25+26+29+30,
01+08+09+14+19+24+26,
01+02+03+05+08+13+26,
01+06+10+18+21+26+30,
04+15+17+18+22+24+29,
09+12+15+22+25+27+29,
02+06+10+17+18+27+28,
01+09+13+18+19+22+26,
01+05+06+11+12+26+30,
04+05+07+12+20+21+29,
04+05+08+17+24+25+26,
02+08+11+14+16+25+30,
09+10+14+18+23+25+26,
06+13+16+19+20+22+25,
07+12+13+22+23+27+28,
01+05+06+09+24+28+30,
02+04+07+09+13+20+22,
01+11+20+21+24+25+29,
01+10+13+20+27+28+29,
09+12+13+18+19+24+26,
01+02+14+17+18+19+29,
02+04+06+16+18+27+30,
08+11+15+18+26+27+28,
05+09+14+18+22+25+27,
01+03+07+14+18+26+30,
04+12+13+17+19+29+30,
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
worldy 2012-03-26
[Quote=引用 7 楼 cyerp 的回复:]
worldy:
显示的不对啊？
[/Quote]
怎么不对，你自己检查一下边上的数字，那就是连续三行都有的
worldy:
显示的不对啊？
[/Quote]
怎么不对，你自己检查一下边上的数字，那就是连续三行都有的
cyerp 2012-03-26
谢谢 各位帮忙解决下
cyerp 2012-03-26
worldy:
显示的不对啊？
显示的不对啊？
worldy 2012-03-25
[Quote=引用 3 楼 vansoft 的回复:]
直接转成MDB文件中，用SQL语句查询即可。
七个字段，
[/Quote]
那个人的数据没有规律，select是select不出来滴
直接转成MDB文件中，用SQL语句查询即可。
七个字段，
[/Quote]
那个人的数据没有规律，select是select不出来滴
vrgame 2012-03-25
奇怪的數據...
vansoft 2012-03-24
直接转成MDB文件中，用SQL语句查询即可。
七个字段，
七个字段，
wushuiyousheng 2012-03-24
wa,haochang
worldy 2012-03-24
Option Explicit
Dim sData As String
Private Sub Command1_Click()
Cls
Dim A() As String
Dim B() As String
Dim i As Long, j As Long
Dim s As String
Dim bFound As Boolean
A = Split(sData, "," & vbCrLf)
For i = 0 To UBound(A) - 2
B = Split(A(i), "+")
For j = 0 To UBound(B)
s = Trim(B(j))
If InStr(1, A(i + 1), s) > 0 Then
If InStr(1, A(i + 2), s) > 0 Then
bFound = True
Exit For
End If
End If
Next
If bFound Then
ForeColor = 255
Print A(i); Space(10); s
Print A(i + 1)
Print A(i + 2)
ForeColor = 0
i = i + 2
bFound = False
Else
Print A(i)
End If
Thenext:
Next
If Not bFound Then
For j = i To UBound(A)
Print A(j)
Next
End If
End Sub
Private Sub Form_Load()
sData = "07+09+11+14+17+19+25,"
sData = sData & vbCrLf & "05+10+14+18+19+21+28,"
sData = sData & vbCrLf & "02+06+07+10+12+14+26,"
sData = sData & vbCrLf & "01+04+11+15+24+25+27,"
sData = sData & vbCrLf & "04+12+14+25+26+29+30,"
sData = sData & vbCrLf & "01+08+09+14+19+24+26,"
sData = sData & vbCrLf & "01+02+03+05+08+13+26,"
sData = sData & vbCrLf & "01+06+10+18+21+26+30,"
sData = sData & vbCrLf & "04+15+17+18+22+24+29,"
sData = sData & vbCrLf & "09+12+15+22+25+27+29,"
sData = sData & vbCrLf & "02+06+10+17+18+27+28,"
sData = sData & vbCrLf & "01+09+13+18+19+22+26,"
sData = sData & vbCrLf & "01+05+06+11+12+26+30,"
sData = sData & vbCrLf & "04+05+07+12+20+21+29,"
sData = sData & vbCrLf & "04+05+08+17+24+25+26,"
sData = sData & vbCrLf & "02+08+11+14+16+25+30,"
sData = sData & vbCrLf & "09+10+14+18+23+25+26,"
sData = sData & vbCrLf & "06+13+16+19+20+22+25,"
sData = sData & vbCrLf & "07+12+13+22+23+27+28,"
sData = sData & vbCrLf & "01+05+06+09+24+28+30,"
sData = sData & vbCrLf & "02+04+07+09+13+20+22,"
sData = sData & vbCrLf & "01+11+20+21+24+25+29,"
sData = sData & vbCrLf & "01+10+13+20+27+28+29,"
sData = sData & vbCrLf & "09+12+13+18+19+24+26,"
sData = sData & vbCrLf & "01+02+14+17+18+19+29,"
sData = sData & vbCrLf & "02+04+06+16+18+27+30,"
sData = sData & vbCrLf & "08+11+15+18+26+27+28,"
sData = sData & vbCrLf & "05+09+14+18+22+25+27,"
sData = sData & vbCrLf & "01+03+07+14+18+26+30,"
sData = sData & vbCrLf & "04+12+13+17+19+29+30,"
End Sub小甲鱼零基础入门学习python笔记 >>>str = r'C:\now' 长字符串 •如果希望得到一个跨越多行的字符串，例如： 我爱鱼C， 正如我爱小甲鱼， 久久不肯散去…… 这我们就需要使用到三重引号字符串！ 004 改进我们的小游戏 •第一个改进要求：猜错的时候...
oracle数据库（四）查询和单行多行函数 文章目录1查询1.1范围查询： 数字/日期1.2模糊查询：like配合通配符使用：_ 表示 一个字符， % 表示任意个字符1.2.1 姓名中第二个字母是M的员工信息：select *from emp where ename like '_M%' ;1.2.2姓名中包含M的...
【数据库学习】数据库总结 复制数据子集：实体化视图可以进行行级/列级的筛选，这样可以复制需要的那一部分数据。 实体化视图是用于汇总,预计算,复制或分发数据的对象, 在大型的数据库中使用它可以提高涉及到的SUM,COUNT,AVG,MIN,MAX等的表的...
EmEdit选择多行内容 在当前列中以升序排序数字。 数字降序 在当前列中以降序排序数字。 启用/禁用仅编辑选定行模式 启用或禁用仅编辑选定行模式(仅允许编辑选定区域，其他剩余的区域不允许访问)。 下一拼写错误 Ctrl+M ...
C#基础教程-c#实例教程，适合初学者 C#基础教程-c#实例教程，适合初学者。 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。...
正则匹配多行内容UE perl模式 UE根据关键字筛选行数据并复制筛选出的行 正则匹配多行内容 /\*[\s\S]+?\*/ 我想删所有/* */ UE根据关键字筛选行数据并复制筛选出的行 UE perl模式 元字符 说明 . 匹配除换行符以外的任意字符 \w...
【Excel2019(一)：认识Excel】【Excel简介+Excel的基本概念及操作+简单小工具】 视图-新建窗口-并排比较 2.3 插入 插入多个工作表（3个） 选中Sheet1+按住SHIFT+选中Sheet3+右键插入即可 插入多行（在第四行前插入三行） 选中第一行到第三行行标题+右键插入即可 插入多列（在第四列前插入三列） ...
mysql面试题 内连接 则是只有条件的交叉连接，根据某个条件筛选出符合条件的记录，不符合条件的记录不会出现在结果集中，即内连接只连接匹配的行。 外连接 其结果集中不仅包含符合连接条件的行，而且还会包括左表、右表或两个表...
filebeat合并多行日志示例 真实数据测试时可以先做下数据筛选 #exclude_lines: ['^DBG'] #include_lines: ['^ERR', '^WARN'] 拓展知识 filebeat和logstash的合并方式几乎无区别 input { file { path => "/var/*.log" codec => ...
OpenCV模板匹配识别图片中的数字 OpenCV模板匹配识别图片中的数字 前言 本博客主要实现利用OpenCV的模板匹配识别图像中的数字，然后把识别出来的数字输出到txt文件中，如果识别失败则输出“读取失败”。 操作环境： OpenCV - 4.1.0 Python 3.8.1 ...
Pandas——筛选数据（loc、iloc） iloc（纯数字筛选）4.ix（标签与数字的混合筛选）5.判断条件筛选 1.普通方法筛选 我们首先构造了一个 5X4 的矩阵数据。 import pandas as pd import numpy as np dates = pd.date_range('20200315', periods = 5) ...
PowerShell筛选方式和格式化输出 筛选： 从众多的输出结果中挑选出符合条件的项。通常情况下，输出结果以列表的形式显示 例如：用get-command命令查看前十行的命令 默认情况下，get-command搜索到的命令是以列表的形式展示的，如上图所示，输出...
用matlab做日期筛选 @[TOC]用matlab中的datenum函数做日期筛选 提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档 用MATLAB做日期筛选应用场景一、筛选某个确切日期之前/后的所有数据1.datanum的含义2.如何使用...
javascript 正则表达式提取数字使用 javascript 正则表达式提取数字使用 知识点： 1. 用match函数， 提取一个字符串当中所有的数字 reg中的g返回所有的匹配，如果不加g则返回第一个匹配的项 2. 若果没有匹配，则返回一个null的list ...
linux awk 过滤某一列的数字大于10的行 cat group-partition.log | awk -F ':' '$2>100{print $0}' 说明： -F 以什么分隔列 $2代表第二列 $2>100 代表第二列大于100 print $0 代表输出一整行
sublime text常用快捷键及多行光标批量操作教程 sublime text多行光标批量快捷操作 Ctrl+ALT+↓ 按end定位到行尾 sublimetext常用快捷键 Ctrl+Shift+P：打开命令面板 Ctrl+P：搜索项目中的文件 Ctrl+G：跳转到第几行 Ctrl+W：关闭当前打开文件 Ctrl...
access 合并多行字符串_数据文件合并与拆分 2. 记录占据多行的拆分 在文本文件中，一条数据记录是由多行数据组成的，在拆分成小文件时，要识别哪几行是同一条数据记录，保证同一条数据记录不会被拆分到两个文件中。 示例1：有网站运行日志文件log.txt，每条...
用Python筛选国考职位表 目录1 概述2 Python读写Excel3 Python正则表达式3.1 基础知识3.2 实例分析4 pandas查询4.1 Series查询4.2 DataFrame查询5 国考职位表筛选参考文献后记 1 概述 2021国考在即，你报名了吗？假如你的office耍得好，...
