标题: 求一段文件比较批处理 以１０Ｑ币答谢． [打印本页]
作者: ming6747 时间: 2007-12-20 03:19 标题: 求一段文件比较批处理 以１０Ｑ币答谢．
有２个ＴＸＴ文件 开始２个文件内容一样
后来在一个文件里 无序插入一些字母或数字或别的符号
比如 a.txt 123456
b.txt 1123ab4c56
请把b.txt 多插入的内容找出来 存放到c.txt
比如 a.txt 123456
b.txt 1123ab4c56
c.txt 1abc
大家看下．．．．ＴＨＡＮＫ
作者: jmz573515 时间: 2007-12-20 10:04
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set file1=fso.opentextfile("a.txt")
s=file1.readall
file1.close
n=len(s)
set file2=fso.opentextfile("b.txt")
i=1
do while file2.atendofstream<>true
b=file2.read(1)
if b=mid(s,i,1) then
i=i+1
if mid(s,i,2)=vbcrlf then sm=sm&vbcrlf
else
sm=sm&b
end if
loop
file2.close
set file=fso.createtextfile("c.txt")
file.write sm
file.close
ws.run "c.txt"
set fso=createobject("scripting.filesystemobject")
set file1=fso.opentextfile("a.txt")
s=file1.readall
file1.close
n=len(s)
set file2=fso.opentextfile("b.txt")
i=1
do while file2.atendofstream<>true
b=file2.read(1)
if b=mid(s,i,1) then
i=i+1
if mid(s,i,2)=vbcrlf then sm=sm&vbcrlf
else
sm=sm&b
end if
loop
file2.close
set file=fso.createtextfile("c.txt")
file.write sm
file.close
ws.run "c.txt"
作者: everest79 时间: 2007-12-20 10:22
SETLOCAL ENABLEDELAYEDEXPANSION
set src=123456
set dst=1123ab4c5sgserg6
set/atmp_0=0,tmp_1=0
call :los
for /l %%i in (0,1,%tmp_0%) do (
call :appa !src:~%%i,1! %%dst:~!tmp_1!,1%% %%i
set/a tmp_1+=1
)
echo %str%!dst:~%tmp_1%!
pause
goto :eof
:appa
if "%~1" equ "%~2" goto :eof
set str=%str%%2
set /a tmp_1+=1
call :appa %~1 %%dst:~%tmp_1%,1%% %tmp_1%
goto :eof
:los
if not "!src:~%tmp_0%,1!" == "" set /a tmp_0+=1&&goto los
set/a tmp_0-=1
goto :eof
set src=123456
set dst=1123ab4c5sgserg6
set/atmp_0=0,tmp_1=0
call :los
for /l %%i in (0,1,%tmp_0%) do (
call :appa !src:~%%i,1! %%dst:~!tmp_1!,1%% %%i
set/a tmp_1+=1
)
echo %str%!dst:~%tmp_1%!
pause
goto :eof
:appa
if "%~1" equ "%~2" goto :eof
set str=%str%%2
set /a tmp_1+=1
call :appa %~1 %%dst:~%tmp_1%,1%% %tmp_1%
goto :eof
:los
if not "!src:~%tmp_0%,1!" == "" set /a tmp_0+=1&&goto los
set/a tmp_0-=1
goto :eof
作者: scriptor 时间: 2007-12-20 18:52
这个bat强~~ 哈哈.....
不知道lz兑现了没有!!!
作者: qzwqzw 时间: 2007-12-20 19:38
这个问题很有些深入的空间
如果
a=123456
b=123a45c456
那么结果应该是
c=ac45
还是
c=a45c
从算法上前者更简单一些
从效果上后者更实际一些
这也仅是假定了b>a的情形
如果
a=123456
b=12a45b6
那么c值应该是多少
（当然实际上这里需要设置一个用于存放a-b结果的d值）
此时指针的移动就比较复杂了
fc的机制中有一个最大失配范围的设定（假定是m）
即如果a的指针移动了m
仍然未与b匹配
则尝试移动b的指针试图与a匹配
在b移动了m仍然未匹配时
会报达到最大失配值的错误
但是这种算法在应用上仍然是有缺陷的
比如
a=123456
b=123a56456
通常比较的结果是
c=a456
d=4
但是实际上我们更希望获得的结果是
c=a56
d=空
也就是说
我们希望能在最大失配范围内找到最匹配的结果
而非最近的匹配结果
关于这一点
Ultra Comare的二进制智能比较似乎做得更好一些
我曾经使用Beyond Compare和Ultra Compare 比较新旧神雕
虽然经过很多预处理
但结果仍然不是十分理想
主要在于跨行文本结果匹配
因为文本比较是基于行的
假如
a=是的。没问题。
b=是的。<换行>没问题。
则两大软件都会将全部内容做为c、d值
而实际上我更想获得的结果是
c=<换行>
这我在将比较文本的所有换行全部替换为特殊标记后得到了改善
但仍然存在更多的问题
总的来说
简单的比较比较的简单
复杂的比较十分的复杂
[ Last edited by qzwqzw on 2007-12-20 at 07:50 PM ]
作者: lxmxn 时间: 2007-12-20 21:06
| Quote: | |
|
新旧神雕？视频文件还是小说？
作者: qzwqzw 时间: 2007-12-20 21:13
这还用问？
我只当没看见
白说了半天的文本比较了~
作者: qzwqzw 时间: 2007-12-20 21:16
另外
有心人请注意
关于fc的那段最大失配指针移动算法描述得有问题
并非简单得先移b再移a
作者: lxmxn 时间: 2007-12-20 22:14
| Quote: | |
|
呵呵，是我想歪了
作者: everest79 时间: 2007-12-20 23:30
其实这个批处理我原来用的是源与目标的字长都要取得，所以有:los标签，不过楼主声明了是后期插入，所以就不需要了，嘿嘿
作者: ming6747 时间: 2007-12-21 19:31
很谢谢２楼和３楼给我的答案
希望看到的答案是批处理 而不是ＶＢＳ脚本语言和高级语言编的．．．
作者: knoppix7 时间: 2007-12-21 21:13
3楼就是BAT啊...
作者: qq43142691 时间: 2007-12-21 21:52
三楼的。。。好像不完成啊。。
测试
set src=123456
set dst=667
这样就出错了。。不知为啥。。。
作者: everest79 时间: 2007-12-22 10:41
| Quote: | |
|
嘿嘿，各位，看到好加点分哇，Q币就免了
SETLOCAL ENABLEDELAYEDEXPANSION
set /p src=<a.txt
set /p dst=<b.txt
set src=123456
set dst=1123ab4c5sgserg6
set/atmp_0=0,tmp_1=0
call :los
for /l %%i in (0,1,%tmp_0%) do (
call :appa !src:~%%i,1! %%dst:~!tmp_1!,1%% %%i
set/a tmp_1+=1
)
echo %str%!dst:~%tmp_1%! >c.txt
pause
goto :eof
:appa
if "%~1" equ "%~2" goto :eof
set str=%str%%2
set /a tmp_1+=1
call :appa %~1 %%dst:~%tmp_1%,1%% %tmp_1%
goto :eof
:los
if not "!src:~%tmp_0%,1!" == "" set /a tmp_0+=1&&goto los
set/a tmp_0-=1
goto :eof
[ Last edited by everest79 on 2007-12-22 at 10:45 AM ]set /p src=<a.txt
set /p dst=<b.txt
set src=123456
set dst=1123ab4c5sgserg6
set/atmp_0=0,tmp_1=0
call :los
for /l %%i in (0,1,%tmp_0%) do (
call :appa !src:~%%i,1! %%dst:~!tmp_1!,1%% %%i
set/a tmp_1+=1
)
echo %str%!dst:~%tmp_1%! >c.txt
pause
goto :eof
:appa
if "%~1" equ "%~2" goto :eof
set str=%str%%2
set /a tmp_1+=1
call :appa %~1 %%dst:~%tmp_1%,1%% %tmp_1%
goto :eof
:los
if not "!src:~%tmp_0%,1!" == "" set /a tmp_0+=1&&goto los
set/a tmp_0-=1
goto :eof