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

[文件操作] 给非隐藏文件添加标志的批处理为何提示有不是内部或外部命令?

[复制链接]
发表于 2011-7-18 09:01:08 | 显示全部楼层 |阅读模式
  1. @echo off&setlocal ENABLEDELAYEDEXPANSION&chcp 936>nul

  2. rem 给当前目录内的非隐藏文件添加ok标志 20:53 2011-6-12
  3. rem (文件名含有“证券清算文件.txt”字符串的,扩展名为.ok的文件 不进行处理)

  4. (
  5. echo dt = CreateObject("scripting.filesystemobject"^).GetFile(WScript.Arguments(0^)^).DateLastModified
  6. echo WScript.Echo Split(dt, " "^)(0^) ^& "|" ^& Split(dt, " "^)(1^)
  7. )>%tmp%\getime.vbs

  8. set lf=^


  9. :: 上面必须空两行
  10. for /f %%a in ('copy/z %~s0 nul')do set cr=%%a

  11. for /f "tokens=1-2 delims==" %%a in ('set $out 2^>nul')do set %%a=

  12. for /f "delims=" %%a in (
  13.     %= dir命令后面跟文件通配符 =%
  14.     ' dir/a-d/b *.* 2^>nul ^|find /v "证券清算文件.txt" '
  15. )do if "%%~nxa" neq "%~nx0" if "%%~xa" neq ".ok" (

  16.     set "nxa=%%~nxa"
  17.     set "fa=%%~fa"

  18.     for /f "tokens=1-4 delims=-|" %%A in (
  19.         'cscript //nologo %tmp%\getime.vbs "!fa!"'
  20.     )do set y=%%A&set m=0%%B&set d=0%%C&set tm=0%%D

  21.     set ymd=!y!!m:~-2!!d:~-2!

  22.     for %%p in ($out!ymd!)do set "%%p=!%%p!%%~nxa|%%~za|!ymd!|!tm:~-8!\n"

  23.     set file=!ymd!证券清算文件.txt
  24.     set/p=<nul>"!nxa!.ok"
  25.     set/p=<nul>!file!.ok
  26.     echo !nxa!&echo ................................... OK^^!
  27. )

  28. for /f "tokens=1-2 delims==" %%a in ('set $out')do (
  29.     set s=%%b&set file=%%a
  30.     for %%f in ("!cr!!lf!")do set/p=!s:\n=%%~f!<nul>"!file:*$out=!证券清算文件.txt"
  31. )
  32. pause
复制代码
发表于 2011-7-18 09:48:54 | 显示全部楼层
应该是单双引号转义问题
在“”内的函数转换出来的头尾‘’没起作用
建议将单引放在最后引用函数的外边
同时注意|的转义^|
  1. for %%f in ('!cr!!lf!')do set/p=!s:\n=%%~f!<nul>"!file:*$out=!证券清算文件.txt"
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 07:04 , Processed in 0.016689 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表