vbs 数据 查询 高手请进

来源：百度知道 编辑：UC知道 时间：2024/06/18 13:01:48
现有 文本文档1 文本文档2 里面有相同内容的数据

内容格式如

文本文档1
398434
123456
dfefsf
456789
789123
文本文档2
456789
789123

用VBS语言
创建一个 文本
要求数据来源于文本1
但是内容不包括文本2 里的内容
就像查找替换一样 把 文本1 里包含的 文本2 内容 全部去掉 生成一个新的文本

百分感谢

请将以下代码中“D:\test\文本文档1.txt”“D:\test\文本文档2.txt”改成你自己文本文档1和文本文档2的路径，“D:\test\new.txt”是对比后生成新文件的路径，请自行更改。

set fso=wscript.createobject("scripting.filesystemobject")
set f1=fso.opentextfile("D:\test\文本文档1.txt",1,true)
f1text=f1.readall
set f2=fso.opentextfile("D:\test\文本文档2.txt",1,true)
do while f2.atendofstream<>true
f2text=f2.readline
f1text=replace(f1text,f2text,"")
loop
set newfile=fso.opentextfile("D:\test\new.txt",2,true)
newfile.write(f1text)