[文本处理] 批处理将一组文本中多行内容写入新的文本中

saymissme

假设遇到这样一个情况,这里有上千个文本
在每个文本里面都有这样的一个特殊字词:bathome,而且在这个文本里面这样的这样的字词只存在一处
如:

sadsalklkewr
sdfsdkiwek;la
df3w344
sdf4332

bathome
saymissme
thank you

oiio34230ds
3240230

需要将bathome这一行和下面的2行或者更多行一起存入一个新的文本里,如:
bathome
saymissme
thank you

这上千个文本都是放在同一文件夹内,命名没有关联性,如何用bat语言实现呢?
谢谢大家

[ 本帖最后由 saymissme 于 2008-3-28 23:38 编辑 ]

随风

max 为需要的行数。
:

@echo off&setlocal enabledelayedexpansion
set max=2
for /f "delims=" %%i in ('dir /b *.txt') do (
  set "flag="
  for /f "delims=" %%a in ('type "%%i"') do (
     if /i "%%a"=="bathome" set /a flag+=1
	 if defined flag if !flag! leq !max! >>tmp.txt echo %%a
))
start tmp.txt
复制代码

梦想种子

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b *.txt') do (
call :get "%%i"
echo.
)
pause 
exit
:get
set flag=false
for /f "tokens=1,2 delims=:" %%j in ('findstr /n .* %1') do (
if "%%k" == "bathome" set flag=true
if "!flag!" == "true" (
if not "%%k" == "" (echo %%k) else goto :eof
)
)
复制代码

随风

还有个问题。
bathome 在文档中都是单独占一行，还是在某行中含有bathome
如eutjbathomesd

是都在固定的行？还是不确定的行？

[ 本帖最后由 随风 于 2008-3-29 13:02 编辑 ]

梦想种子

用批处理有个问题不懂解决，就是用delims=时，即分隔符为回车符，会将“bathome”那一段落后的空行去掉，于是无法判断是否已经段落结束了。

用VBS倒容易解决。

set fso= createobject("scripting.filesystemobject")
set folder= fso.getfolder(".")
set files=folder.files
set res=fso.opentextfile("result.txt",8,1)
for each file in files
if lcase(fso.getextensionname(file)) = "txt" then
res.write getstr(file)
res.writeline
end if
next
function getstr(a)
flag=false
set t=fso.opentextfile(a)
do until t.atendofstream
s=t.readline
if s="bathome" then
flag=true
end if
if flag=true then
if len(s)<>0 then
getstr=getstr & s & vbcrlf
else
exit do
end if
end if
loop
end function
复制代码

youxi01

程序的效率跟 好多情况有关的
所以尽量把你的问题说细致！
或者 公布几个源文件，给大家参考！！

有些信息至关重要，比如：bathome这个词，在每个文件里，行位置相同吗？等等