中国DOS联盟论坛 - Powered by Discuz! Board

标题: [已完结]如何把*.qsed文件中的地址提取到Html中？ [打印本页]

作者: liu3157551 时间: 2010-1-4 22:25 标题: [已完结]如何把*.qsed文件中的地址提取到Html中？

我非常需要这个功能，如果能输出为HTML文件中的超级链接就好了，文本也行。 qvod://200306917|4EDA9AEBCBD8F8EF104CCD512F43F759ED3319AD|灿烂的遗产01.rmvb| [ Last edited by liu3157551 on 2010-1-5 at 21:13 ]

作者: asnahu 时间: 2010-1-4 23:00

@echo off 
sed "/href/!d; s/.*\x22\(.*\)/\1/g" *.qsed 
pause>nul

作者: liu3157551 时间: 2010-1-5 13:10

我下载并试用了，只输出到窗口没输出到Html中，请问你还有办法吗？

作者: asnahu 时间: 2010-1-5 13:18

加个重定向即可：

@echo off
sed "/href/!d; s/.*\x22\(.*\)/\1/g" *.qsed >new.x
pause>nul

另外，超链接具体如何？

作者: liu3157551 时间: 2010-1-5 13:29

一个最简单的网页连接就行了

作者: liu3157551 时间: 2010-1-5 13:30

试过了，觉得很不错了。挺实在的 [ Last edited by liu3157551 on 2010-1-5 at 14:31 ]

作者: liu3157551 时间: 2010-1-5 14:28

这样可以输出为文本文件能不能再把TXT的地址加入到html中？如下：麻烦你了，我不会。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2900.5583" name=GENERATOR></HEAD>
<BODY>
<DIV><A 
href="qvod://200306917|4EDA9AEBCBD8F8EF104CCD512F43F759ED3319AD|灿烂的遗产01.rmvb|">灿烂的遗产01</A></DIV>
...
...
...
...
<DIV><A 
href="qvod://200306917|4EDA9AEBCBD8F8EF104CCD512F43F759ED3319AD|灿烂的遗产02.rmvb|">灿烂的遗产02</A><BR></DIV></BODY></HTML>

[ Last edited by liu3157551 on 2010-1-5 at 14:43 ]

作者: qinchun36 时间: 2010-1-5 15:09

遇到两个这样的问题，忽然又学到一些东西，哈哈，不错不错！给你搞了个傻瓜版，VBS的，作用是运行后让你选一个文件夹，然后它会把这个文件夹以及子文件夹下面的所有 .qsed 文件中的地址提取出来，生成一个 .htm 文件。

附件 1: qsed.zip (2010-1-5 15:09, 1.39 K,下载次数： 122)

作者: liu3157551 时间: 2010-1-5 15:17

楼上的方法是可行的，可是不够简洁。不是我要的那种格式，凑合着用了。非常感谢你了。不知道你能帮我完成 www.cn-dos.net/forum ... 上面的问题，生成的文件不是完美的 [ Last edited by liu3157551 on 2010-1-5 at 15:28 ]

作者: qinchun36 时间: 2010-1-5 15:28

什么意思？我觉得你表述有问题，没把问题说清楚。

作者: liu3157551 时间: 2010-1-5 15:38

如下面的格式就可以了你那个太大了，不知道你可否弄成我这样的？

作者: qinchun36 时间: 2010-1-5 16:00



附件 1: qsed.zip (2010-1-5 16:00, 1.34 K,下载次数： 73)

作者: liu3157551 时间: 2010-1-5 16:36

不错你真的是太棒了！谢谢~~~试用后很好很GOOD！能顺手解决9楼的问题吗？就是把TXT中的地址变成*.qsed 或者是html的这种？

作者: qinchun36 时间: 2010-1-5 16:51

哎。。。你没看到 yishanju 写的批处理吗，稍微变一下就是了

@echo off
setlocal ENABLEDELAYEDEXPANSION

set n=0
for /f "delims=" %%i in (5.txt) do (
    set /a n=n+1
    (echo ^<qsed version="3.0.0.57"^>
     echo         ^<entry^>
     echo                 ^<ref href="%%i"/^>
     echo         ^</entry^>
     echo ^</qsed^>)>>5b!n!.qsed
)

pause

作者: liu3157551 时间: 2010-1-5 17:03

用上诉方法的确可以保存为*.qsed文件但程序不认就算了连用你的那个qsed.vbs也认不出来。 [ Last edited by liu3157551 on 2010-1-5 at 17:42 ]

作者: liu3157551 时间: 2010-1-5 18:39

没办法解决吗？

作者: liu3157551 时间: 2010-1-5 19:39

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

作者: qinchun36 时间: 2010-1-5 20:00

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

作者: liu3157551 时间: 2010-1-5 20:10

哦。经查看是UTF8编码，那只好等明天了。谢谢你了辛苦了 [ Last edited by liu3157551 on 2010-1-5 at 20:49 ]

作者: qinchun36 时间: 2010-1-6 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

作者: liu3157551 时间: 2010-4-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 ]

作者: yonghu111 时间: 2010-4-14 12:57

感谢分享！！！

作者: qinchun36 时间: 2010-4-14 13:25

加序号的。

附件 1: qsed.zip (2010-4-14 13:25, 1.37 K,下载次数： 29)

作者: liu3157551 时间: 2010-4-14 14:03

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

作者: my7698 时间: 2010-7-8 18:31

谢谢分享！