中国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 KiB,下载次数： 122)

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

楼上的方法是可行的，可是不够简洁。不是我要的那种格式，凑合着用了。非常感谢你了。

不知道你能帮我完成
http://www.cn-dos.net/forum/viewthread.php?tid=47087&fpage=1&highlight=

上面的问题，生成的文件不是完美的

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 KiB,下载次数： 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 KiB,下载次数： 29)

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

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

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

谢谢分享！