ai20110304

@echo off & setlocal enabledelayedexpansion
cd /d %~dp0

::去重，保留唯一前缀名
for /f "delims=-" %%i in ('dir /b /a-d *.jpg') do (
	if "!str!" neq "%%~ni"  set /a "n+=1" & set "a!n!=%%~ni" & set "str=%%~ni" 
)

REM echo;n=%n%
(for /l %%i in (1 1 %n%) do (	
	REM echo;!a%%i!   ==== %%i
	for /f "delims=" %%x in ('dir /b /a-d *.jpg ^|find /c "!a%%i!"') do	echo;!a%%i! 页数：%%x
))>list.txt

pause>nul 
复制代码

ai20110304

回复 4# bataiping


   功能明明实现了的。你把页数那几字去掉就行。   “页数：” 只是我给你添加上去好看的。哎。看来适合把原原本本的发给你才觉得实现了