修改一个电影的采集插件,请帮忙!!
想增加一个"第X集","第X集"对应"视频地址","视频地址"对应的是"arrurl()",我想得到的结果是"第X集$视频地址"="arrurl()",不会弄,tBo15 = "<!--小标题开始代码-->"
tEo15 = "<!--小标题结束代码-->" 这个是我定义"第X集"级数
tBo12 = "<!--播放地址开始代码-->"
tEo12 = "<!--播放地址结束代码-->"这个是视频地址
以下是代码:
'------------------------采集内页-----------------------------------
Dim videoname,videotitle,videoclass,classid,star,director,area,pic,intro,arrurl(),continu,publishyear
Function GetVideo(path)
httpobj = getHTTPPage(path)
GetContent(httpobj)
End Function
'----------------------------HTML获得视频内页-------------------------------
Function GetContent(obj)
Dim tBo1,tEo1,tBo2,tEo2,tBo3,tEo3,tBo4,tEo4,tBo5,tEo5,tBo6,tEo6,tBo7,tEo7,tBo8,tEo8,tBo9,tEo9,tBo10,tEo10,tBo11,tEo11,tBo12,tEo12,tBo13,tEo13,tBo14,tEo14,tBo15,tEo15,Bn,En,Bnc,Enc,CHtml,Mpagecount,i,CCount,UCount,tBof,tEof
tBo1 = "<!--影片名称开始代码-->"
tEo1 = "<!--影片名称结束代码-->"
tBof = "<!--影片副标开始代码-->"
tEof = "<!--影片副标结束代码-->"
tBo2 = "<!--影片演员开始代码-->"
tEo2 = "<!--影片演员结束代码-->"
tBo3 = "<!--影片导演开始代码-->"
tEo3 = "<!--影片导演结束代码-->"
tBo4 = "<!--影片类型开始代码-->"
tEo4 = "<!--影片类型结束代码-->"
tBo5 = "<!--影片地区开始代码-->"
tEo5 = "<!--影片地区结束代码-->"
tBo6 = "<!--影片更新时间开始代码-->"
tEo6 = "<!--影片更新时间结束代码-->"
tBo7 = "<!--影片状态开始代码-->"
tEo7 = "<!--影片状态结束代码-->"
tBo8 = "<!--上映日期开始代码-->"
tEo8 = "<!--上映日期结束代码-->"
tBo9 = "<!--影片介绍开始代码-->"
tEo9 = "<!--影片介绍结束代码-->"
tBo10 = "<!--影片介绍开始代码-->"
tEo10 = "<!--影片介绍结束代码-->"
tBo11 = "<!--播放列表开始代码-->"
tEo11 = "<!--播放列表结束代码-->"
tBo12 = "<!--播放地址开始代码-->"
tEo12 = "<!--播放地址结束代码-->"
tBo13 = "<!--影片图片开始代码-->"
tEo13 = "<!--影片图片结束代码-->"
tBo14 = "<!--上映日期开始代码-->"
tEo14 = "<!--上映日期结束代码-->"
tBo15 = "<!--小标题开始代码-->"
tEo15 = "<!--小标题结束代码-->"
Bn = InStr(obj,tBo1)
En = InStr(obj,tEo1)
videoname = Replace(Mid(obj,Bn+len(tBo1),En-Bn-len(tBo1)),"'","''")
Bn = InStr(obj,tBof)
En = InStr(obj,tEof)
videotitle = Replace(Mid(obj,Bn+len(tBof),En-Bn-len(tBof)),"'","''")
Bn = InStr(obj,tBo4)
En = InStr(obj,tEo4)
videoclass = Replace(Mid(obj,Bn+len(tBo4),En-Bn-len(tBo4)),"'","''")
Bn = InStr(obj,tBo2)
En = InStr(obj,tEo2)
star = Replace(Mid(obj,Bn+len(tBo2),En-Bn-len(tBo2)),"'","''")
Bn = InStr(obj,tBo3)
En = InStr(obj,tEo3)
director = Replace(Mid(obj,Bn+len(tBo3),En-Bn-len(tBo3)),"'","''")
Bn = InStr(obj,tBo5)
En = InStr(obj,tEo5)
area = Replace(Mid(obj,Bn+len(tBo5),En-Bn-len(tBo5)),"'","''")
Bn = InStr(obj,tBo13)
En = InStr(obj,tEo13)
pic = Replace(Mid(obj,Bn+len(tBo13),En-Bn-len(tBo13)),"'","''")
Bn = InStr(obj,tBo10)
En = InStr(obj,tEo10)
intro = Replace(Mid(obj,Bn+len(tBo10),En-Bn-len(tBo10)),"'","''")
Bn = InStr(obj,tBo7)
En = InStr(Bn+len(tBo7),obj,tEo7)
continu = Replace(Mid(obj,Bn+len(tBo7),En-Bn-len(tBo7)),"'","''")
If continu ="" Then continu=0
Bn = InStr(obj,tBo14)
En = InStr(Bn+len(tBo14),obj,tEo14)
IF Bn<>0 Then
IF En<>0 Then
publishyear = Replace(Mid(obj,Bn+len(tBo14),En-Bn-len(tBo14)),"'","''")
End if
End if
UCount = 0
En = 1
do while (true)
IF En <> 0 Then
En = InStr(En+len(tEo12),obj,tEo12)
UCount=UCount +1
Else
exit do
End if
loop
REDIM arrurl(UCount-2)
En = 1
For i=0 To UCount-2
Bn = InStr(En+len(tEo12),obj,tBo12)
En = InStr(Bn+len(tBo12),obj,tEo12)
arrurl(i)=Replace(Mid(obj,Bn+len(tBo12),En-Bn-len(tBo12)),"'","''")
Next
End Function --------------------编程问答-------------------- .0.0.0.0.0.0. --------------------编程问答--------------------
补充:.NET技术 , ASP.NET