中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已完结]如何把*.qsed文件中的地址提取到Html中？
<   <<   [1] [2]  >>
作者:
标题: [已完结]如何把*.qsed文件中的地址提取到Html中？ 上一主题 | 下一主题
liu3157551
中级用户





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

没办法解决吗？

2010-1-5 18:39
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
liu3157551
中级用户





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

不知道你去哪了，说一下情况吧？能解决还是不？

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

据说是李先生


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

。。。
编码问题，中文才会出间题，你那文件好像要用unicode保存，不然就要加上xml头，手机上的没法搞



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





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

哦。经查看是UTF8编码，那只好等明天了。谢谢你了辛苦了

[ Last edited by liu3157551 on 2010-1-5 at 20:49 ]

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

据说是李先生


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

如果还有问题就自己解决了。
CODE:  [Copy to clipboard]
fileName = "5.txt"

head = "<qsed version=""3.0.0.57"">" & vbCrLf & vbTab & "<entry>" & vbCrLf & vbTab & vbTab & "<ref href="""
tail = vbCrLf & """/>" & vbCrLf & vbTab & "</entry>" & vbCrLf & "</qsed>"

Set fso = WScript.Createobject("Scripting.FileSystemObject")
With fso.OpenTextFile(fileName, 1)
        While Not .AtEndOfStream
                qsed = .ReadLine
                tempArr = Split(qsed, "|")
                tempStr = tempArr(UBound(tempArr) - 1)
                fso.CreateTextFile(tempStr & ".qsed", True, True).Write head & qsed & tail
        WEnd
End With




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





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

如图，可以在超级链接前加个数字吗：
1.http://www.cn-dos.net/
2.http://www.cn-dos.net/
3.http://www.cn-dos.net/

[ Last edited by liu3157551 on 2010-4-14 at 12:39 ]

2010-4-14 12:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yonghu111
初级用户





积分 90
发帖 57
注册 2010-4-12
状态 离线
『第 22 楼』:  

感谢分享！！！

2010-4-14 12:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinchun36
高级用户

据说是李先生


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

加序号的。

附件 1: qsed.zip (2010-4-14 13:25, 1.37 K,下载次数： 29)
2010-4-14 13:25
查看资料  发送邮件  发短消息 网志  OICQ (182484135)  编辑帖子  回复  引用回复
liu3157551
中级用户





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

没有比李先生还要灵的人了^_^
一说就帮，真是好人一个

2010-4-14 14:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
my7698
新手上路





积分 1
发帖 1
注册 2010-4-8
状态 离线
『第 25 楼』:  

谢谢分享！

2010-7-8 18:31
查看资料  发短消息 网志   编辑帖子  回复  引用回复
<   <<   [1] [2]  >>
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


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



论坛跳转:  



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

Sponsored by ifanr Inc | © 2001-2023