标题: [已完结]如何把*.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
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
另外，超链接具体如何？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 ]<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>
作者: 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
楼上的方法是可行的，可是不够简洁。不是我要的那种格式，凑合着用了。非常感谢你了。
不知道你能帮我完成
http://www.cn-dos.net/forum/view ... ge=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:
作者: 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
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
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:
作者: liu3157551 时间: 2010-4-14 14:03
没有比李先生还要灵的人了^_^
一说就帮，真是好人一个
作者: my7698 时间: 2010-7-8 18:31
谢谢分享！