标题: 请教如何用P查找文本重复行并复制到另一文本中 [打印本页]
作者: cjfcjf222 时间: 2007-10-24 22:02 标题: 请教如何用P查找文本重复行并复制到另一文本中
我找到了一个清除重复行的P.如何修改这个P而能变成只是将重复行复制到另一文本中,需要将重复几次的就写入几次,就是说如果文本中重复了三次,就写入新的文本中三次
下面是清除重复行的P
@echo off
echo 正在查找文本相同行，请等待.....
(echo 清除重复行后的文件内容：& echo.)>str_.txt
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
if not defined %%i set %%i=A & echo %%i>>str_.txt)
echo 清理完毕，清理后的文件保存在：str_.txt
pause>nul
作者: 26933062 时间: 2007-10-25 00:53
如果重复三次,但不是连续重复,写入的也不会是连续的.但次数不会错
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
if not defined %%i (set %%i=A) else echo %%i>>str_.txt
)
pause
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
if not defined %%i (set %%i=A) else echo %%i>>str_.txt
)
pause
作者: cjfcjf222 时间: 2007-10-25 10:52
谢谢
作者: 26933062 时间: 2007-10-25 13:54
2楼的错了,会少写一次.
这样试试.....
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do set _%%i+=1
for /f "tokens=1* delims=_=" %%i in ('set _') do (
set num=0
if not "%%j"=="1" call :lis "%%i" %%j
)
pause
exit
:lis
set /a num+=1
echo %~1>>str_.txt
if %num% equ %2 goto :eof
goto lis
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do set _%%i+=1
for /f "tokens=1* delims=_=" %%i in ('set _') do (
set num=0
if not "%%j"=="1" call :lis "%%i" %%j
)
pause
exit
:lis
set /a num+=1
echo %~1>>str_.txt
if %num% equ %2 goto :eof
goto lis