Board logo

标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了 [打印本页]

作者: cl2039996    时间: 2022-4-15 18:59     标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了

本帖最后由 cl2039996 于 2022-5-8 16:30 编辑

请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了
作者: went    时间: 2022-4-15 19:56

本帖最后由 went 于 2022-4-15 20:09 编辑

密码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    时间: 2022-4-15 21:01

  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    时间: 2022-4-15 21:23

回复 2# went


    已经给您转过去了,20元,辛苦
作者: cl2039996    时间: 2022-4-15 21:24

回复 3# zaqmlp


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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2