qd2024

回复 11# 77七


    谢谢

qd2024

回复 14# hfxiang

qd2024

回复 13# qixiaobin0715


    成功 万分感谢

hfxiang

回复 1# qd2024

下载gawk（ http://bcn.bathome.net/tool/4.1.3/gawk.exe ）,确保文本及脚本都已以ANSI编码格式保存，执行后即可获取想要结果

gawk -F"^★★★★★" "/^★★★★★/{F_n=gensub(/[!&<>/\|:*?\"]+/,\"\",\"g\",$2)}F_n{print $0^>F_n}" 文本.txt
复制代码

qixiaobin0715

回复 10# qd2024
可以这样处理：
1.打开要处理的word文件；
2.另存为中，选择文件类型为纯文本文件，对话框中文本编码中选择其它编码中的GB2312，确定；
3.保存的文本中删除Module1 unit1这一行前面的所有行，删除文本中每行前面的全角空格；
4.将下面代码保存为ANSI编码，运行批处理文件。

@echo off
findstr /n /rb "Module[0-9]*.unit[0-9]" 1.txt>1.log
for /f "delims=:" %%a in (1.log) do set _%%a=true
del 1.log
for /f "tokens=1* delims=:" %%i in ('findstr /n .* 1.txt') do (
    if defined _%%i set "filename=%%j.txt"
    set "str=%%j"
    setlocal enabledelayedexpansion
    echo,!str!>>!filename!
    endlocal
)
pause
复制代码

terse

处理一下特殊字符吧

@echo off
set/p w=<%~fs0 >nul
set "s=★★★★★"
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (1.txt) do (
    set "str=%%~i"
    if "!str:~,5!" == "!s!" (
       set "file=!str:*%s%=!.txt"
       set "filename="
       call :loop "!file!"
    ) else if defined filename (>>"!filename!" echo;!str!)
)
pause & exit

:loop
for /f tokens^=1*delims^=:\/*?^<^>^" %%a in ("%~1") do (
     set filename=!filename!%%a
     call :loop "%%b"
)
exit /b
复制代码

77七

@echo off
for /f "delims=" %%a in ('type "文本.txt" ^| findstr /n .*') do (
	set "line=%%a"
	setlocal enabledelayedexpansion
	set "line=!line:*:=!"
	set "line2=!line:★★★★★=!"
	if not "!line2!" equ "!line!" (
		if not "!line2!" equ "★★★★★=" (
			set "line2=!line2:?=!"
			>xxx.temp echo !line2!
		)
	)
	set /p filename=<xxx.temp
	if "!line2!" equ "★★★★★=" (
		(echo,!line!)>>"!filename!.txt"
	)
	if "!line2!" equ "!line!" (
		(echo,!line!)>>"!filename!.txt"
	)
	endlocal
)
del xxx.temp
pause
复制代码

我想了很久，还是利用了临时文件...通用性不大...

qd2024

回复 8# qixiaobin0715


    链接：https://pan.baidu.com/s/1HW-cqi8FXobeeYjs-3wkQw?pwd=28h1
提取码：28h1
--来自百度网盘超级会员V9的分享

77七

回复 8# qixiaobin0715

大佬，我发现一个问题，像下面这行（倒数第11行），从"!The first"开始都被当成变量省略了

Lingling: Sorry! The first prize is only the book called Around the World in 80 Day!

qixiaobin0715

你把源文件发到网盘上，帮你测试看看。
复制你的示范文本没问题。

qd2024

回复 4# qixiaobin0715


提示   
系统找不到指定的路径。

不会用了

qd2024

回复 5# qixiaobin0715


    如果不做标记，怎样实现 ，我的目的是，给孩子把英语文章 一篇一篇 的放在单独的TXT文件里，
怎么做能更简单

感谢

qixiaobin0715

对示范中的文本来说，实际上不做标记也能实现。

qixiaobin0715

批处理保存为ANSI编码：

@echo off
setlocal enabledelayedexpansion
findstr /n /rb "★★★★★" 1.txt>1.log
for /f "delims=:" %%a in (1.log) do set _%%a=true
del 1.log
for /f "tokens=* delims=★" %%i in (1.txt) do (
    set /a n+=1
    if defined _!n! (
        for /f "tokens=1,2" %%a in ("%%i") do set filename=%%a %%b.txt
    )
    echo,%%i>>!filename!
)
pause
复制代码

qd2024

回复 2# qixiaobin0715


    收到 谢谢
如有非法字符，直接删除就行