批处理如何获取照片拍摄日期重命名？

pan528 · 发表于 2013-10-25 11:34:10

批处理如何获取照片拍摄日期重命名？

通常一个照片图像文件会生成三个日期：
拍摄日期 2013/8/8
创建日期 2013/10/25
修改日期 2013/8/14

%~tI 获取的是修改日期，如何才能获取“拍摄日期”？请高手们指点。

一、示例材料
链接：http://pan.baidu.com/share/link? ... 0&uk=2248425695 密码：adz6
二、要求
请用DOS批处理完成，不要使用第三方软件。

terse · 发表于 2013-10-25 13:05:37

问题是要足够的信息匹配
有时图像的eif信息不够就出错的

@echo off
set "n=[1-9][0-9][0-9][0-9]:[0-9][0-9]:[0-9][0-9]"
for /f "tokens=1* delims=:" %%i in ('findstr /i "%n%" "*.jpg" ^|more^|findstr /i "\.jpg:%n%"') do (
echo 文件 %%i 拍摄日期 %%j
)
pause

复制代码

pan528 · 发表于 2013-10-25 22:05:16

果真水平高，能获取照片拍摄日期，重命名就容易了。谢谢！

xxpinqz · 发表于 2013-10-26 11:37:47

话说，这个思路厉害。。

batman · 发表于 2013-10-26 12:32:27

本帖最后由 batman 于 2013-10-26 12:43 编辑

来个VBS的，生成的列表在photo_list.txt中：

Dim objSHELL, objFSO
Set objSHELL = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim Path, File, objPath, objFile, Name, vbStr
Path = objFSO.GetFile(WScript.ScriptFullName).ParentFolder
Set objPath = objSHELL.NameSpace(Path)
For Each File In objFSO.GetFolder(Path).Files
If LCase(objFSO.GetExtensionName(File)) = "jpg" Then
Name = File.ShortName
Set objFile = objPath.ParseName(Name)
For i = 0 To 50
If objPath.GetDetailsOf(,i) = "相片拍照日期" Then _
vbStr = vbStr & Name & vbTab & objPath.GetDetailsOf(objFile, i) & vbCrLf
Next
End If
Next
Set objFile = Nothing
Set objPath = Nothing
Set objSHELL = Nothing
objFSO.OpenTextFile("photo_list.txt", 2, True).Write vbStr
Set objFSO = Nothing
WScript.Echo "OK"

复制代码

pan528 · 发表于 2013-10-29 07:50:06

本帖最后由 pan528 于 2013-10-29 07:52 编辑

回复 5# batman

试了一下，运行后只生成了一个空白的 photo_list.txt 文本，不知道哪里有错？！

pan528 · 发表于 2013-10-29 11:35:14

回复 2# terse

根据terse的代码，套写了一个获取二层目录下照片的目录名（“国家和地区信息”）+“拍摄日期”的重命名命令（有点烦锁）：

命令放在ok目录下。
如：
C:\111\ok\俄罗斯\e.JPG
C:\111\ok\俄罗斯\伏尔加河\b.JPG
C:\111\ok\俄罗斯\伏尔加河\c.JPG
C:\111\ok\俄罗斯\莫斯科\a.JPG

改名后：
C:\111\ok\俄罗斯\俄罗斯_2013-08-12 01-03.JPG
C:\111\ok\俄罗斯\伏尔加河\俄罗斯_伏尔加河_2013-08-11 01-18.JPG
C:\111\ok\俄罗斯\伏尔加河\俄罗斯_伏尔加河_2013-08-12 01-03.JPG
C:\111\ok\俄罗斯\莫斯科\俄罗斯_莫斯科_2013-08-08 16-26.JPG

:: 适用条件：二层目录下的JPG照片
@echo off
title 获取照片的eif信息和目录信息重命名
:: 1、首先获取照片的eif信息重命名
set "n=[1-9][0-9][0-9][0-9]:[0-9][0-9]:[0-9][0-9]"
for /f "delims=" %%a in ('dir /b /o /s /ad') do (
for /f "tokens=1-10* delims=:" %%i in ('findstr /i "%n%" "%%a\*.jpg" ^|more^|findstr /i "\.jpg:%n%"') do (
ren "%%i:%%j" "%%k-%%l-%%m-%%n%%~xj"
))
:: 2、再获取照片的目录信息加入重命名
setlocal enabledelayedexpansion
for /f "tokens=1-6* delims=" %%a in ('dir /b /o /s') do (
set "m=%%d_%%e_%%~nxf"
if /i "!m:~-3!" == "jpg" ren "%%~dpf%%d\%%e\%%f" "%%d_%%e_%%f"
set "n=%%d_%%~nxe"
if /i "!n:~-3!" == "jpg" ren "%%~dpe%%d\%%e" "%%d_%%e"
)
pause

复制代码

terse · 发表于 2013-10-29 13:09:26

回复 7# pan528
觉得tokens=1-10* 这样用还不如 tokens=1-3* 这样可以照顾后面目录多或少的问题
下面判断后缀换直接dir *.jpg不行吗？
另感觉所有的改名可一次在第一FOR完成

DAIC · 发表于 2013-10-29 16:50:02

用PowerShell试试吧
http://bbs.bathome.net/thread-27022-1-1.html

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

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

[文件操作] 批处理如何获取照片拍摄日期重命名？

评分