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

[文本处理] 根据日期提取文件的bat代码怎么修改?

[复制链接]
 楼主| 发表于 2015-5-29 21:17:40 | 显示全部楼层
[没有提示]回复 14# yangfengoo
黑屏就是过了,没有提示输入日期!
 楼主| 发表于 2015-5-29 22:17:00 | 显示全部楼层
[测试结果,存在问题]回复 7# yangfengoo
7楼代码测试结果!
 楼主| 发表于 2015-5-29 22:52:03 | 显示全部楼层
回复 17# 7016427
@echo off&setlocal EnableDelayedExpansion
REM 视频mov,照片jpeg,录音wav
set /p x=W外勤/Z主任:
if /i "%x%"==w set #=外勤
if /i "%x%"==z set #=主任
set /p d="请输入视频日期,按回车键:"

cd /d h:\DCIM\100MEDIA\
for /f "tokens=1-3*" %%a in ('dir /a:%-d% /t *.mov^|findstr /b [0-9]') do (
        if "%%a"=="!d:~,4!-!d:~5,2!-!d:~8,2!" (
echo f | xcopy "%%d" /y "e:\视频\%#%\%d%\"
)
)
IF not EXIST "e:\视频\%#%\%d%" (echo %d%,没有视频提取!) ELSE (echo %d%,提取视频完毕! )   
pause
测试,文件夹能按日期命名,但是,以上红色代码语句并没有生效。提取的文件没有按照代码定义的“外勤“或”主任”文件夹存放。
发表于 2015-5-30 07:28:04 | 显示全部楼层
if /i "%x%"=="w" set #=外勤
if /i "%x%"=="z" set #=主任
 楼主| 发表于 2015-5-30 21:15:27 | 显示全部楼层

【已解决】再次请高手,修改这个代码

@echo off
setlocal EnableDelayedExpansion
set /p x=W外勤/Z主任:
if /i "%x%"=="w" set #=外勤
if /i "%x%"=="z" set #=主任
set /p d="输入日期:"
REM 补零
for /f "tokens=1-3 delims=/" %%i in ("%d%") do (
    set yyyy=%%i
    set mm=10%%j
    set dd=10%%k
)
set d=!yyyy!-!mm:~-2!-!dd:~-2!

cd /d h:\DCIM/100MEDIA\
for /f "tokens=1-3*" %%a in ('dir /a:%-d% /t *.mov^| findstr /b [0-9]') do (
    if "%%a"=="!d:~,4!-!d:~5,2!-!d:~8,2!" (
echo f | xcopy "%%d" /y "e:\视频\%#%\%d%\"
    )
)
IF not EXIST "e:\视频\%#%\%d%" (echo %d%,没有视频提取!) ELSE (echo %d%,提取视频完毕!
)   
pause>nul
3楼老师谢谢老师!

评分

参与人数 1PB -10 收起 理由
Batcher -10 重复发帖

查看全部评分

 楼主| 发表于 2015-5-30 21:18:24 | 显示全部楼层
[执行错误]回复 1# 7016427
执行时,创建日期文件夹名错误!
测试后,显示错误的日期文件夹名:2015-05-30-10-10,正确的应该显示:2015-05-30
发表于 2015-5-30 22:00:42 | 显示全部楼层
delims=/改成delims=-
 楼主| 发表于 2015-5-30 22:19:38 | 显示全部楼层

【已解决】根据日期提取文件的bat代码怎么修改?

[谢谢]回复 19# yangfengoo
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-18 14:35 , Processed in 0.018424 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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