【完成】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.

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

lxh623

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