批处理改名

freesoft00 · 发表于 2024-2-26 20:51:55

文件夹内都是jpg图片文件，
名称规律是：姓名+下划线+数字+空格+名称+下划线+身份证号.jpg
例如：（蓝色部分是固定的）
张三_23 幼_130455199002020322.jpg
李四_23 幼_130455199002020611.jpg
王五_23 幼_130455199002020724.jpg
......
======================
现在有一个txt文档，比如名字是 ming.txt
内容规律如下：姓名，性别，工号，身份证号....（用英文逗号分隔开，每行一个）
例如：
张三,男,20220003,130455199002020322
李四,男,20220004,130455199002020611
王五,男,20220005,130455199002020724

......
=========================
现在想根据 ming.txt把文件夹内的jpg图标都改名
改成姓名_工号.jpg

怎么使用for 还有findstr完成，想着这2个命令可以

紧急追踪 · 发表于 2024-3-9 20:17:31

感谢分享

Monkeydance · 发表于 2024-3-5 17:49:53

很实用的

freesoft00 · 发表于 2024-3-4 23:13:26

dos时代菜鸟发表于 2024-3-4 21:14
原来原始 ming.csv 中没有身份证号，那就换个思路。

见附件，把含有 ming.csv 及 *.jpg 的 ...

嗯，有身份证号的话不会重复，它们可能做文档的时候没有弄上去，所以前面的批处理就会有重名的情况。
这些都留着，测试测试

dos时代菜鸟 · 发表于 2024-3-4 21:14:37

本帖最后由 dos时代菜鸟于 2024-3-5 19:01 编辑

@ECHO OFF
setlocal ENABLEDELAYEDEXPANSION
if "%~1"=="" goto :end1
set "dir1=%~1"
set "file1=%~dp0222.txt"
PUSHD %1
echo.>"!file1!"
for /f "tokens=1,3 delims=," %%c in (ming.csv) do (
call :ren1 %1 %%c %%d
)
goto :end2
:ren1
for %%i in (%2*.jpg) do (
for /f "tokens=3 delims=_." %%l in ("%%i") do (
set "str1=%%l"
if not "!str1:~15,3!"=="" (
echo %%~ni %2_%3
echo %%i,!str1!,%2_%3.jpg>>"!file1!"
ren "%%i" "%2_%3.jpg"
exit /b
)
)
)
exit /b
:end1
echo “参数不对”！
echo.
:end2
pause

复制代码

222-2.7z (83.5 KB, 下载次数: 8)
原来原始 ming.csv 中没有身份证号，那就换个思路。

见附件，把含有 ming.csv 及 *.jpg 的文件夹拖放到 222-1.cmd 中，就可以得到结果，并生成记录文件 222.txt ,可以解决姓名重名问题。

分析原始 jpg 文件名称包含信息的特点和更名后的文件名特点，区别是身份证号位数要长一些，第15-18 位有内容。
文件夹和 ming.csv 中都有姓名重名情况，但是，没有身份证与工号的一一对应关系。所以，输出一个更名对应关系的记录文件是必要的。

如此，就算重名，如果这个 jpg 文件已经不是原始名字了，就不予考虑。
遍历 ming.csv ，一行一行的过，在文件夹中找到第一个没改名的 jpg （改过的不算，找下一个），就改名，然后以此类推，同时把改名记录存入 222.txt 。

dos时代菜鸟 · 发表于 2024-3-4 20:28:10

本帖最后由 dos时代菜鸟于 2024-3-4 20:29 编辑

222.7z (552 Bytes, 下载次数: 1)

把名为 1 的文件夹拖放到批处理 222.cmd 上，就可以实现效果。注意 ming.txt 和 222.cmd 在同一个位置。

swc1209 · 发表于 2024-3-4 19:00:40

advancerename

2012myjoys · 发表于 2024-2-28 08:10:40

学习学习

wang1126 · 发表于 2024-2-28 05:45:43

学习学习

wskxwypl · 发表于 2024-2-27 19:53:30

赞，谢谢分享。

daixq021 · 发表于 2024-2-27 19:27:09

楼主：很早以前我从好压软件里面提取制作的批“量改名”单文件版工具，能够满足你的使用需求。把下面的中文文字删除之后就可以登陆网盘下载了
https:删//pan.baidu.除com/s/删1m9Z1z-kNhdClYOBo2NVEzg?pwd除=2yg5

sxxyjszxmzj · 发表于 2024-2-27 16:31:48

进来学习

likeyouli · 发表于 2024-2-27 11:38:09

本帖最后由 likeyouli 于 2024-2-27 14:36 编辑

freesoft00 发表于 2024-2-27 09:10
工号不会重复，只有名字会，用什么工具或者代码都可以，只要完成任务什么都可以

Sub wuyouchuti()
Dim t As Workbook, str, dan As Range
Set t = Workbooks.Open("D:\ming.csv") '这里根据实际更改，要求ming.csv和图片必须在同一目录。
'以下代码对ming.csv拆列，要求表格的a列为姓名，性别，工号，身份证号
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
      Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
      :=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 2)), _
      TrailingMinusNumbers:=True
'以下代码增加一列姓名排序,F列可实现没有重复名字的为张三_222222，有重复名字的为张三_222222_1，_2等。
Range("E1").FormulaR1C1 = "=IF(COUNTIF(C[-4],RC[-4])>1,COUNTIF(R1C1:RC[-4],RC[-4]),"""")"
Range("E1").AutoFill Destination:=Range("e1", "e" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("F1").FormulaR1C1 = "=IF(RC[-1]="""",RC[-5]&""_""&RC[-3],RC[-5]&""_""&RC[-3]&""_""&RC[-1])"
Range("F1").AutoFill Destination:=Range("F1", "F" & Cells(Rows.Count, 1).End(xlUp).Row)
str = t.Path
tu = Dir(str & "\")
Do
If tu <> "ming.csv" Then
s3 = Mid(tu, Application.Find("_", tu, Application.Find("_", tu) + 1) + 1, 18)
Set dan = ActiveSheet.UsedRange.Find(s3)
s1 = str & "\" & tu
s2 = str & "\" & dan.Offset(0, 2) & ".jpg"
Name s1 As s2
End If
tu = Dir
Loop Until tu = ""
End Sub

可实现没有重复名字的为张三_222222，有重复名字的为张三_222222_1，_2，  也就是没有重复名字的不后缀序号，有重复名字的才会后缀序号。刚测试了，没问题。

promrhxq · 发表于 2024-2-27 11:34:19

感谢分享好东东

eone1984 · 发表于 2024-2-27 10:52:38

谢谢分享！收藏了

tanglf · 发表于 2024-2-27 10:09:49

来看看解决方案

szwp · 发表于 2024-2-27 10:02:11

按身份证关联即可，不需要findstr

freesoft00 · 发表于 2024-2-27 09:12:59

nttwqz 发表于 2024-2-27 00:17
没这必要，工号又不会重。

for /f "skip=1 tokens=1-4 delims=," %%a in ('type ming.csv') do for /f "delims=" %%A in ('dir /a /b "%%a_*.jpg" 2^>nul') do echo ren "%%A" %%a_%%c.jpg

我昨天实际的代码，dir没有跟身份证，只限定了姓名，所以会有重复。
按你的这个ming.csv文件如果有提供身份证信息，那么是不会有重复的
我

freesoft00 · 发表于 2024-2-27 09:10:24

本帖最后由 freesoft00 于 2024-2-27 09:16 编辑

likeyouli 发表于 2024-2-26 23:55
不用批处理用vba可以吗？？用vba应该可以给重名的增个序号，如果行明天我试试，还有姓名_工号不会同时有 ...

工号不会重复，只有名字会，用什么工具或者代码都可以，只要完成任务什么都可以

2012dariuscn · 发表于 2024-2-27 09:08:49

学习学习

yuguotqing · 发表于 2024-2-27 08:48:41

感謝你的分享

reninhouse · 发表于 2024-2-27 08:35:15

进来学习下

2012mulinsen · 发表于 2024-2-27 07:47:47

感谢各位大佬，我也需要

yyz2191958 · 发表于 2024-2-27 07:22:24

nttwqz 发表于 2024-2-26 22:09
其实有很多批量命名软件的，ming必须ansi编码

很给力!

yyz2191958 · 发表于 2024-2-27 07:21:03

gy0715 发表于 2024-2-26 21:49
1.打开MiniRenamer选择文件夹，勾选文本模式，把文件名复制到excel
2.把ming.txt内容复制到excel
3.把上 ...

赞一个!

oh312 · 发表于 2024-2-27 07:18:52

赞，谢谢分享。

nttwqz · 发表于 2024-2-27 00:17:02

freesoft00 发表于 2024-2-26 22:35
可以了

没这必要，工号又不会重。

likeyouli · 发表于 2024-2-26 23:55:28

本帖最后由 likeyouli 于 2024-2-27 00:04 编辑

freesoft00 发表于 2024-2-26 22:35
可以了

不用批处理用vba可以吗？？用vba应该可以给重名的增个序号，如果行明天我试试，还有姓名_工号不会同时有重复的吧，如果有就必须得增个序号了

freesoft00 · 发表于 2024-2-26 22:42:28

nttwqz 发表于 2024-2-26 22:09
其实有很多批量命名软件的，ming必须ansi编码

改名软件，我测试了advanced_renamer，也许是不太会用，没有弄成

freesoft00 · 发表于 2024-2-26 22:37:15

gy0715 发表于 2024-2-26 21:49
1.打开MiniRenamer选择文件夹，勾选文本模式，把文件名复制到excel
2.把ming.txt内容复制到excel
3.把上 ...

这个软件第一次用，文本模式算是这个特色，但是你说的excel文档中的步骤没有太明白

另外，它的文本模式不支持按alt，按列模式选择删除或者输入内容，如果可以会更方便些

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

[求助] 批处理改名

点评

评分

评分

评分

点评

点评

点评