[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 pcl_test 于 2015-3-27 17:56 编辑

回复 2# 228630386
  1. 1>1/* :
  2. @echo off & setlocal enabledelayedexpansion
  3. set n=1
  4. for /f "delims=" %%a in ('dir /a-d /b /s *.jpg ^| cscript -nologo -e:jscript "%~0"') do (
  5. if !n! == 1 (set name=%%a & >"!name!.txt" echo,%%a) else (if not defined %%a set %%a=Def & >>"!name!.txt" echo,%%a)
  6. set /a n+=1
  7. )
  8. exit
  9. */
  10. var filelist = WScript.StdIn.ReadAll().split(/\r?\n/)
  11. var fso = new ActiveXObject('Scripting.FileSystemObject')
  12. var shell = new ActiveXObject('Shell.Application')
  13. var FLAG=0,NOFLAG=0
  14. var s=""
  15. for(var i in filelist){
  16. var fullpath = fso.GetFile(filelist[i]).Path
  17. var namespace = shell.Namespace(fullpath.replace(/[^\\]*$/,''))
  18. var parsename = namespace.ParseName(fullpath.replace(/.*\\/,''))
  19. var value = namespace.GetDetailsOf(parsename,namespace.GetDetailsOf('',18)==='标记'?18:5)
  20. s+=value+"\n"
  21. if(/\S/.test(value)){FLAG++}else{NOFLAG++}
  22. }
  23. WSH.Echo('共有'+(FLAG+NOFLAG)+'张JPG图片,其中'+FLAG+'张有标记,'+NOFLAG+'张无标记\n'+'标记内容包括:\n'+s)
复制代码
1

评分人数

TOP

回复 5# CrLf
不是浏览器的问题,用手机比较多,然后疏懒了,就没再注重缩进问题了,呵呵

TOP

回复 8# 228630386
上传log文件,再举例说明下“查找有没有"少图"或者"空文件夹"的指定内容”

TOP

回复 11# 228630386
是每个子文件夹里都有一个log文件吗?

TOP

本帖最后由 pcl_test 于 2015-3-31 18:04 编辑

回复 13# 228630386
log中的每行最后都带标记吗?
如果是文件还是比较容易区分
如果是文件夹就很难区分了
如E:\完成图\201503\3-3\3.8 包包及配件专场-90 完成图\5\AS30007911\30007911    子文件夹,既可以看成是E:\完成图\201503\3-3\3.8 包包及配件专场-90 完成图\5\AS30007911\30007911这个路径和子文件夹这个标记,也可以认为是E:\完成图\201503\3-3\3.8 包包及配件专场-90 完成图\5\AS30007911\30007911    子文件夹整个为路径

TOP

本帖最后由 pcl_test 于 2015-3-31 18:35 编辑

回复 15# 228630386
log中的每行最后都带标记吗?因为无法匹配最后一部分字段是否是标记还是路径的一部分,上面已经举例说明

TOP

回复 17# 228630386
对路径很难排除,因为程序很难区分路径和标记

TOP

回复 17# 228630386
初步方法
http://pan.baidu.com/s/1i3Dxov7

TOP

回复 21# 228630386

iconv.exe用来转换字符编码的,你的log文件是UTF-8编码,需要转为ANSI编码,批处理才可以执行

TOP

TOP

本帖最后由 pcl_test 于 2015-3-31 21:21 编辑

回复 27# 228630386
回复 29# 228630386
http://pan.baidu.com/s/1eQkxfFG
已更正

TOP

本帖最后由 pcl_test 于 2015-4-1 13:45 编辑

回复 31# 228630386
合并不去重http://pan.baidu.com/s/1CV5IQ
合并去重http://pan.baidu.com/s/1hqowNM8

TOP

返回列表