1,216
社区成员
发帖
与我相关
我的任务
分享请问如何比较两个文本文件中的记录，并将不相同的内容导出到access?
请问如何比较两个文本文件中的记录，并将不相同的内容导出到access?
...全文
请发表友善的回复…
发表回复
射天狼 2003-10-30
- 打赏
- 举报
Dim strTmp As String, strArray() As String
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件内容存到数组里,一个数组元素代表文件的一行,你可以将两个文件分别读到数组里,怎么比较,怎么向ACCESS里存,你自己弄吧~~
Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件内容存到数组里,一个数组元素代表文件的一行,你可以将两个文件分别读到数组里,怎么比较,怎么向ACCESS里存,你自己弄吧~~
