[文本处理] [已解决]求助批处理删除TXT文本 书名号之外的内容

lj670

当前文件夹内00.txt文件，文本内容若干行，删除每行书名号《》之外的内容，每行只有一个《》，输出最好是修改原文件
示例：
10《一场梦一场秋雨》20句
162《远方的人》长短
20《曾经来过》保留
处理后
《一场梦一场秋雨》
《远方的人》
《曾经来过》

lj670

回复 22# hfxiang

完美可用，感谢感谢！分加完了，改天在加。

lj670

回复 21# aloha20200628

这个太全面了，都完美运行，感谢感谢！

lj670

回复 20# qixiaobin0715

感谢，运行完美！

hfxiang

回复 17# lj670

呵呵，可以的

sed -i -r "s/^.*(《.*).*$/\1/" 00.txt
复制代码

aloha20200628

假设源文件 00.txt 中包含 1-n 对《...》

一。以下代码删除第一个《 字符之前的内容，覆写源文件...

sed -i "s/[^《》]*《/《/" 00.txt
复制代码

二。以下代码删除最后一个 》字符之后的内容，覆写源文件...

sed -i "s/》[^《》]*$/》/" 00.txt
复制代码

三。以下代码删除每对《...》以外的所有内容，覆写源文件...

sed -i -r "s/[^《》]*《([^《》]+)》[^《》]*/《\1》/g" 00.txt
复制代码

qixiaobin0715

回复 18# lj670
加不加分倒是无所谓，积分又没什么用处， 解决问题才是关键：

@echo off
(for /f "tokens=1* delims=《" %%a in (00.txt) do (
    if "%%b"=="" (
        echo,《%%a
    ) else (
        echo,《%%b
    )
))>temp
del 00.txt
ren temp 00.txt
pause
复制代码

未经测试。
上面代码只能处理每行都存在书名号的文本，如果存在不含书名号的行，此行的结果可能会有误差，代码就需要修改。

lj670

回复 16# aloha20200628
谢谢，受教了！

lj670

回复 14# qixiaobin0715 完美可用，分没有了，明天再给加分！大神能否再写一个，还是这个文本，只删除《左书名号之前的内容，其他的保留，
谢谢！
例如：
162《远方的人》长短
20《曾经来过》保留
运行删除后：
《远方的人》长短
《曾经来过》保留

lj670

回复 15# hfxiang 可以可以，测试完美，这个最简化，厉害！大神能否再写一个，还是这个文本，只删除《左书名号之前的内容，其他的保留，
谢谢！
例如：
162《远方的人》长短
20《曾经来过》保留
运行删除后：
《远方的人》长短
《曾经来过》保留

aloha20200628

回复 15# hfxiang

如源文件中每行包含多个《...》字段，用15楼代码匹配最后一个《...》字段，用12楼代码则匹配所有《...》字段，因实况自取吧...

hfxiang

回复 12# aloha20200628

尝试用-i参数，看是不是可简化如下 ：
[code]
sed -i -r "s/^.*(《.*》).*$/\1/" 00.txt

qixiaobin0715

@echo off
(for /f "tokens=1-2 delims=《》" %%a in (00.txt) do if "%%b"=="" (echo,《%%a》) else echo,《%%b》)>temp
del 00.txt
ren temp 00.txt
pause
复制代码

lj670

回复 12# aloha20200628 这个完美！！👍👍

aloha20200628

回复 11# lj670

还是用一行流解决吧...

sed -r "s/[^《》]*《([^《》]+)》[^《》]*/《\1》/g" "00.txt">"_" & move /y "_" "00.txt"
复制代码