@echo off

setlocal enabledelayedexpansion


set "exiftool_path=C:\path\to\exiftool.exe"

set "image_folder=C:\path\to\image\folder"


for %%f in (%image_folder%\*.jpg) do (

  set "file_path=%%~dpf%%~nf"


  %exiftool_path% ^

    -overwrite_original ^

    -IPTC:ObjectName="New Object Name" ^

    -IPTC:Caption-Abstract="New Caption" ^

    -IPTC:Keywords="Keyword1;Keyword2" ^

    "!file_path!.jpg"

)
复制代码

@echo off
setlocal EnableDelayedExpansion



set "folder=C:\path\to\folder\with\images"

set "outfile=C:\path\to\output\file.txt"


echo "File, Creator, Title, Description" > %outfile%



for %%f in (%folder%\*.jpg) do (

    set "filename=%%~nxf"

    set "creator="

    set "title="

    set "description="


    for /f "tokens=1,2 delims=:" %%a in ('exiftool -s3 -iptc:Creator -iptc:ObjectName -iptc:Caption-Abstract "%%~f"') do (

        if "%%a"=="Creator" set "creator=%%b"

        if "%%a"=="ObjectName" set "title=%%b"

        if "%%a"=="Caption-Abstract" set "description=%%b"

    )


    echo "!filename!,!creator!,!title!,!description!" >> %outfile%

)
echo "Done."

pause
复制代码

rem 另存为 ANSI 编码
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit

Dim oWshShell, oFSO, s, oShell

Const file = "1.jpg"    '原文件。支持文件拖放，支持文件名作为命令行参数

Set oShell = CreateObject("Shell.Application")
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
s = oFSO.GetParentFolderName(WScript.ScriptFullname)
oWshShell.CurrentDirectory = s

If WScript.Arguments.Count > 0 Then
    For Each s In WScript.Arguments
        Call run(s)
    Next
Else
    Call run(file)
End If

Sub run(ByVal file)
    Dim s, oFolder, oFolderItem, i
    s = oFSO.GetAbsolutePathName(file)
    WScript.Echo s
    Set oFolder = oShell.NameSpace(oFSO.GetParentFolderName(s))
    Set oFolderItem = oFolder.ParseName(oFSO.GetFileName(s))
    For i = 0 To 500
        If oFolder.GetDetailsOf(Null, i) = "标记" Then s = i
    Next
    s = oFolder.GetDetailsOf(oFolderItem, s)
    If InStr(s, ";") Then
        For Each i In Split(s, ";")
            WScript.Echo "标记" & vbTab & Trim(i)
        Next
    Else
        WScript.Echo "标记" & vbTab & s
    End If
End Sub
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
	for /f "tokens=1* delims=:" %%a in ('exiftool "%%i" ^|find "Keywords"') do (
		set "str=%%b"
		set "str=!str:,=;!"
		set "str=!str: =!"
		echo %%~fi !str!
	)
))>1.txt
endlocal
pause
复制代码

@echo off
rem 如 str=参数1, 参数2
set /p str=输入参数:
for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
	exiftool -overwrite_original -iptc:Keywords="%str%" "%%i"
)
pause
复制代码

chcp 65001
rem 查看
exiftool -s -m -FileName -iptc:keywords -T *.jpg
rem 修改
exiftool -m -overwrite_original -iptc:keywords="values1,value2" *.jpg
rem exif与iptc属性都是unicode，请将脚本保存为utf-8编码
复制代码

Exiv2是一款开源的图像元数据编辑器，可以修改图片的IPTC信息，包括Keywords关键词。下面是修改图片IPTC:Keywords参数的示例：

假设我们要修改一张名为"example.jpg"的图片的Keywords参数为"landscape, nature, mountain"，则需要使用以下命令：

exiv2 -M "set Iptc.Application2.Keywords landscape nature mountain" example.jpg
其中，-M指定对元数据进行操作，"set Iptc.Application2.Keywords"表示设置IPTC的Keywords参数，后面跟着要设置的关键词，多个关键词之间用空格隔开。最后是要修改的图片文件名。

执行以上命令后，应该会看到如下输出：

setting Iptc.Application2.Keywords to landscape, nature, mountain
这说明Keywords参数已经成功被修改了。
复制代码