两文本文件比较易语言源码

资源介绍：

文本文件比较易语言源码例程程序结合易语言数据库操作支持库实现两个文本文件的比较。

资源界面：

.版本 2
.支持库 eDB
.支持库 iext

.子程序 比较
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 n, 整数型
.局部变量 x, 整数型
.局部变量 x1, 整数型
.局部变量 s, 文本型, , "0"
.局部变量 行, 整数型
.局部变量 m, 整数型
.局部变量 行号, 文本型
.局部变量 文件名, 文本型
.局部变量 文件名1, 文本型

.如果真 (通用对话框1.打开 ())
    文件名 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “”, , 假))
    数据库连接1.连接 (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “”, , 假)) ＋ “;Extended Properties='text;HDR=NO;FMT=Delimited'”)
    记录集1.置连接 (数据库连接1)
    记录集1.打开 (“Select * FROM ” ＋ 文件名, 1, )

.如果真结束
.如果真 (通用对话框2.打开 ())
    数据库连接2.连接 (“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取文本左边 (通用对话框2.文件名, 倒找文本 (通用对话框2.文件名, “”, , 假)) ＋ “;Extended Properties='text;HDR=NO;FMT=Delimited'”)
    记录集2.置连接 (数据库连接2)
    文件名1 ＝ 取文本右边 (通用对话框2.文件名, 取文本长度 (通用对话框2.文件名) － 倒找文本 (通用对话框2.文件名, “”, , 假))
    记录集2.打开 (“Select * FROM ” ＋ 文件名1, 1)
.如果真结束
.判断开始 (记录集1.记录数量 － 记录集2.记录数量 ≥ 0)
    n ＝ 记录集1.记录数量
.默认
    n ＝ 记录集2.记录数量
.判断结束
超级列表框1.全部删除 ()
超级列表框2.全部删除 ()
清除数组 (s)
.计次循环首 (n, 行)
    记录集1.读文本 (0, 文本1)

    记录集2.读文本 (0, 文本2)
    x ＝ 超级列表框1.插入表项 (行, , , , , )
    x1 ＝ 超级列表框2.插入表项 (行, , , , , )
    超级列表框1.置标题 (x, 0, 到文本 (行 － 1))
    超级列表框1.置标题 (x, 1, 文本1)
    超级列表框2.置标题 (x1, 0, 到文本 (行 － 1))
    超级列表框2.置标题 (x1, 1, 文本2)
    .判断开始 (文本1 ≠ 文本2)
        置行列颜色 (_启动窗口, 超级列表框1, 行 － 1, 1, #红色, )
        置行列颜色 (_启动窗口, 超级列表框2, 行 － 1, 1, #红色, )
        加入成员 (s, 到文本 (行 － 1) ＋ “、”)
    .默认

    .判断结束
    记录集1.到下一条 ()
    记录集2.到下一条 ()
.计次循环尾 ()
记录集1.关闭 ()
数据库连接1.关闭 ()
.计次循环首 (取数组成员数 (s), m)
    行号 ＝ 行号 ＋ s [m]
.计次循环尾 ()
编辑框1.内容 ＝ “比较两表结果错误行有” ＋ 到文本 (取数组成员数 (s)) ＋ “行。分别为：” ＋ 行号 ＋ “行”

资源作者：

易语言数据库源码学习

资源下载：