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

[文件管理] 批处理实现-以网页套图形式浏览当前文件夹中的图片

[复制链接]
发表于 2011-7-28 15:52:48 | 显示全部楼层 |阅读模式
本帖最后由 Hello123World 于 2011-7-28 16:24 编辑
  1. ::以网页形式(套图形式)浏览当前文件夹中的图片
  2. @echo off&SetLocal EnableDelayedExpansion
  3. For /f "delims=" %%i in ('dir /s /b') do (Set a=%%~pi
  4. Set a=!a:\= !)
  5. For %%i in (%a%) do Set b=%%i
  6. ::获取文件夹名
  7. Set n=0
  8. (
  9. Echo ^<Html^>
  10. Echo ^<Title^>
  11. Echo %b%
  12. Echo ^</Title^>
  13. Echo ^<Body^>
  14. For /r %%i in (*.jpg *.bmp *.gif *.png) do (Echo ^<Img Src="%%i"^>^<p^>
  15. Set n=1)
  16. ::将当前文件夹中所有的图片地址写入到html文件中。
  17. Echo ^</Body^>
  18. Echo ^</Html^>
  19. )>"%b%.html"
  20. If %n%==0 Msg * "当前文件夹中没有图片" & del "%b%.html"
  21. If %n%==1 Start "" "%b%.html"

复制代码
自己有用,纯粹练手,欢迎试用,有虫告诉我。
发表于 2011-7-28 16:12:39 | 显示全部楼层
不知道用document.image来写会怎么样,刚好在学习这个.呵呵,同时期待LZ的VBS与JS的大作
 楼主| 发表于 2011-7-28 16:21:09 | 显示全部楼层
document.image是什么?呵呵,我也是刚学html。
发表于 2011-8-27 13:37:43 | 显示全部楼层
楼主太牛了!!!谢谢谢谢
发表于 2011-8-29 13:20:49 | 显示全部楼层
这厉害~
批处理竟然也可以这样~
发表于 2025-6-4 19:53:38 | 显示全部楼层
很喜欢的方式,不知有无可能完善画面成适应页宽与百分百显示,若其能成,当可作浏览图片常驻用。
发表于 2025-6-4 21:08:32 | 显示全部楼层
回复 6# 娃娃

试试以下批处代码 》用系统默认浏览器浏览当前目录及其子目录中的 *.jpg, *.png 图片文件(图片文件类型名可自添加),预设等宽值=400 可自定义...

  1. @echo off
  2. (for /r %%F in (*.jpg, *.png) do echo,^<img src="file:///%%F" width=400 ^>^<p^>)>"test.html"
  3. "test.html"
复制代码

评分

参与人数 1技术 +1 收起 理由
娃娃 + 1 测试,好使!

查看全部评分

发表于 2025-6-4 21:34:05 | 显示全部楼层
回复 7# aloha20200628


   自定义宽度比预期待更佳。骑着骡驴思骏马,有没有进一步完善的可能(已经很好了):可设置成看书那样的双页?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-16 20:19 , Processed in 0.019565 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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