| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2586 人关注过本帖, 1 人收藏
标题:vb实现查找txt重复内容
只看楼主 加入收藏
小兰灵
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2019-12-10
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:6 
vb实现查找txt重复内容
查找A.txt中的重复内容,如果有相同则清除B.txt中的内容
搜索更多相关主题的帖子: 查找 内容 重复 vb txt 
2019-12-17 13:36
小兰灵
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2019-12-10
收藏
得分:0 
求指点
2019-12-17 13:37
风吹过的VB
Rank: 2
等 级:论坛游民
帖 子:10
专家分:60
注 册:2019-12-18
收藏
得分:20 
请说明TXT文本的数据类型:
是针对每个字符去判断重复?
还是针对每一行的数据去判断重复?
说明这个问题其他都好办!
2019-12-19 09:17
小兰灵
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2019-12-10
收藏
得分:0 
回复 3楼 风吹过的VB
是对每一行来判断的,求指点
2019-12-19 09:29
风吹过的VB
Rank: 2
等 级:论坛游民
帖 子:10
专家分:60
注 册:2019-12-18
收藏
得分:0 
回复 4楼 小兰灵
图片附件: 游客没有浏览图片的权限,请 登录注册

是每一行的每一个参数都一样的?才算重复吗?
还是每一行的每个头部文件判断重复便可认定重复?
2019-12-19 10:01
小兰灵
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2019-12-10
收藏
得分:0 
回复 5楼 风吹过的VB
图片附件: 游客没有浏览图片的权限,请 登录注册

这个文件内容不固定,但是格式一样
2019-12-19 10:51
风吹过的VB
Rank: 2
等 级:论坛游民
帖 子:10
专家分:60
注 册:2019-12-18
收藏
得分:0 
程序代码:
Public A临时库 As String
Public B临时库 As String

Private Sub Command1_Click()
Dim A数据, B数据
List1.Clear
A临时库 = "": B临时库 = ""
'------------------------------↓处理数据
Open "C:\A.txt" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, A数据
If A数据 = "" Then
Else
If InStr(A临时库, A数据) > 0 Then
List1.AddItem A数据
Else
A临时库 = A临时库 & A数据 & IIf(EOF(1), "", vbCrLf)
End If
End If
Loop
Close #1
'------------------------------↑处理数据

      On Error Resume Next
      Open "C:\A.txt" For Output As #1
      Print #1, A临时库
      Close #1
      
'------------------------------↓处理数据
Open "C:\B.txt" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, B数据
If B数据 = "" Then
Else
'
For i = 0 To List1.ListCount - 1
If List1.List(i) = B数据 Then Exit For
Next
If List1.List(i) = B数据 Then
Else
B临时库 = B临时库 & B数据 & IIf(EOF(1), "", vbCrLf)
End If
'
End If
Loop
Close #1
'------------------------------↑处理数据
      On Error Resume Next
      Open "C:\B.txt" For Output As #1
      Print #1, B临时库
      Close #1
'------------------------------
End Sub

1.以上:A.txt删除了所有重复的数据
2.如果你只是想知道A.txt的重复数据是哪些?不想删除掉重复数据那么
把这段代码删掉
      On Error Resume Next
      Open "C:\A.txt" For Output As #1
      Print #1, A临时库
      Close #1

3.此代码会删除B.txt里所有A.txt里面的所有重复内容而且是一个保留。

思路总结:为了节约时间我用到了list1控件,主要收集A.text里的重复特征内容。进行判断B.TXT里的内容筛选..变量进行导出保存.就这样...
我觉得我这写法其实可以有其他方法写..懒..不想浪费时间。。就这样。
2019-12-19 13:12
快速回复:vb实现查找txt重复内容
数据加载中...
 
   



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

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