[文本处理] 批处理如何将文本内指定的信息内容导出来？

saogz

各位好！
     本机有一些文件！内容如下！
     如1.txt 的内容：

------------------------------------------------------------------------
r865 | zhaoxiang | 2012-09-22 16:55:51 +0800 (星期六, 2012-09-22) | 2 行

已审核
QC:11905
------------------------------------------------------------------------
复制代码

2.txt的内容是：

------------------------------------------------------------------------
r705 | tangsz | 2012-09-21 11:23:35 +0800 (星期五, 2012-09-21) | 1 行

已审核 qc:10613
------------------------------------------------------------------------
复制代码

我现在想把其中从已审核开始的那一行，也就是第四行的内容开始一直到最后一行之前的内容导出来单独输出！请问怎么实现啊
比如1.txt  我想输出：
已审核
QC:11905

2.txt我想输出：
已审核 qc:10613

请各位帮忙！

zgh7878788

回复 7# CrLf


    VBS文件只找T.TXT文件，再把弹窗的内容重定向到TT.TXT里，怎么改？谢谢！

zgh7878788

回复 7# CrLf


    老师，请问你这个VBS怎么把弹窗的内容重定向到文本文件tt.txt里？谢谢！

apang

楼主表述不清，一会第四行、一会又是第三行。很难让人猜测。
姑且认为是从第四行开始，到倒数第二行结束。

terse

据五楼回复猜测 ”已审核“ 仅作误导 本意只是第三行开始  那样的话就看4楼代码  还是指含有”已审核“文本 第三行开始读取？

CrLf

用第三方工具sed：

@echo off
for %%a in (*.txt) do sed -n "H;${g;s/^.*\(已审核\)/\1/;p}" "%%a"
pause
复制代码

或用此代码保存为 test.vbs：

Set fso = CreateObject("SCripting.FileSystemObject")
For Each file In fso.GetFolder(".").Files
	If LCase(fso.GetExtensionName(file))="txt" Then
		text = fso.OpenTextFile(file,1).ReadAll
		WScript.Echo Right(text,Len(text)-InStr(text,"已审核"))
	End If
Next
复制代码

apang

@echo off
md New 2>nul
for /f "delims=" %%a in ('dir /a-d /b *.txt') do (
  setlocal enabledelayedexpansion
  (for /f "skip=3 usebackq delims=" %%b in ("%%a") do (
    if defined a echo,!a!
    set "a=%%b"
  ))>"New\%%a"
  endlocal
)
复制代码

saogz

您好！
    其实文本文件第三行的内容不一定是“已审核” 开头
    我其实是想从第三行开始读取数据，而第三行不一定是已审核三个字开头

yangfengoo

for %%a in (*.txt) do more +3 %%a >_%%a
复制代码

靓点

@echo off
复制代码

apang

保存为bat，与需要修改的文件放在同一位置，修改后的文件在New文件夹里，试试

@echo off
md New 2>nul
for /f "delims=" %%a in ('dir /a-d /b *.txt') do (
  setlocal enabledelayedexpansion
  (for /f "usebackq delims=" %%b in ("%%a") do (
    set "str1=!str2!"
    set "str2=%%b"
    if "!str1:~,3!"=="已审核" set flag=1
    if defined flag echo !str1!
  ))>"New\%%a"
  endlocal
)
复制代码