批处理BAT如何批量将网址url文件转换成html文件？

batblue

我想把一个文件夹（包括其子文件夹）下的所以url文件转换导出成html文件。
经过搜索论坛，我发现已有一个类似的帖子：
http://bbs.bathome.net/thread-1987-1-1.html
为方便起见，我将该帖子的方法复制如下：

1. @echo off
   
2. for /f "skip=4 tokens=2*" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Favorites') do set "favor=%%b"
   
3. for /f "delims=" %%a in ('dir /s/b/on "%favor%"') do (
   
4.     if exist "%%a" (
   
5.         echo ^<b^>%%~na^</b^>^<br^> >>bookmark.htm
   
6.     ) else (
   
7.         for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm
   
8.     )
   
9. )
   
10. start iexplore bookmark.htm

复制代码

而我的需求和这个很相似，不同之处在于我想把任意指定文件夹（而非收藏夹）下的url文件导出。
因是菜鸟，还看不大懂代码不知如何修改。
故想请教以上代码要做怎样修改才可适用于任意文件夹。
谢谢。

terse

1. @echo off
   
2. set "ph=c:"
   
3. if not defined ph set ph=%~dp0
   
4. (for /f "tokens=2* delims=:" %%i in ('findstr /ibc:"URL=" "%ph%*.url"') do (
   
5.     for /f "tokens=1* delims==" %%a in ("%%j") do (
   
6.         echo ^<a href="%%b"^>%%~ni^</a^>^<br /^>
   
7.     )
   
8. ))>url.html
   
9. pause

复制代码

batblue

回复 2# terse


    太强了，非常感谢。