求bat脚本高手帮忙比较2个txt文档内容是否相同

Question

C盘A文件夹里面有1.txt和若干其他文件，D盘A文件夹里面也有1.txt和若干其他文件。如果C:A\1.txt里面的内容和D:A\1.txt不同，则把C盘中的A文件夹删除，并且把D:A\1.TXT文件夹拷贝到C盘去。大神，求帮助！

Answer 1

　　@echo off
　　for /f %%i in (C:\a\1.txt) do (
　　for /f %%e in (D:\a\1.txt) do (if not %%i==%%e (
　　del C:\a\1.txt
　　copy D:\a\1.txt C:\a\1.txt
　　)
　　)
　　)
　　pause

　　============================the end============================

　　还有，弱弱问句，你的意思，是不是让D:A\1.TXT文件夹拷贝到C盘去,我的代码好像烦了点。如果只是这样，“copy D:\a\1.txt C:\a\1.txt”够了

追问

我的意思是：如果C:\A\1.TXT的内容和D：\a\1.txt的内容不相同，那么把D里面的东西覆盖到C里面去。有听懂吗？

Answer 2

看看以下代码：

On Error Resume Next
Dim fso,op,op2
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
'创建一个对象，用于处理文件类的事件。
Set op=fso.OpenTextFile("C:\A\1.txt",1)
Set op2=fso.OpenTextFile("D:\A\1.txt",1)
'打开2个文本文件（内存中打开，并不是真的打开）
if op.ReadAll=op2.ReadAll Then
'读取它们并判断是否一致。
MsgBox "两个文件的内容一致",0+64,"注意"
else
MsgBox "两个文件的内容不一致，系统即将要删除C盘的A文件夹，并把D盘的A文件夹剪切到C盘！！！",0+16,"内容不一致"
op.Close
op2.Close
'关闭它们
fso.DeleteFolder("C:\A")
'删除C盘的A文件夹
fso.GetFolder("D:\A").Copy("C:\")
'将D盘的A文件夹复制到C盘
if fso.FolderExists("C:\A") Then
'如果复制成功
fso.DeleteFolder("D:\A")
'删除D盘的A文件夹
End if
'结束判断
End if
op.Close
op2.Close
'关闭它们

好的话记得采纳哦~~~~~

追问

这些命令在.bat脚本中不能用啊.

追答

这是vbs脚本哦。你就保存为“xxx.vbs”就好了。（bat你一个一个用echo.....>>"xxx.vbs"，懂吗？）

追问

T.T 就是不懂啊，大哥。本想搞了一下午BAT脚本已经够辛苦了，你咋还跟俺来个啥VBS啊，我菜鸟都算不上啊。大哥，能帮我转成BAT吗？感激不尽，我也在赚分，明天给你加多点，QQQ.

追答

后下的不科学，一旦有空格就读取不出来了，并且复制文件夹时也搞得乱七八糟，pause不加>nul，文件名写的太繁琐，应该使用变量才对······

请问：D盘的A文件夹是要复制过去还是要剪切过去？？？？（以下写的是复制）

@echo off
title 判断文本
set "textfile=C:\A\1.txt"
set "textfile2=D:\A\1.txt"
echo 请稍后，处理中...
for /f "delims=" %%I in (%textfile%) do (
for /f "delims=" %%A in (%textfile2%) do (
if not "%%I"=="%%A" (
RD /s /q "C:\A"
Xcopy /y "D:\A" "C:\"
)
)
)
echo 操作完毕！！
pause>nul

 呃呃呃。。。。你别采纳他的呀~~~~~~~~~~

追问

不好意思啊，他比你早一点点，我有另外一个题目也是关于这个 你去答了 ，我给你分。http://zhidao.baidu.com/question/586034603.html?quesup2&oldq=1

追答

哦，谢谢你~

追问

能帮我看看我写的这个脚本有什么问题吗？

追答

你能把源文件发来吗？记得采纳：http://zhidao.baidu.com/question/586034603.html
我看的眼花。还有你运行一下就知道有没有问题了么？？如果有告诉我它的“症状”是什么。。
你可以留下QQ账号。或其他联系方式（别是电话就行了~~特别是给我打视频电话~~~）

追问

哎哟喂，公司不能上QQ，烦得要紧，我又不是写代码出身的，偏要我学着写。你有邮箱吗？

追答

╮(╯_╰)╭把代码发到我的私信吧。

追问

所有IM类软件都被禁止了，私信发不了o._ 0 算了我自己研究下 3Q.

追答

哦。

追问

大哥， 你QQ多少啊 ，受不了啦。求助！！！

追答

泄露可不好。