@echo off & cd /d "%~dp0"
setlocal enabledelayedexpansion
chcp 65001 & cls
set "dir_txt=Youdict优词英语词源词典(21230条).txt"
(
	for /f "usebackq delims=" %%i in ("%dir_txt%") do (
		if "!last!"=="中文词源" echo %%i
		set "last=%%i"
	)
)>"chinese.txt"
pause&exit
复制代码

<# :
cls&echo off&cd /d "%~dp0"&rem bat存为ANSI/GB2312编码
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal \"%~f0\"|out-string|Invoke-Expression"
pause
exit
#>
$oldfile="Youdict优词英语词源词典(21230条).txt";
$newfile="结果.txt";
if(-not (test-path -literal $oldfile)){write-host ('"'+$oldfile+'" 未找到');exit;}
[System.Collections.ArrayList]$s=@();
$enc=New-Object System.Text.UTF8Encoding $False;
$text=[IO.File]::ReadAllLines($oldfile, $enc);
for($i=0;$I -lt $text.length;$i++){
    $line=$text[$i].trim();
    if($line -eq '中文词源'){
        $word=$text[$i-1].trim();
        $detail=$text[$i+1].trim();
        if($detail -notmatch '^[a-z]'){$detail=$word+' '+$detail;}
        [void]$s.add($detail);
    }
}
[IO.File]::WriteAllLines($newfile, $s, $enc);
复制代码