中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]BAT(图片提取)分享与问题求教

bozhou
初级用户

积分 38
发帖 19
注册 2007-4-25
状态离线

『楼主』: [原创]BAT(图片提取)分享与问题求教

Photo.bat
代码如下：
@echo off
title=图片提取 By bozhou
for /f "tokens=1,2,3 delims=- " %%i in ('date /t') do set dd=%%i%%j%%k
echo Pic_00000000_00>a.txt
if not exist D:\Photo\. md D:\Photo
dir /b D:\photo\>>a.txt
for /f "tokens=3 delims=_" %%a in (a.txt) do set /a n=%%a
del a.txt /q
:begin
cls
echo 1.提取图片并删除图片
echo 2.删除不想要的图片
echo 3.退出

set /p input=请选择:
if %input%==1 Goto aaa else (
   if %input%==2 Goto bbb else (
      if %input%==3 exit else (
         Echo 请输入1或2或3!!!&&pause>nul&&goto begin
)
)
)

:aaa
set /a n=n+1
cd /d "%USERPROFILE%"\"Local Settings"\"Temporary Internet Files"\
dir /a /b /s *.jpg
if errorlevel 2 Echo 没有图片文件&&pause>nul&&(
  del a.txt /q
  goto begin
)
if errorlevel 0 dir /a /b /s *.jpg >a.txt
if %n% lss 10 (
if not exist D:\photo\Pic_%dd%_0%n%\. md D:\Photo\Pic_%dd%_0%n%
for /f "delims=" %%a in (a.txt) do copy "%%a" D:\photo\Pic_%dd%_0%n%\&&del "%%a" /q
)
if %n% gtr 9 (
if not exist D:\photo\Pic_%dd%_%n%\. md D:\Photo\Pic_%dd%_%n%
for /f "delims=" %%a in (a.txt) do copy "%%a" D:\photo\Pic_%%dd%_%n%\&&del "%%a" /q
)
del a.txt /q
Goto begin

:bbb
dir /a /b /s "%USERPROFILE%"\"Local Settings"\"Temporary Internet Files"\*.*>a.txt
for /f "delims=" %%a in (a.txt) do del "%%a" /q
del a.txt /q
goto begin

============================================
   功能：将IE临时文件夹里的格式为.jpg的图片，提取出来并copy到D:\photo\下以“Pic_当前日期_序列”为文件夹名字的文件夹里。
   未解决的问题：就是当IE临时文件夹里没有目标文件是，依然会在D:\photo\下建立一文件夹。希望高手指教。

?????????????????????????????????
dir /a /b /s *.jpg
if errorlevel 2 Echo 没有图片文件&&pause>nul&&(
  del a.txt /q
  goto begin
)
if errorlevel 0 dir /a /b /s *.jpg >a.txt
?????????????????????????????????

[ Last edited by bozhou on 2007-9-7 at 11:51 AM ]

2007-9-7 11:35

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: