
CODE: [Copy to clipboard]@echo off
sed "/href/!d; s/.*\x22\(.*\)/\1/g" *.qsed
pause>nul
CODE: [Copy to clipboard]另外,超链接具体如何?@echo off
sed "/href/!d; s/.*\x22\(.*\)/\1/g" *.qsed >new.x
pause>nul
CODE: [Copy to clipboard][ Last edited by liu3157551 on 2010-1-5 at 14:43 ]<!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>
附件 1:qsed.zip (2010-1-5 15:09, 1.39 K,下载次数: 122)
附件 1:qsed.zip (2010-1-5 16:00, 1.34 K,下载次数: 73)
CODE: [Copy to clipboard]@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
CODE: [Copy to clipboard]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
附件 1:qsed.zip (2010-4-14 13:25, 1.37 K,下载次数: 29)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |