【已解决】VBS能按文件列表处理文件吗？求助，vbs高手请进！

1270697389

1. 
   
2. Dim BinTemp, strUrl
   
3. 
   
4. strUrl = "http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html"
   
5. 
   
6. With CreateObject("Msxml2.Xmlhttp")
   
7. 
   
8.     .Open "get", strUrl, False
   
9. 
   
10.     .Send
    
11. 
    
12.     BinTemp = .ResponseBody
    
13. 
    
14. End With
    
15. 
    
16. With CreateObject("Adodb.Stream")
    
17. 
    
18.     .Type = 1
    
19. 
    
20.     .Mode = 3
    
21. 
    
22.     .Open
    
23. 
    
24.     .Write BinTemp
    
25. 
    
26.     .SaveToFile "1-1.html"
    
27. 
    
28.     .Close
    
29. 
    
30. End With
    

复制代码

这是czjt1234 老师帮我写的，非常好，在此感谢！
现在想用vbs批量处理a.txt里的网址列表
a.txt
http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html
http://www.19lou.com/forum-26-thread-2601339311269947-2-1.html
http://www.19lou.com/forum-26-thread-2601339311269947-3-1.html
http://www.19lou.com/forum-26-thread-2601339311269947-4-1.html
等等....
在下对vbs不懂，谢谢各位老师，谢谢！

1270697389

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. 
   
5. set "n="
   
6. 
   
7. for /f "tokens=1-2 delims=," %%i in (www.txt) do (
   
8. 
   
9.     set /a n+=1
   
10.     set i=%%i
    
11.     set /a r=!n!+1
    
12.     set x=%%j
    
13.         if "!x!" == "001" (
    
14. echo,Dim BinTemp, strUrl>vbsww!n!.vbs
    
15. echo,strUrl = "!i!">>vbsww!n!.vbs
    
16. echo,With CreateObject^("Msxml2.Xmlhttp"^) >>vbsww!n!.vbs
    
17. echo,    ^.Open "get", strUrl, False >>vbsww!n!.vbs
    
18. echo,    ^.Send >>vbsww!n!.vbs
    
19. echo,BinTemp ^= ^.ResponseBody >>vbsww!n!.vbs
    
20. echo,End With>>vbsww!n!.vbs
    
21. echo,With CreateObject^("Adodb.Stream"^)>>vbsww!n!.vbs
    
22. echo,    ^.^Type ^= ^1>>vbsww!n!.vbs
    
23. echo,    ^.^Mode ^= ^3>>vbsww!n!.vbs
    
24. echo,    ^.^Open>>vbsww!n!.vbs
    
25. echo,    ^.Write BinTemp>>vbsww!n!.vbs
    
26. echo,    ^.^SaveToFile "vbsxs\xs!n!.html">>vbsww!n!.vbs
    
27. echo,    ^.^Close>>vbsww!n!.vbs
    
28. echo,End With>>vbsww!n!.vbs
    
29. echo,WScript.^Echo "全部执行完毕！OK">>vbsww!n!.vbs
    
30. 
    
31. ) else (
    
32. echo,Dim BinTemp, strUrl>vbsww!n!.vbs
    
33. echo,strUrl = "!i!">>vbsww!n!.vbs
    
34. echo,With CreateObject^("Msxml2.Xmlhttp"^) >>vbsww!n!.vbs
    
35. echo,    ^.Open "get", strUrl, False >>vbsww!n!.vbs
    
36. echo,    ^.Send >>vbsww!n!.vbs
    
37. echo,BinTemp ^= ^.ResponseBody >>vbsww!n!.vbs
    
38. echo,End With>>vbsww!n!.vbs
    
39. echo,With CreateObject^("Adodb.Stream"^)>>vbsww!n!.vbs
    
40. echo,    ^.^Type ^= ^1>>vbsww!n!.vbs
    
41. echo,    ^.^Mode ^= ^3>>vbsww!n!.vbs
    
42. echo,    ^.^Open>>vbsww!n!.vbs
    
43. echo,    ^.Write BinTemp>>vbsww!n!.vbs
    
44. echo,    ^.^SaveToFile "vbsxs\xs!n!.html">>vbsww!n!.vbs
    
45. echo,    ^.^Close>>vbsww!n!.vbs
    
46. echo,End With>>vbsww!n!.vbs
    
47. 
    
48. echo,Dim objShell>>vbsww!n!.vbs
    
49. echo,Set objShell = CreateObject^("WScript.Shell"^)>>vbsww!n!.vbs
    
50. echo,objShell.Run "vbsww!r!.vbs">>vbsww!n!.vbs
    
51. )
    
52. )
    
53. pause
    

复制代码