中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 20:39

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » [已完结]怎么把html地址提取到TXT中？

可打印版本　842 / 4

第1楼　liu3157551	发表于 2010-01-30 18:35
中级用户　发帖 164　积分 259
[已完结]怎么把html地址提取到TXT中？例：爱你千万次01 qvod://290639680\|C7B76F8486BB14506B14D2323404227B1B332CC0\|爱你千万次01.rmvb\|/ 第二行 ... 因为有些地方要使用到TXT [ Last edited by liu3157551 on 2010-1-31 at 08:35 ]

第2楼　qinchun36	发表于 2010-01-31 01:38
高级用户　发帖 400　积分 609
呵呵，借鉴 electronixtar 的代码，保存为 filename.vbs，把要提取的html文件拖到他上面去就行了： htmlFile = WScript.Arguments(0) textString = "" With GetObject(htmlFile ) do until .readyState = "complete" WScript.sleep 200 loop For Each a In .GetElementsByTagName("a") textString = textString & a.innerText & vbCrLf & a.href & vbCrLf & vbCrLf Next End With CreateObject("Scripting.FileSystemObject").CreateTextFile(htmlFile & ".txt", True).Write textString MsgBox "提取到文本文件 " & htmlFile & ".txt", 4160, "完成"

第3楼　liu3157551	发表于 2010-01-31 08:35
中级用户　发帖 164　积分 259
经测试可用。你好棒，真想学习。可又不会

第4楼　iamqiuhui	发表于 2010-01-31 13:45
初级用户　发帖 17　积分 28
下标越界 rt 附件下标越界.GIF (12.46 KiB)

第5楼　ccwan	发表于 2010-01-31 18:16
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
Originally posted by iamqiuhui at 2010-1-31 13:45: rt 把要提取的html文件拖到他上面去

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023