【完成】50元求修改epub名字

lxh623

接着上一个修改epub。
文件名是：
四十二章经 - 後汉 迦叶摩腾共法兰译 第 1 卷 - AI 大藏经：文言文转白话文，无障碍阅读
分别功德论 - 失译附後汉录 第 1 卷 - AI 大藏经：文言文转白话文，无障碍阅读
分别功德论 - 失译附後汉录 第 002 卷 - AI 大藏经：文言文转白话文，无障碍阅读
分别功德论 - 失译附後汉录 第 003 卷 - AI 大藏经：文言文转白话文，无障碍阅读

文本a的内容：
T17n0784--四十二章经--後汉 迦叶摩腾共法兰译
T39n1794--注四十二章经--宋 真宗皇帝注
X37n0669--四十二章经注--宋 守遂注　明 了童补注
X37n0670--四十二章经解--明 智旭著
X37n0671--四十二章经疏钞--清 续法述

第一，尽量把文件名繁体转简体。这一步可以另外操作。
第二，文件名含有002、003及以上的，移动到新建文件夹。
第三，最开始到空格的字符，前后加上--，去搜索文本a，找到，就重新命名。
谢谢！

flashercs

保存为 重命名epub.bat,编码是ANSI.

1. <#*,:
   
2. @echo off
   
3. cd /d "%~dp0"
   
4. set "batchfile=%~f0"
   
5. Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
   
6. pause
   
7. exit /b
   
8. #>
   
9. #
   
10. # a.txt内容放这里
    
11. $a = @'
    
12. T17n0784--四十二章经--後汉 迦叶摩腾共法兰译
    
13. T39n1794--注四十二章经--宋 真宗皇帝注
    
14. X37n0669--四十二章经注--宋 守遂注  明 了童补注
    
15. X37n0670--四十二章经解--明 智旭著
    
16. X37n0671--四十二章经疏钞--清 续法述
    
17. '@
    
18. 
    
19. $arr = $a.Trim() -split '[\r\n]+'
    
20. Add-Type -AssemblyName Microsoft.VisualBasic
    
21. 
    
22. # 繁体转简体
    
23. Get-ChildItem -Path . | Where-Object { $_ -is [IO.FileInfo] -and $_.FullName -ne $env:batchfile -and $_.Name -ne 'a.txt' } | Rename-Item -NewName {
    
24.   [Microsoft.VisualBasic.Strings]::StrConv($_.Name, [Microsoft.VisualBasic.VbStrConv]::SimplifiedChinese, 0)
    
25. } -Verbose -ErrorAction SilentlyContinue
    
26. 
    
27. # 文件名含有002、003及以上的，移动到新建文件夹
    
28. $di = [IO.Directory]::CreateDirectory('新建文件夹')
    
29. Get-ChildItem -Path . | Where-Object { $_ -is [IO.FileInfo] -and $_.FullName -ne $env:batchfile -and $_.Name -ne 'a.txt' -and $_.Name -match '\b\d{3}\b' } | Move-Item -Destination ($di.FullName) -Verbose
    
30. 
    
31. # 最开始到空格的字符，前后加上--，去搜索文本a，找到，就重新命名
    
32. Get-ChildItem -Path . | Where-Object { $_ -is [IO.FileInfo] -and $_.FullName -ne $env:batchfile -and $_.Name -ne 'a.txt' } | Rename-Item -NewName {
    
33.   $k = ($_.BaseName -split '\s+')[0]
    
34.   $newBaseName = $arr -match "--$([regex]::Escape(${k}))--" | Select-Object -First 1
    
35.   if ($newBaseName) {
    
36.     $newBaseName + $_.Extension
    
37.   } else {
    
38.     $_.Name
    
39.   }
    
40. } -Verbose -ErrorAction SilentlyContinue
    

复制代码

lxh623

请查收。谢谢！
节日快乐！