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

lj670

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

Five66

编码全部ansi
运行后会生成新文件OO.txt

@echo off&chcp 936
(
for /f "eol=? delims=" %%a in (00.txt) do (
set "line=%%a"
setlocal enabledelayedexpansion
set line=《!line:*《=!
for /f "tokens=1 delims=》" %%b in ("!line!") do (
endlocal
set "line=%%b》"
)
if "!nil!" == "%nil%" endlocal
setlocal enabledelayedexpansion
echo:!line!
endlocal
))>>OO.txt
echo done!!!
pause&exit/b
复制代码

银八

针对楼主所说每行只有一组《》,可用这段代码试下（ASCII）
bat和txt放同一路径下直接运行

@echo off&chcp 65001
for /f "tokens=1,2,3 delims=《》" %%a in (00.txt) do echo 《%%b》>>新文件.txt
复制代码

aloha20200628

回复 1# lj670

cmd窗口一行流》须在本坛第三方下载 sed.exe http://bcn.bathome.net/s/tool/index.html?key=sed 置于 00.txt 同目录运行...

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

lj670

回复 4# aloha20200628 下载4.9版sed，bat和文本为ANSI，运行一闪而过没有作用。

lj670

回复 3# 银八 运行后文本只有《》了，书名号里的文字也没有了

lj670

回复 2# Five66 运行后生成的新文件是对的，请问大神能否直接修改原文件呢？

77七

@echo off
rem 批处理和文本全部保存为ansi编码
cd /d "%~dp0"
(for /f "useback delims=" %%a in ("00.txt") do (
	for /f "tokens=2 delims=《》" %%b in ("#%%a#") do (
		echo 《%%b》
	)
)) > $
move $ "00.txt"
pause
复制代码

lj670

回复 8# 77七 运行后，完美，谢谢！

aloha20200628

回复 5# lj670

已用一楼的示例文件 00.txt 测试通过... 楼主用以下代码能看见屏显的正确结果吗？

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

lj670

回复 10# aloha20200628 频显是对的，但没有输出，原文件没变

aloha20200628

回复 11# lj670

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

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

lj670

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

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
复制代码

hfxiang

回复 12# aloha20200628

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