中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

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

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已完结]怎么把html地址提取到TXT中？查看 843　回复 4

楼主 [已完结]怎么把html地址提取到TXT中？发表于 2010-01-30 18:35　·　中国广西南宁电信

liu3157551

中级用户

★★

积分 259
发帖 164
注册 2006-09-21 23:39
19年会员
UID 63296

状态离线

例：
爱你千万次01
qvod://290639680|C7B76F8486BB14506B14D2323404227B1B332CC0|爱你千万次01.rmvb|/

第二行
...

因为有些地方要使用到TXT

[ Last edited by liu3157551 on 2010-1-31 at 08:35 ]

第 2 楼发表于 2010-01-31 01:38　·　中国北京鹏博士宽带

qinchun36

高级用户

★★★

据说是李先生

积分 609
发帖 400
注册 2008-04-23 15:55
18年会员
UID 116706
性别男

状态离线

呵呵，借鉴 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 楼发表于 2010-01-31 08:35　·　中国广西南宁电信

liu3157551

中级用户

★★

积分 259
发帖 164
注册 2006-09-21 23:39
19年会员
UID 63296

状态离线

经测试可用。你好棒，真想学习。可又不会

第 4 楼下标越界发表于 2010-01-31 13:45　·　中国上海电信

iamqiuhui

初级用户

★