Board logo

标题: [文件操作] 导出IE收藏夹的批处理（已解决） [打印本页]
作者: Wingl83    时间: 2008-9-28 19:45     标题: 导出IE收藏夹的批处理（已解决）

如题，注意是利用IE工具栏上的“文件”→“导入和导出”功能的导出，而不是单纯的复制url。并可以通过编辑来指定导出的路径。

其实我这个想法是由于我想将IE收藏夹备份到35766在线书签。里面就有一个上传至35766在线书签的方法，详情请看http://www.35766.com/Help/Import_IE.asp。有没有办法可以实现呢？

[ 本帖最后由 Wingl83 于 2008-10-2 18:12 编辑 ]
作者: youxi01    时间: 2008-9-28 19:46

你所叙述的，它们有区别吗？
作者: Wingl83    时间: 2008-9-28 20:19

利用导出功能默认是导出一个bookmark.htm文件，而复制只是将收藏夹复制备份而已。
作者: zqz0012005    时间: 2008-9-28 22:47

bookmark.htm的版面格式自己弄
@echo off
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"
for /r "%favor%" %%a in (*.url) do for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm
start iexplore bookmark.htm

[ 本帖最后由 zqz0012005 于 2008-9-28 22:52 编辑 ]
作者: Wingl83    时间: 2008-9-28 23:04

请问，为什么导出的bookmark.htm不能像IE导出的那样把文件名带上呢？
作者: zqz0012005    时间: 2008-9-28 23:12

4楼导出的不带文件名吗？
作者: Wingl83    时间: 2008-9-28 23:15

抱歉，是文件夹名……
作者: zqz0012005    时间: 2008-9-28 23:28

版面格式自己弄，那个属于html的范畴了，我只会一点点
@echo off
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"
for /f "delims=" %%a in ('dir /s/b/on "%favor%"') do (
    if exist "%%a\" (
        echo ^<b^>%%~na^</b^>^<br^> >>bookmark.htm
    ) else (
        for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm
    )
)
start iexplore bookmark.htm

[ 本帖最后由 zqz0012005 于 2008-9-28 23:30 编辑 ]
作者: Wingl83    时间: 2008-10-2 18:11

可以成功上传35766的代码（我用的输入法是搜狗，所以输入http://www.35766.com/Fav/Import_IE.asp后有一个enter），存为vbs即可。谢谢各同学的帮忙。

  1. set ws=wscript.createobject("wscript.shell")

  2. ws.run "C:\Progra~1\Intern~1\iexplore.exe" 

  3. wscript.sleep 5000

  4. ws.sendkeys("%fi%n")

  5. wscript.sleep 200

  6. ws.sendkeys("{down 1}%n%n")

  7. ws.sendkeys("{tab}")

  8. wscript.sleep 500

  9. ws.sendkeys("http://www.35766.com/Fav/Import_IE.asp")

  10. wscript.sleep 500

  11. ws.sendkeys("{enter}") 

  12. wscript.sleep 500

  13. ws.sendkeys("{enter}") 

  14. wscript.sleep 500

  15. ws.sendkeys("{enter}")

  16. wscript.sleep 10000

  17. ws.sendkeys("{enter}")

  18. wscript.sleep 400

  19. ws.sendkeys("%{f4}")

  20. wscript.sleep 1000
复制代码

[ 本帖最后由 Wingl83 于 2008-10-2 18:14 编辑 ]



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2