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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2024-10-27 14:36 | 只看该作者

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

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

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Five66

Rank: 5 Rank: 5

帖子: 835
积分: 1160
技术: 114
捐助: 0
注册时间: 2021-8-26

2楼

发表于 2024-10-27 16:20 | 只看该作者

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

1 评分人数

lj670: 谢谢技术 + 1

银八

列兵

Rank: 1

帖子: 10
积分: 25
技术: 0
捐助: 0
注册时间: 2024-9-17

3楼

发表于 2024-10-27 17:22 | 只看该作者

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

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

aloha20200628

Rank: 5 Rank: 5

帖子: 874
积分: 1456
技术: 189
捐助: 0
注册时间: 2021-10-13

4楼

发表于 2024-10-27 19:13 | 只看该作者

本帖最后由 aloha20200628 于 2024-10-27 19:16 编辑

回复 1# lj670

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

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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

5楼

发表于 2024-10-27 19:39 | 只看该作者

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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

6楼

发表于 2024-10-27 19:43 | 只看该作者

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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

7楼

发表于 2024-10-27 19:48 | 只看该作者

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

77七

中校

Rank: 6 Rank: 6

帖子: 1699
积分: 2787
技术: 342
捐助: 50
注册时间: 2022-9-18

8楼

发表于 2024-10-27 20:26 | 只看该作者

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

1 评分人数

lj670: 完美技术 + 1

bat小白，请多指教！谢谢！

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

9楼

发表于 2024-10-27 21:34 | 只看该作者

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

aloha20200628

Rank: 5 Rank: 5

帖子: 874
积分: 1456
技术: 189
捐助: 0
注册时间: 2021-10-13

10楼

发表于 2024-10-27 22:07 | 只看该作者

回复 5# lj670

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

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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

11楼

发表于 2024-10-27 22:45 | 只看该作者

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

aloha20200628

Rank: 5 Rank: 5

帖子: 874
积分: 1456
技术: 189
捐助: 0
注册时间: 2021-10-13

12楼

发表于 2024-10-27 23:02 | 只看该作者

本帖最后由 aloha20200628 于 2024-10-27 23:07 编辑

回复 11# lj670

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

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

Rank: 1

帖子: 29
积分: 52
技术: 0
捐助: 0
注册时间: 2023-3-23

13楼

发表于 2024-10-27 23:21 | 只看该作者

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

qixiaobin0715

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 2852
积分: 4174
技术: 430
捐助: 0
注册时间: 2016-2-20

14楼

发表于 2024-10-28 08:20 | 只看该作者

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

1 评分人数

lj670: 完美技术 + 1

hfxiang

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

15楼

发表于 2024-10-28 10:30 | 只看该作者

回复 12# aloha20200628

尝试用-i参数，看是不是可简化如下

：
[code]
sed -i -r "s/^.*(《.*》).*$/\1/" 00.txt

1 评分人数

lj670: 完美技术 + 1