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

cl2039996

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

went

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

1. @echo off & cd /d "%~dp0"
   
2. setlocal enabledelayedexpansion
   
3. chcp 65001 & cls
   
4. set "dir_txt=Youdict优词英语词源词典(21230条).txt"
   
5. (
   
6.         for /f "usebackq delims=" %%i in ("%dir_txt%") do (
   
7.                 if "!last!"=="中文词源" echo %%i
   
8.                 set "last=%%i"
   
9.         )
   
10. )>"chinese.txt"
    
11. pause&exit

复制代码

zaqmlp

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

复制代码

cl2039996

回复 2# went


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

cl2039996

回复 3# zaqmlp


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