pcl_test

回复 15# 228630386
嗯，是图片问题，19张的标记为空格，而系统把空格也当成没有，所以看上去是没有标记，但实际是有的

228630386

回复 16# pcl_test


    请问有办法解决么? 因为我们通常都是用中文来标记的，但有些图片他来身自带空格，如果这也记录上，对我们统计数据带来不便。

pcl_test

回复 17# 228630386

@echo off
setlocal enabledelayedexpansion
set n=0
set m=0
for /f "delims=" %%a in ('dir /a-d /s /b *.jpg') do (
set /a n+=1
set str=
for /f "delims=" %%b in ('findstr "rdf:Bag" "%%a"') do set str=%%b
set str=!str: =!
if "!str:~-8,-1!" == "rdf:Bag" set /a m+=1
)
set /a t=%n%-%m%
echo 该目录下共有%n%张JPG图片，其中%m%张有标记，%t%张无标记
pause
复制代码

228630386

回复 18# pcl_test


    非常感谢，我明天回到公司再测试一下，辛苦两位大侠！！！

CrLf

来一个系统原生的办法

1>1/* :
@echo off
for /f "delims=" %%a in ('dir /a-d /b /s *.jpg ^| cscript -nologo -e:jscript "%~0"') do (
	echo %%a>"%%a.txt"
)
pause & exit /b
*/

var filelist = WScript.StdIn.ReadAll().split(/\r?\n/)

var fso = new ActiveXObject('Scripting.FileSystemObject')
var shell = new ActiveXObject('Shell.Application')

var FLAG=0,NOFLAG=0

for(var i in filelist){
	var fullpath = fso.GetFile(filelist[i]).Path
	var namespace = shell.Namespace(fullpath.replace(/[^\\]*$/,''))
	var parsename = namespace.ParseName(fullpath.replace(/.*\\/,''))
	var value = namespace.GetDetailsOf(parsename,namespace.GetDetailsOf('',18)==='标记'?18:5)
	if(/\S/.test(value)){FLAG++}else{NOFLAG++}
}

WSH.Echo('该目录下共有'+(FLAG+NOFLAG)+'张JPG图片，其中'+FLAG+'张有标记，'+NOFLAG+'张无标记')
复制代码

228630386

回复 20# CrLf


    但为什么有时候会弹出错误信息? exit，不能自动关闭窗口?

CrLf

回复 21# 228630386


    你改过代码了吧，我第 20 行没出现过 exit

228630386

回复 18# pcl_test


    http://pan.baidu.com/s/1kT67xVh
    亲，代码又遇到另一个问题，明明有标记，又被记录成没有标记了，这是有问题的图片。

228630386

回复 22# CrLf


    是喔，哪什么情况下可以自动关闭窗口呢? exit不可以的么?

pcl_test

回复 24# 228630386
回复 23# 228630386
使用CrLf  20楼的代码，你要运行完退出，只要改第6行代码为exit即可，即去掉pause &

228630386

回复 25# pcl_test


    非常感谢，终于可以了。代码在测试中，暂时没有问题。

asy666

来学习一下