[文本处理] 求助批处理提取包含多个关键字的整行数据，按不同关键字生成新文件的不同列

hnzwei

求助，多个文件，每个文件中都有几行包含日期、问题、方法的关键字数据行，但各个文件中包含关键字的行位置以及关键字在该行中的位置可能不固定。原文件如下：
文件1中:
日期：20201115
问题：1   
方法：2

文件2中：
日期：20201120
问题：3
方法：4

文件3中：
日期：20201121
问题：5
方法：6
。。。。。。。。
想批量提取这些文件中的包含日期、问题、方法的整行数据合并生成新的文件，如果能生成EXCEL文件最好，内容如下 ：
日期：20201115     问题：1      方法：2
日期：20201120     问题：3      方法：4
日期：20201121     问题：5      方法：6

hnzwei

回复 11# Batcher 可以了，非常感谢！！！我改成这样：echo %%a, !str:~1!就可以了，加了个,号就可以分列了

hnzwei

回复 11# Batcher 能提取出来文件名，但跟第一个关键行的内容合并到一起了，合并成一列了  比如：001.txt日期：2021-02-03了   想要的是001.txt    日期    问题     ...

Batcher

回复 10# hnzwei


你把5楼代码第15行改成这样试试：
echo %%a !str:~1!

hnzwei

回复 5# Batcher 你好！非常感谢之前你帮我写的按不同关键字生成新文件的不同列的批处理，还想再麻烦指导一下，如何把当前文件名也写到新文件的列中，新文件某一行的内容：旧文件名    旧文件A关键行     旧文件B关键行     旧文件C关键行 。。。。

qixiaobin0715

看样子不能想当然，抱歉！

Batcher

回复 7# qixiaobin0715


    如果你测试成功了，请把完整代码发出来看看吧。

qixiaobin0715

回复 5# Batcher

第8行 set "str=!str!,%%b" 中!str!,是否是多余的，直接set "str=%%b"
第15行改为echo,!str!就行了。

hnzwei

回复  hnzwei 请参考Q-04把bat文件保存为ANSI编码：
Batcher 发表于 2020-11-15 20:59

OK了，不是一般的感谢，谢谢！牛哥！！！！

Batcher

回复 1# hnzwei

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    set "str="
    for /f "delims=" %%b in ('type "%%a"') do (
        set "line=%%b"
        if "!line:日期：=!" neq "!line!" (
            set "str=!str!,%%b"
        ) else if "!line:问题：=!" neq "!line!" (
            set "str=!str!,%%b"
        ) else if "!line:方法：=!" neq "!line!" (
            set "str=!str!,%%b"
        )
    )
    echo,!str:~1!
))>"1.csv"
复制代码

请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ

hnzwei

ivor 发表于 2020-11-15 19:30

加上Powershell路径后，提示”拒绝访问“

hnzwei

ivor 发表于 2020-11-15 19:30

执行时，提示"powershell 不是内部或外部命令.....",无法运行

ivor

#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

(dir *.txt |  %{
$txt = [Io.File]::ReadAllText("$_",[Text.Encoding]::UTF8)
$date = [Regex]::Match($txt, "日期：\d+")
$question = [Regex]::Match($txt, "问题：\d+")
$method = [Regex]::Match($txt, "方法：\d+")
($date.Value,$question.Value,$method.Value) -join "`t"
} )| tee new.csv
复制代码