批处理怎样根据文本列表重命名论文文件（列表内容包含原文件名）

wjh6088 · 发表于 2019-12-18 10:30:29

写论文需要下载多个论文参考，下载的文件名如下，保存在同一文件夹下

自主可控环境下三维海量态势显示优化方法.pdf
机载CPU板硬件故障诊断平台的设计研究.pdf
计算机硬件常见故障及维修技巧实践分析.pdf
基于OpenSPARC T1的浮点运算单元微架构的研究.pdf

复制代码

导出文件的参考文献包含详细的作者及日期等信息如下

[1] 赵祥师,汪浩,乔兵克等.机载CPU板硬件故障诊断平台的设计研究[J].数字通信世界,2019,(5):149,73.DOI:10.3969/J.ISSN.1672-7274.2019.05.119.
[2]王世雄.计算机硬件常见故障及维修技巧实践分析[J].数字化用户,2019,25(2):162.
[3] 占伟伟,李坪泽,王辉等.自主可控环境下三维海量态势显示优化方法[J].指挥信息系统与技术,2019,10(2):80-84.DOI:10.15908/j.cnki.cist.2019.02.015.
[4] 张若愚,谢龙.基于OpenSPARC T1的浮点运算单元微架构的研究[J].集成电路应用,2019,36(2):15-17,21.DOI:10.19339/j.issn.1674-2583.2019.02.003.

复制代码

现在需要依次把下载的pdf文件改为参考文献格式的文件名，如

计算机硬件常见故障及维修技巧实践分析.pdf
改为
王世雄.计算机硬件常见故障及维修技巧实践分析[J].数字化用户,2019,25(2):162.

复制代码

根据参考文献txt中的内容改名，如改名失败，有提示信息，其中文件的排列不一定按顺序，/等不能用在文件名中的符号可以改为另一个符号代替，个人水平有限，求助高手们，谢谢了

terse · 发表于 2019-12-18 13:57:35

看你给出的可在参考文献txt内容中按PDF文件名搜索，但实际运行中不确定是否会有错误搜索

WHY · 发表于 2019-12-19 16:47:56

本帖最后由 WHY 于 2019-12-20 16:29 编辑

$path = 'E:\Test\'; #存放pdf文件的目录路径
$arr = gc -Literal ($path + '参考文献.txt') -ReadCount 0;
$reg = '[' + ([IO.Path]::GetInvalidFileNameChars() -join '').Replace('\','\\') + ']';
forEach( $f In (dir -Literal $path -filter *.pdf | ?{$_ -is [IO.FileInfo]}) ){
$name = [regex]::Escape($f.BaseName); #转义特殊字符
if( $m = $arr -match $name ){
$newFile = $m[0].Trim() -replace $reg, ''; #删除非法文件名字符
$newFile = $path + $newFile + $f.Extension;
move -Literal $f.fullName -Dest $newFile -Force -WhatIf;
}
}

复制代码

WhatIf: 对目标“项: E:\Test\基于OpenSPARC T1的浮点运算单元微架构的研究.pdf 目标: E:\Test\[4] 张若愚,谢龙.基于OpenSPARC T1的浮点运算单元微架构的研究[J].集成电路应用,2019,36(2)15-17,21.DOI10.19339j.issn.1674-2583.2019.02.003..pdf”执行操作“移动文件”。
WhatIf: 对目标“项: E:\Test\机载CPU板硬件故障诊断平台的设计研究.pdf 目标: E:\Test\[1] 赵祥师,汪浩,乔兵克等.机载CPU板硬件故障诊断平台的设计研究[J].数字通信世界,2019,(5)149,73.DOI10.3969J.ISSN.1672-7274.2019.05.119..pdf”执行操作“移动文件”。
WhatIf: 对目标“项: E:\Test\自主可控环境下三维海量态势显示优化方法.pdf 目标: E:\Test\[3] 占伟伟,李坪泽,王辉等.自主可控环境下三维海量态势显示优化方法[J].指挥信息系统与技术,2019,10(2)80-84.DOI10.15908j.cnki.cist.2019.02.015..pdf”执行操作“移动文件”。
WhatIf: 对目标“项: E:\Test\计算机硬件常见故障及维修技巧实践分析.pdf 目标: E:\Test\[2]王世雄.计算机硬件常见故障及维修技巧实践分析[J].数字化用户,2019,25(2)162..pdf”执行操作“移动文件”。

wjh6088 · 发表于 2019-12-20 09:11:07

回复 3# WHY
非常感谢，这个代码怎么运行，感觉不是bat文件，运行不了

:L

Batcher · 发表于 2019-12-20 10:04:28

回复 4# wjh6088

PowerShell脚本的执行方法：
http://bbs.bathome.net/thread-31071-1-1.html

wjh6088 · 发表于 2019-12-20 10:14:09

本帖最后由 wjh6088 于 2019-12-20 10:23 编辑

回复 5# Batcher
winxp系统提示如下：

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.
C:\Documents and Settings\Administrator>powershell
'powershell' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
C:\Documents and Settings\Administrator>powershell
'powershell' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
C:\Documents and Settings\Administrator>

复制代码

另外我觉得for命令比较容易理解，思路是dir目录下的pdf，然后每一个pdf依次在参考文献.txt中查找，如果某一行的文本包含现在的pdf文件名，就更名。

Batcher · 发表于 2019-12-20 13:45:09

回复 6# wjh6088

XP没有自带PowerShell需要自己安装，多少年的老系统了，还不换成Win10吗

kswdiy · 发表于 2019-12-24 09:07:35

回复 7# Batcher

win10太大太卡老电脑没法用。。。

went · 发表于 2019-12-24 15:06:12

@echo off
for /f "delims=" %%i in ('dir /s /b *.pdf') do (
call :renPDF "%%~i"
)
echo 重命名完成
pause&exit
:renPDF
setlocal enabledelayedexpansion
for /f "delims=" %%i in (pdfInfo.txt) do (
set "line=%%i"
set "newLine=!line:%~n1=!"
if not "!newLine!"=="!line!" (
echo 查找PDF: "%~n1"
echo 找到TXT: "!line!"
set "line=!line::=.!"
set "line=!line:/=#!"
echo 执行重命名："%~1" --^> "!line!"
rename "%~1" "!line!"
echo ------------------------------------------------------------
setlocal disabledelayedexpansion
goto :eof
)
)
setlocal disabledelayedexpansion
echo TXT未找到："%~nx1"
echo ------------------------------------------------------------
goto :eof

复制代码

bat,pdf,pdfInfo.txt放到同一文件夹

wjh6088 · 发表于 2019-12-29 00:36:49

回复 9# went
好多天了，没想到还有朋友能答复，非常感谢，完美运行。

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

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

[文件操作] 批处理怎样根据文本列表重命名论文文件（列表内容包含原文件名）

评分

评分