中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已完结]怎么把html地址提取到TXT中？
作者:
标题: [已完结]怎么把html地址提取到TXT中？ 上一主题 | 下一主题
liu3157551
中级用户





积分 259
发帖 164
注册 2006-9-21
状态 离线
『楼 主』:  [已完结]怎么把html地址提取到TXT中？

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

第二行
...


因为有些地方要使用到TXT

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

2010-1-30 18:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinchun36
高级用户

据说是李先生


积分 609
发帖 400
注册 2008-4-23
状态 离线
『第 2 楼』:  

呵呵，借鉴 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, "完成"




┏━━━━━━┓
┃据说是李先生┃
┠──────┨
┃＊ｎｔＲＳＳ┃
┗━━━━━━┛
2010-1-31 01:38
查看资料  发送邮件  发短消息 网志  OICQ (182484135)  编辑帖子  回复  引用回复
liu3157551
中级用户





积分 259
发帖 164
注册 2006-9-21
状态 离线
『第 3 楼』:  

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

2010-1-31 08:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
iamqiuhui
初级用户





积分 28
发帖 17
注册 2008-12-20
状态 离线
『第 4 楼』:  下标越界

rt

附件 1: 下标越界.GIF (2010-1-31 13:45, 12.46 K)


2010-1-31 13:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ccwan
金牌会员




积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by iamqiuhui at 2010-1-31 13:45:
rt

把要提取的html文件拖到他上面去



三人行，必有吾师焉。   学然后知不足，教然后知困，然后能自强也。
2010-1-31 18:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023