[已解决]将所有文件夹下的txt文件正文里带书名号的文字提取出来作为后缀加到文件夹名

crownking1983 · 发表于昨天 15:37

本帖最后由 crownking1983 于 2026-10-18 02:25 编辑

求将所有文件夹下的txt文件正文里带书名号的文字提取出来，作为后缀重命名加到每一个文件夹名后面。实例如下:

一堆文件夹

2026-10-17 国内电影    这个文件夹下有一个名为001.txt文件，文件打开正文是：“影评：《给阿嫲的情书》，这个电影………………”
2026-10-18 国内电影    这个文件夹下有一个名为yp.txt文件，文件打开正文是：“影评：《我的父辈》《我和我的祖国》，这两个电影………………”
2026-10-19 国内电影    这个文件夹下有一个名为abcsd.txt文件，文件打开正文是：“影评：《你好，李焕英》，这个电影………………”
2026-10-20 国内电影    这个文件夹下有一个名为jjtaa.txt文件，文件打开正文是：“影评：《人在囧途》《泰囧》《港囧》，徐峥囧途三部曲，这三个电影………………”
2026-10-21 国内电影    这个文件夹下有一个名为myheq.txt文件，文件打开正文是：“影评：《我不是药神》《孤注一掷》，王传君的神作，这写电影………………”

有多个txt文件的每一个txt文件里只要包含《》就都提取。
批处理运行后，所有的文件夹均以txt正文中包含《》的文字作为后缀重命名文件夹，如果《》中的文字包含重命名文件夹时不支持的字符，如《你好，李焕英》中的逗号不能作为重命名文件夹使用，则用下划线_替代。如果硬txt文档中有多个《》，则用空格隔开。

以上内容处理后文件夹名分别变为

2026-10-17 国内电影给阿嫲的情书
2026-10-18 国内电影我的父辈我和我的祖国
2026-10-19 国内电影你好_李焕英
2026-10-20 国内电影人在囧途泰囧港囧
2026-10-21 国内电影我不是药神孤注一掷

添加后缀时，原文件名末尾增加一个空格，与后缀之间有个空格以免与原文件夹连在一起。

跪求大神帮忙，好人一生平安

77七 · 发表于昨天 18:41

AI：

重命名.bat

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>
$root = (Get-Location).Path
function Read-Txt($path) {
$b = [IO.File]::ReadAllBytes($path)
if ($b.Length -ge 2 -and $b[0] -eq 255 -and $b[1] -eq 254) {
return [Text.Encoding]::Unicode.GetString($b, 2, $b.Length - 2)
}
if ($b.Length -ge 2 -and $b[0] -eq 254 -and $b[1] -eq 255) {
return [Text.Encoding]::BigEndianUnicode.GetString($b, 2, $b.Length - 2)
}
$utf8 = New-Object System.Text.UTF8Encoding -ArgumentList $false, $true
try {
return $utf8.GetString($b)
}
catch {
return [Text.Encoding]::GetEncoding(936).GetString($b)
}
}
$dirs = Get-ChildItem -LiteralPath $root -Recurse |
Where-Object { $_.PSIsContainer } |
Sort-Object { $_.FullName.Length } -Descending
foreach ($dir in $dirs) {
$names = New-Object System.Collections.ArrayList
$seen = @{}
$files = Get-ChildItem -LiteralPath $dir.FullName -Filter '*.txt' |
Where-Object { -not $_.PSIsContainer } |
Sort-Object Name
foreach ($file in $files) {
try {
$content = Read-Txt $file.FullName
}
catch {
Write-Warning "Cannot read: $($file.FullName)"
continue
}
foreach ($m in [regex]::Matches($content, '《([^《》\r\n]+)》')) {
$name = [regex]::Replace(
$m.Groups[1].Value,
'[\\/:*?"<>|,，\x00-\x1F]',
'_'
).Trim().TrimEnd('.')
if ($name -ne '' -and -not $seen.ContainsKey($name)) {
$seen[$name] = $true
[void]$names.Add($name)
}
}
}
if ($names.Count -eq 0) { continue }
$suffix = [string]::Join(' ', [string[]]$names.ToArray())
if ($dir.Name.EndsWith(' ' + $suffix, [StringComparison]::OrdinalIgnoreCase)) {
continue
}
$newName = $dir.Name + ' ' + $suffix
try {
Rename-Item -LiteralPath $dir.FullName -NewName $newName -ErrorAction Stop
Write-Host "$($dir.Name) => $newName"
}
catch {
Write-Warning "Rename failed: $($dir.FullName) : $_"
}
}

复制代码

crownking1983 · 发表于昨天 19:07

77七发表于 2026-10-17 18:41
AI：

重命名.bat

你好大神运行后提示错误内容如下

crownking1983 · 发表于昨天 19:07

77七发表于 2026-10-17 18:41
AI：

重命名.bat

你好大神运行后提示错误内容如下

nvoke-Expression : 所在位置行:53 字符: 19
+                '[\\/:*?"<>|,锛孿x00-\x1F]',
+                ~
数组索引表达式丢失或无效。
所在位置行:53 字符: 19
+                '[\\/:*?"<>|,锛孿x00-\x1F]',
+                ~
方法调用中缺少“)”。
所在位置行:53 字符: 19
+                '[\\/:*?"<>|,锛孿x00-\x1F]',
+                ~~~~~~~~~~~~~~~~~~~~~~~~
表达式或语句中包含意外的标记“\\/:*?"<>|,锛孿x00-\x1F]',
            '_'
         ).Trim().TrimEnd('.')
         if ($name -ne '' -and -not $seen.ContainsKey($name)) {
            $seen[$name] = $true
            [void]$names.Add($name)
         }
      }
}
if ($names.Count -eq 0) { continue }
$suffix = [string]::Join(' ', [string[]]$names.ToArray())
if ($dir.Name.EndsWith(' ' + $suffix, [StringComparison]::OrdinalIgnoreCase)) {
      continue
}
$newName = $dir.Name + ' ' + $suffix
try {
      Rename-Item -LiteralPath $dir.FullName -NewName $newName -ErrorAction Stop
      Write-Host "$($dir.Name)”。
所在位置行:53 字符: 19
+                '[\\/:*?"<>|,锛孿x00-\x1F]',
+                ~
foreach 循环的表达式部分后面缺少右“)”。
所在位置行:79 字符: 60
+       Write-Warning "Rename failed: $($dir.FullName) : $_"
+                                                          ~
字符串缺少终止符: "。
所在位置行:41 字符: 31
+    foreach ($file in $files) {
+                            ~
语句块或类型定义中缺少右“}”。
所在位置行:33 字符: 25
+ foreach ($dir in $dirs) {
+                      ~
语句块或类型定义中缺少右“}”。
所在位置行:1 字符: 59
+ ... ntent -literal 'C:\360极速浏览器X下载\1\修改.bat'|Out-String|Invoke-Expression
+                                                       ~~~~~~~~~~~~~~~~~
+ CategoryInfo       : ParserError: (

[Invoke-Expression], ParseException
+ FullyQualifiedErrorId : MissingArrayIndexExpression,Microsoft.PowerShell.Commands.InvokeExpressionCommand

aloha20200628 · 发表于昨天 20:52

本帖最后由 aloha20200628 于 2026-10-18 00:36 编辑

试试以下代码，代码第2行假设主目录是 c:\360极速浏览器X下载可自定义，另假定被处理的 *.txt 文件编码均为简中编码（ansi 或 gb2312）...

test.bat

<# ::
@echo off &setlocal &set "td=c:\360极速浏览器X下载"
cd /d "%td%" &powershell -nop -c "iex(${%~f0}|out-string)" &exit/b
#>
dir -dir -r|sort fullname -desc|%{
$g=1; $d=$_.fullname; $nf=$_.name; dir $d -file *.txt|%{
if ($g) {
$sv=([regex]::matches((gc $_.fullname -raw), '《([^》]+)》') | % { $_.groups[1].value }) -join ' '
if ($sv) { ren $d "$nf $sv"; $g=$null } } } }
exit

复制代码

77七 · 发表于昨天 20:56

crownking1983 发表于 2026-10-17 19:07
你好大神运行后提示错误内容如下

nvoke-Expression : 所在位置行:53 字符: 19 ...

脚本保存为ANSI编码试试。

crownking1983 · 发表于 3 小时前

77七发表于 2026-10-17 20:56
脚本保存为ANSI编码试试。

太牛逼了！竟然还有去重功能！！神了！

crownking1983 · 发表于 3 小时前

aloha20200628 发表于 2026-10-17 20:52
试试以下代码，代码第2行假设主目录是 c:\360极速浏览器X下载可自定义，另假定被处理的 *.txt 文件编码均 ...

牛逼啊你的代码简短的多，而且经常帮助我，非常的感谢啊！

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]将所有文件夹下的txt文件正文里带书名号的文字提取出来作为后缀加到文件夹名

评分

评分