中国DOS联盟

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

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

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

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

DOS批处理 & 脚本技术（批处理室） » [已完结]如何把*.qsed文件中的地址提取到Html中？

可打印版本　5,019 / 24

第16楼　liu3157551	发表于 2010-01-05 18:39
中级用户　发帖 164　积分 259
没办法解决吗？

第17楼　liu3157551	发表于 2010-01-05 19:39
中级用户　发帖 164　积分 259
不知道你去哪了，说一下情况吧？能解决还是不？

第18楼　qinchun36	发表于 2010-01-05 20:00
高级用户　发帖 400　积分 609
。。。编码问题，中文才会出间题，你那文件好像要用unicode保存，不然就要加上xml头，手机上的没法搞

第19楼　liu3157551	发表于 2010-01-05 20:10
中级用户　发帖 164　积分 259
哦。经查看是UTF8编码，那只好等明天了。谢谢你了辛苦了 [ Last edited by liu3157551 on 2010-1-5 at 20:49 ]

第20楼　qinchun36	发表于 2010-01-06 10:13
高级用户　发帖 400　积分 609
如果还有问题就自己解决了。 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

第21楼　liu3157551	发表于 2010-04-14 12:34
中级用户　发帖 164　积分 259
如图，可以在超级链接前加个数字吗： 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 ]

第22楼　yonghu111	发表于 2010-04-14 12:57
初级用户　发帖 57　积分 90
感谢分享！！！

第23楼　qinchun36	发表于 2010-04-14 13:25
高级用户　发帖 400　积分 609
加序号的。附件 qsed.zip (1.37 KiB)

第24楼　liu3157551	发表于 2010-04-14 14:03
中级用户　发帖 164　积分 259
没有比李先生还要灵的人了^_^ 一说就帮，真是好人一个

第25楼　my7698	发表于 2010-07-08 18:31
新手上路　发帖 1　积分 1
谢谢分享！

上一页　 1 2

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