没办法解决吗？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已完结]如何把*.qsed文件中的地址提取到Html中？
查看 5,020 回复 24
第 16 楼
发表于 2010-01-05 18:39 · 中国 广西 南宁 电信
第 17 楼
发表于 2010-01-05 19:39 · 中国 广西 南宁 电信
不知道你去哪了，说一下情况吧？能解决还是不？
第 18 楼
发表于 2010-01-05 20:00 · 中国 天津 电信
。。。
编码问题，中文才会出间题，你那文件好像要用unicode保存，不然就要加上xml头，手机上的没法搞
编码问题，中文才会出间题，你那文件好像要用unicode保存，不然就要加上xml头，手机上的没法搞
┏━━━━━━┓
┃据说是李先生┃
┠──────┨
┃＊ｎｔＲＳＳ┃
┗━━━━━━┛
┃据说是李先生┃
┠──────┨
┃＊ｎｔＲＳＳ┃
┗━━━━━━┛
第 19 楼
发表于 2010-01-05 20:10 · 中国 广西 南宁 电信
哦。经查看是UTF8编码，那只好等明天了。谢谢你了辛苦了
[ Last edited by liu3157551 on 2010-1-5 at 20:49 ]
[ Last edited by liu3157551 on 2010-1-5 at 20:49 ]
第 20 楼
发表于 2010-01-06 10:13 · 中国 北京 中电华通通信有限公司
如果还有问题就自己解决了。
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 楼
发表于 2010-04-14 12:34 · 中国 广西 南宁 电信
如图，可以在超级链接前加个数字吗：
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 ]
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 楼
发表于 2010-04-14 12:57 · 中国 北京 电信
感谢分享！！！
第 23 楼
发表于 2010-04-14 13:25 · 中国 北京 中电华通通信有限公司
加序号的。
附件
qsed.zip (1.37 KiB, 下载次数: 29)
第 24 楼
发表于 2010-04-14 14:03 · 中国 广西 南宁 电信
没有比李先生还要灵的人了^_^
一说就帮，真是好人一个
一说就帮，真是好人一个
第 25 楼
发表于 2010-07-08 18:31 · 中国 湖南 长沙 电信
谢谢分享！
论坛跳转: