@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
¸´ÖÆ´úÂë

@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
¸´ÖÆ´úÂë

@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
¸´ÖÆ´úÂë

@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
¸´ÖÆ´úÂë

gawk -F"^¡ï¡ï¡ï¡ï¡ï" "/^¡ï¡ï¡ï¡ï¡ï/{F_n=gensub(/[!&<>/\|:*?\"]+/,\"\",\"g\",$2)}F_n{print $0^>F_n}" Îı¾.txt
¸´ÖÆ´úÂë

@set @v=1 /*
@echo off
set "tF=" &set/p "tF=Ô­Îļþ£º"
if not defined tF exit/b
(cscript.exe -e:jscript "%~f0" %tF%)
exit/b
*/
var v=WScript.arguments;
var fso=new ActiveXObject('scripting.filesystemobject');
var fr=fso.opentextfile(v(0));
var alllines=fr.readall().split('\r\n'); fr.close();
var n, nL=alllines.length, outF='';
for (n=0; n<nL; ++n)
	if (alllines[n].indexOf('¡ï') != -1) {
		if (outF != '') fw.close();
		outF=alllines[n].replace(/[¡ï\?]/g, '');
		outF+='.txt';
		fw=fso.opentextfile(outF, 2, true);
	}
	else fw.write(alllines[n]+'\r\n');
WSH.quit(0);
¸´ÖÆ´úÂë

@echo off &@cls&chcp>nul 65001
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
¸´ÖÆ´úÂë

gawk -vRS="Module[0-9]+ unit[0-9]+" "F_n{print F_n\"\n\"$0>F_n\".txt\"}{F_n=RT}" ×îаËÄ꼶ÍâÑаæÓ¢Óïϲá¿ÎÎÄ.txt
¸´ÖÆ´úÂë

<# : batch portion (begins PowerShell multi-line comment block)
@echo off & setlocal
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause
exit 
#>
$word = New-Object -ComObject Word.Application
$file = (ls a.docx).FullName
$doc = $word.Documents.Open($file)
$text = $doc.Content.Text
$pattern =[regex] '(?i)(Module\d+\s+unit\d+)[\r\n]*(.+?)(?=Module\d+\s+unit\d+|$)'
$paragraphs = [regex]::matches($text,$pattern)
$doc.Close()
$word.Quit()
$paragraphs.ForEach({[IO.File]::WriteAllText( $_.Groups[1].Value+ '.txt',$_.Groups[2].Value,[Text.Encoding]::Default)})
¸´ÖÆ´úÂë