批處理批量將圖片路徑生成網頁格式

批處理批量將圖片路徑生成網頁格式最后由 pcl_test 于 -10-8 15:42俺有2萬多張圖片吧（就是那種超級的旗袍照那種吧），打算用來生成網頁圖片相冊。網上試過了wordpress模板啥的，也嘗試和測試了一上午，最后找到了三種解決方案VisualLightBox 加Wondershare Flash Gallery Factory Deluxe加按鍵精靈加 dreamweaver ，不過那樣操作效率實在是低下，所以想到了下面的解決辦法。假如我的目錄結構是 d盤下有images文件夾下，每個目錄下有 A1-A2000吧，那么能否修改一下，讓它不必在每個文件夾下右擊，而快速的生成呢？批處理學的二把刀，所以求助下大家了，多謝~~圖片批量生成網頁.bat

@echo off
title “圖片批量生成網頁”安裝程序·增強版 & mode con: cols=57 lines=20 & color 0A
echo 　━━━━━━━━━━━━━━━━━━━━━━━━━━
echo 　　　　　“圖片批量生成網頁”安裝程序·增強版
echo 　　　　　　　　　by　黔南逸士　2008-1-12
echo 　──────────────────────────
echo 　　　本程序可在文件夾右鍵菜單加入“圖片生成網頁”選項，
echo 　執行該選項可以在該文件夾中生成一個網頁，并把該文件夾下
echo 　的圖片一次性全部插入網頁中居中顯示。
echo 　　　我喜歡批處理，我的QQ：418751518
echo 　　　歡迎和我交流，大蝦小鳥，來者不拒！
echo 　　　我的人文博客http://cqh325.blog.163.com
echo 　━━━━━━━━━━━━━━━━━━━━━━━━━━
echo.
echo 　　　[1].默認安裝…………………程序默認設置
echo 　　　[2].向導模式安裝…………可以自定義設置
echo 　　　[3].卸載…………………從系統中移除程序
echo.
echo 　　　選擇后按回車鍵執行，不作選擇按回車鍵退出。
echo.
set /p setup=　　　請選擇（1/2/3）：
set regpath=HKCRFoldershell
if %setup%==3 goto uninstall
if %setup%==2 goto userinstall
if %setup%==1 goto defultinstall
goto :eof
:userinstall
cls
:loop1
set /p pictype=1.定義你想插入網頁的圖片類型，多種類型的用半角空格分開，輸入格式形如*.jpg *.bmp，請輸入：
if %pictype%== echo 沒有輸入，將按默認類型設置。 & set pictype=*.jpg *.bmp *.gif
if %pictype:~0,2% NEQ *. cls & echo 請輸入正確格式，不要忘了輸入星號和圓點！ & goto loop1
:loop2
set /p right=2.定義你的文件夾的右鍵菜單文字，請輸入：
if %right%== echo 沒有輸入，將按默認文字設置。 & set right=圖片生成網頁
:loop3
set /p open=3.生成網頁后是否自動打開(默認打開)？（y/n）
if %open%== echo 沒有選擇，將按默認設置。 & set open=y
echo 正在安裝，請稍候……
goto install
:defultinstall
set pictype=*.jpg *.gif *.bmp
set webpag=newhtm
set right=圖片生成網頁
set open=y
:install
::在windows文件夾下生成pic2htm.bat文件
 >%windir%pic2htm.bat echo @echo off
>>%windir%pic2htm.bat echo ::獲得當前文件夾名稱
>>%windir%pic2htm.bat echo set foldername=%%cd%%
>>%windir%pic2htm.bat echo :loop
>>%windir%pic2htm.bat echo set foldername=%%foldername:*=%%
>>%windir%pic2htm.bat echo set cd_tmp=%%foldername:=%%
>>%windir%pic2htm.bat echo if not %%cd_tmp%%==%%foldername%% goto loop
>>%windir%pic2htm.bat echo ::生成網頁代碼
>>%windir%pic2htm.bat echo dir %pictype% /b ^>nul 2^>nul ^&^& (
>>%windir%pic2htm.bat echo echo ^^^<title^^^>%%foldername%%^^^</title^^^> ^>%%foldername%%.htm
>>%windir%pic2htm.bat echo echo ^^^<p align=center^^^>^^^<b^^^>^^^<font color=#0000FF size=6^^^>%%foldername%%^^^</font^^^>^^^</b^^^>^^^</p^^^> ^>^>%%foldername%%.htm
>>%windir%pic2htm.bat echo echo ^^^<p align=center^^^> ^>^>%%foldername%%.htm
>>%windir%pic2htm.bat echo for /f delims= %%%%i in ('dir %pictype% /b') do echo ^^^<img border=0 src=/skin/default/image/nopic.gif width=800 ^^^>^^^<br^^^>%%%%i^^^<br^^^>^^^<br^^^> ^>^>%%foldername%%.htm
>>%windir%pic2htm.bat echo echo ^^^</p^^^> ^>^>%%foldername%%.htm
if /i %open:~0,1% NEQ n (echo start  %%foldername%%.htm >>%windir%pic2htm.bat)
>>%windir%pic2htm.bat echo goto end )
>>%windir%pic2htm.bat echo start mshta vbscript:msgbox(該文件夾下沒有%pictype%圖片，如果你想把其他類型的圖片插入網頁，請重新用向導模式安裝本程序！,16,操作錯誤)(window.close)
>>%windir%pic2htm.bat echo :end
>>%windir%pic2htm.bat echo exit
::修改注冊表實現右鍵功能
reg add %regpath%pic2htm /ve /d %right%^(^&P^) /f >nul
reg add %regpath%pic2htmcommand /ve /d cmd.exe /K CD %%1 & pic2htm.bat /f >nul
mshta vbscript:msgbox(安裝成功！你可以右鍵單擊文件夾圖標看到菜單了。,64,操作提示)(window.close)
goto end
:uninstall
if exist %windir%pic2htm.bat del /q %windir%pic2htm.bat
reg delete %regpath%pic2htm /f >nul 2>nul
mshta vbscript:msgbox(“圖片批量生成網頁”已經卸載成功！。,64,操作提示)(window.close)
:end
nclick="copycode($('code0'));">復制代碼