前军教程网

中小站长与DIV+CSS网页布局开发技术人员的首选CSS学习平台

VBA|自动对文件夹中的全部图片建立网页,并以图片名附加说明

有如下文件夹:

要通过bat建立包含文件夹中全部图片的网页,如下:

上面的网页以图片的文件名作为图片说明,统一图片尺寸插入到网页中。

bat代码如下:

echo ^<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^> >picList.html

echo ^<html xmlns="http://www.w3.org/1999/xhtml"^> >>picList.html

echo ^<head^> >>picList.html

echo ^<title^>picList^</title^> >>picList.html

echo ^<style type=text/css^> >>picList.html

echo div{width:74.125^%%;} >>picList.html

echo div{margin^:auto^;} >>picList.html

echo img{display^:block^;margin^:auto;} >>picList.html

echo img{padding^:2px 22px;} >>picList.html

echo img{border^:0 red solid;} >>picList.html

echo a:link{text-decoration: none; color:#fff;} >>picList.html

echo ^</style^>^</head^> >> picList.html

echo ^<body^>^<div^> >>picList.html

for /f "tokens=1,2 usebackq delims=." %%b in (`dir /o:n /b`) do (

if not "%%c" == "bat" (

if not "%%c" == "html" (

echo ^<p style="text-indent:-2em;"^>%%b ↓^</p^> >>picList.html

echo ^<a href="%%b.%%c" title="%%b.%%c"^>^<img src="%%b.%%c" /^>^</a^> >>picList.html

)

)

)

echo ^</div^> >>picList.html

echo ^</body^> >>picList.html

echo ^</html^> >>picList.html

代码说明:

首先写入picList.html的头文件部分,包括css代码;

然后通过一个循环获取全部图片文件的文件名和扩展名,写入图片文字说明并插入图片;

最后是写picList.html文件的尾文件部分。

delims=.后面如果有空格,则文件名中如果有空格时则会出错;

dir /o:d /b:显示文件夹名或文件名(包括扩展名)。

-End-

发表评论:

控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言