批处理能实现从txt文件中提取文件名并重命名目录下文件吗?

发布网友

我来回答

共1个回答

热心网友

不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
<# :
cls
@echo off
rem 将当前文件夹里的文件依据一个指定txt文本文件里列出的新文件名按顺序重命名
mode con lines=3000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$txtfile="文件名列表.txt";

$self=get-item -liter $args[0];
$path=$self.Directory.FullName;

if(-not (test-path -liter $txtfile)){write-host ('"'+$txtfile+'" not found');exit;};
$text=[IO.File]::ReadAllLines($txtfile,[Text.Encoding]::GetEncoding('GB2312'));

$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;

[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -liter $path|?{($_.Name -ne $txtfile) -and ($_.Name -ne $self.Name) -and ($_ -is [System.IO.FileInfo])}|%{$_.Name});
$arr=[ExpDir]::Sort($files);
for($i=0;$i -lt $arr.Count;$i++){
if($i -lt $text.Count){$arr[$i]+$c+$text[$i];}
}追问

运行成功但是并未修改成功是怎么回事？

按运行后窗口标题栏中的提示联系我