| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1177 人关注过本帖
标题:拜托如何实现两个文本文件的对比
只看楼主 加入收藏
ycuu
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-5-4
收藏
 问题点数:0 回复次数:3 
拜托如何实现两个文本文件的对比
,有两个文本文件,里面有一些数据,如何找这两个文件相同的数据,并且在新的文本文件中显示出来。请高手告诉我,我需要用到。

[此贴子已经被作者于2006-5-15 22:23:53编辑过]


搜索更多相关主题的帖子: 文本文件 数据 
2006-05-15 22:19
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
分别按字符建立两个库,然后比较,相同的放到一个新库,不同再放到另一个库,然后再导出到文本文件就行了!
不过,VFP对于这种应用不是很好!

2006-05-16 07:49
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 
我以为可以用FREAD()函数!
2006-05-16 08:48
david_lu
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-17
收藏
得分:0 
* 第一个文件
* 1,2,3

* 第二个文件
* 4,5,2,4,8,9,1,4,9

private s1,s2,f1,f2,n1,c,s,i,k
f1 = getfile('txt') && 得到第一个文件名
f2 = getfile('txt') && 得到第二个文件名
s1 = FileToStr(f1) && 把第一个文件的内容读入到变量
s2 = FileToStr(f2) && 把第二个文件的内容读入到变量
c = ',' && 数据分隔的符号
n1 = GetWordCount(s1,c) && 数据的数量
s = '' && 最终的结果
for i = 1 to n1
k = GetWordNum(s1,i,c) && 取得第i个数据
if c+k+c $ s2
s = s + iif(empty(s),'',c) + k
endif
endfor
StrToFile(s,'结果文件.txt')

&& 最终结果是
&& 1,2
2006-05-17 16:16
快速回复:拜托如何实现两个文本文件的对比
数据加载中...
 
   



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

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