请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996

请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

went

密码went
test.bat 保存utf-8编码

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

zaqmlp

<# :
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);
复制代码

cl2039996

回复 2# went


    已经给您转过去了，20元，辛苦

cl2039996

回复 3# zaqmlp


    您好，Went大佬先完成的，我感谢您也热心帮忙。