Board logo

标题: [求助]关于文本行与行合并~~ [打印本页]

作者: lslindyx     时间: 2009-2-5 13:27    标题: [求助]关于文本行与行合并~~

a.txt和b.txt 2个文本文件中,内容都是一行一行的,然后现在想把2个文件按一行一行的接起来,就是a的第一行接b的第一行,然后以此类推~~~ 有人能帮忙吗?? 谢谢啊~~~

作者: moniuming     时间: 2009-2-5 14:28
下面的代码用于行数相同的两个文本,如果行数不一样,请作适当更改:
@echo off
Setlocal Enabledelayedexpansion
set n=0
for /f "delims=" %%a in ('type a.txt') do (
  call :lp
  set/p=%%a!str!<nul
  echo.
  set /a n+=1
)
pause
goto :eof
:lp
if "%n%"=="0" (set skp=) else (set skp=skip=!n!)
for /f "%skp% delims=" %%b in ('type b.txt') do (
  set "str=%%b"&goto :eof
)
[ Last edited by moniuming on 2009-2-5 at 14:30 ]

作者: zhengqian529     时间: 2009-2-5 15:56
我写了一个简单的,贴下代码,但是有一个问题就是,它不能把空格当一行,HAT大哥可以改进下吗? @echo off&Setlocal EnableDelayedExpansion REM %0 %* REM Set FileOne=%1 Set FileTwo=%2 Set Num1=0 Set Num2=0 for /f "delims=" %%i in (%FileOne%) do ( Set /a Num1+=1 for /f "delims=" %%j in (%FileTwo%) do ( Set /a Num2+=1 if !Num1!==!Num2! Set var=%%i%%j&&echo !var!>>test.txt ) Set Num2=0 ) for /f "delims=" %%i in (%FileTwo%) do ( Set /a Num2+=1 if "!Num1!" LSS "!Num2!" echo %%i>>test.txt ) Set Num1=0 for /f "delims=" %%i in (%FileOne%) do ( set /a Num1+=1 if "!Num1!" GTR "!Num2!" echo %%i>>test.txt ) Endlocal Cls&Pause

作者: zhengqian529     时间: 2009-2-5 16:33
不好意思,研究了一下,我写了最后一个版本,可以适合以下情况: 1. 两个文件行数不一样 2.两个文件相同的行,某一行为空行 3.两个文件相同的行都为空行 其他的我还不清楚,现在先贴出代码: REM %0 %* REM @echo off&Setlocal EnableDelayedExpansion Set FileOne=%1 Set FileTwo=%2 Set Num1=0 Set Num2=0 for /f "tokens=1* delims=:" %%i in ('findstr /n .* %FileOne%') do ( Set /a Num1+=1 for /f "tokens=1* delims=:" %%a in ('findstr /n .* %FileTwo%') do ( Set /a Num2+=1 if !Num1!==!Num2! Set var=%%j%%b&&echo.!var!>>test.txt ) Set Num2=0 ) echo !Num1! !Num2! for /f "tokens=1* delims=:" %%i in ('findstr /n .* %FileTwo%') do ( Set /a Num2+=1 if "!Num1!" LSS "!Num2!" echo.%%j>>test.txt ) Set Num1=0 echo !Num1! !Num2! for /f "tokens=1* delims=:" %%i in ('findstr /n .* %FileOne%') do ( set /a Num1+=1 echo %%i if "!Num1!" GTR "!Num2!" echo.%%j>>test.txt ) Endlocal cls&pause

作者: netbenton     时间: 2009-2-5 21:01
学习了 [ Last edited by netbenton on 2009-2-5 at 21:10 ]