[原创][更新]连载动漫统计表~加入全自动更新功能~但是只支持动画标准文件名（BT上下

tring

最近在追的动画N多……
所以经常会忘了下新的或者干脆下了忘记看……
于是作了个统计表……
（其实主要是想试试新学的XML……）


以下是源码~只要复制到记事本里~保存为相应的文件名（后缀名也要一样）~然后放在一个目录下就可以了~
这次~运行就运行refresh.vbs那个文件就可以了~


一下是news.xml文件~（就相当于数据库~把动画的相关信息放这里~)

3. <?xml version="1.0" encoding="gb2312"?>
4. <?xml-stylesheet type="text/xsl" href="carton.xsl"?>
5. <carton_list>
6.      <info>
7.           <name>xxxHolic</name>
8.           <downs>0</downs>
9.           <watchs>0</watchs>
10.           <ref_day>0</ref_day>
11.           <weekday>6</weekday>
12.           <keywords>
13.               <key>xxx</key>
14.               <key>holic</key>
15.           </keywords>
16.      </info>
17.      <info>
18.           <name>寒蝉鸣泣之时</name>
19.           <downs>0</downs>
20.           <watchs>0</watchs>
21.           <ref_day>0</ref_day>
22.           <weekday>4</weekday>
23.           <keywords>
24.               <key>higu</key>
25.               <key>蝉</key>
26.           </keywords>
27.      </info>
28.      <info>
29.           <name>高中女生</name>
30.           <downs>0</downs>
31.           <watchs>0</watchs>
32.           <ref_day>0</ref_day>
33.           <weekday>3</weekday>
34.           <keywords>
35.               <key>high</key>
36.           </keywords>
37.      </info>
38.      <info>
39.           <name>银魂</name>
40.           <downs>0</downs>
41.           <watchs>0</watchs>
42.           <ref_day>0</ref_day>
43.           <weekday>4</weekday>
44.           <keywords>
45.               <key>gintama</key>
46.           </keywords>
47.      </info>
48.      <info>
49.           <name>魔界战记</name>
50.           <downs>0</downs>
51.           <watchs>0</watchs>
52.           <ref_day>0</ref_day>
53.           <weekday>5</weekday>
54.           <keywords>
55.               <key>maka</key>
56.           </keywords>
57.      </info>
58.      <info>
59.           <name>凉宫春日</name>
60.           <downs>0</downs>
61.           <watchs>0</watchs>
62.           <ref_day>0</ref_day>
63.           <weekday>1</weekday>
64.           <keywords>
65.               <key>haru</key>
66.           </keywords>
67.      </info>
68.      <info>
69.           <name>犬神</name>
70.           <downs>0</downs>
71.           <watchs>0</watchs>
72.           <ref_day>0</ref_day>
73.           <weekday>6</weekday>
74.           <keywords>
75.               <key>inu</key>
76.           </keywords>
77.      </info>
78.      <info>
79.           <name>炼金少女</name>
80.           <downs>0</downs>
81.           <watchs>0</watchs>
82.           <ref_day>0</ref_day>
83.           <weekday>6</weekday>
84.           <keywords>
85.               <key>renk</key>
86.           </keywords>
87.      </info>
88.      <info>
89.           <name>向日葵</name>
90.           <downs>0</downs>
91.           <watchs>0</watchs>
92.           <ref_day>0</ref_day>
93.           <weekday>2</weekday>
94.           <keywords>
95.               <key>向日葵</key>
96.           </keywords>
97.      </info>
98.      <info>
99.           <name>Fate/stay night</name>
100.           <downs>0</downs>
101.           <watchs>0</watchs>
102.           <ref_day>0</ref_day>
103.           <weekday>7</weekday>
104.           <keywords>
105.               <key>fate</key>
106.           </keywords>
107.      </info>
108. </carton_list>

复制代码

（格式说明~
      <info>
       <name>动漫名称</name>
       <downs>已经下载的集数</downs>
       <watchs>已经看完的集数</watchs>
       <ref_day>最后一次更新日期</ref_day>
       <weekday>发表的星期数（周日是1~其他顺着~……）</weekday>
       <keywords>
     <key>文件名的关键字1</key>
     <key>文件名的关键字2</key>
           <key>文件名的关键字3</key>
           ……（至少有1个关键字（词）就可以了）……
       </keywords>
      </info>
~~星期数有点怪……不要弄错……）



一下是carton.xsl文件~这个文件名不能改的……
（我晕……命名空间居然被论坛自动加了url标记……复制粘贴的时候得去掉啊……
命名空间这玩意直接关系到解析过程啊……）

3. <?xml version="1.0" encoding="gb2312"?>
4. <xsl:stylesheet xmlns="[url]http://www.w3.org/TR/xhtml1/strict[/url]" xmlns:xsl="[url]http://www.w3.org/1999/XSL/Transform[/url]" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:m="urn:my-scripts" version="1.0">
7. <msxsl:script language="vbscript" implements-prefix="m">
8. <![CDATA[
10. function mnow()
11. mnow=cstr(now())
12. end function
14. function cmpdate(date1,date2)
15. cmpdate=datediff("d",date1,date2)
16. end function
18. function pubdate(date,weekd)
19. num=weekd-weekday(date)
20. if num<=0 then num=num+7
21. pubdate=cstr(dateadd("d",num,date))
22. end function
24. function wdname(wd)
25. wdname=weekdayname(wd)
26. end function
27. ]]>
28. </msxsl:script>
30. <xsl:template match="carton_list">
32. <center>
33. <p>共追看<xsl:value-of select="count(info)"/>部动画</p>
35. <table border="1">
36. <thead>
37. <th>名字</th>
38. <th>已看</th>
39. <th>已下</th>
40. <th>更新日期</th>
41. <th>发布日期</th>
42. <th>还须等待</th>
43. </thead>
45. <tr><td colspan=&#39;6&#39;><center>可下载的动画（已看完）
46. </center></td></tr>
47. <xsl:for-each select="info">
48. <xsl:variable name="pubday" select="m:pubdate(string(ref_day),number(weekday))"/>
49. <xsl:if test="m:cmpdate($pubday,m:mnow())>=0">
50. <xsl:if test="downs=watchs">
51. <tr>
52. <td><xsl:value-of select="name"/></td>
53. <td><xsl:value-of select="watchs"/></td>
54. <td><xsl:value-of select="downs"/></td>
55. <td><xsl:value-of select="ref_day"/></td>
56. <td><xsl:value-of select="$pubday"/>(<xsl:value-of select="m:wdname(string(weekday))"/>)</td>
57. <td><center>\</center></td>
58. </tr>
59. </xsl:if>
60. </xsl:if>
61. </xsl:for-each>
63. <tr><td colspan=&#39;6&#39;><center>可下载的动画（未看完）
64. </center></td></tr>
65. <xsl:for-each select="info">
66. <xsl:variable name="pubday" select="m:pubdate(string(ref_day),number(weekday))"/>
67. <xsl:if test="m:cmpdate($pubday,m:mnow())>=0">
68. <xsl:if test="downs>watchs">
69. <tr>
70. <td><xsl:value-of select="name"/></td>
71. <td><xsl:value-of select="watchs"/></td>
72. <td><xsl:value-of select="downs"/></td>
73. <td><xsl:value-of select="ref_day"/></td>
74. <td><xsl:value-of select="$pubday"/>(<xsl:value-of select="m:wdname(string(weekday))"/>)</td>
75. <td><center>\</center></td>
76. </tr>
77. </xsl:if>
78. </xsl:if>
79. </xsl:for-each>
81. <tr><td colspan=&#39;6&#39;><center>未更新的动画（已看完）
82. </center></td></tr>
83. <xsl:for-each select="info">
84. <xsl:variable name="pubday" select="m:pubdate(string(ref_day),number(weekday))"/>
85. <xsl:if test="m:cmpdate($pubday,m:mnow())<0">
86. <xsl:if test="downs=watchs">
87. <tr>
88. <td><xsl:value-of select="name"/></td>
89. <td><xsl:value-of select="watchs"/></td>
90. <td><xsl:value-of select="downs"/></td>
91. <td><xsl:value-of select="ref_day"/></td>
92. <td><xsl:value-of select="$pubday"/>(<xsl:value-of select="m:wdname(string(weekday))"/>)</td>
93. <td><center><xsl:value-of select="m:cmpdate(m:mnow(),$pubday)"/>天</center></td>
94. </tr>
95. </xsl:if>
96. </xsl:if>
97. </xsl:for-each>
99. <tr><td colspan=&#39;6&#39;><center>未更新的动画（未看完）
100. </center></td></tr>
101. <xsl:for-each select="info">
102. <xsl:variable name="pubday" select="m:pubdate(string(ref_day),number(weekday))"/>
103. <xsl:if test="m:cmpdate($pubday,m:mnow())<0">
104. <xsl:if test="downs>watchs">
105. <tr>
106. <td><xsl:value-of select="name"/></td>
107. <td><xsl:value-of select="watchs"/></td>
108. <td><xsl:value-of select="downs"/></td>
109. <td><xsl:value-of select="ref_day"/></td>
110. <td><xsl:value-of select="$pubday"/>(<xsl:value-of select="m:wdname(string(weekday))"/>)</td>
111. <td><center><xsl:value-of select="m:cmpdate(m:mnow(),$pubday)"/>天</center></td>
112. </tr>
113. </xsl:if>
114. </xsl:if>
115. </xsl:for-each>
116. </table>
117. </center>
119. </xsl:template>
120. </xsl:stylesheet>

复制代码

一下是~新加入的refresh.vbs~

3. set fs=createobject("scripting.filesystemobject")
4. set dom=CreateObject("microsoft.xmldom")
5. set troot=fs.getfolder("D:\bitcomet\downloads")
7. dom.load "news.xml"
8. set infos=dom.documentElement.SelectNodes("info")
9. for each info in infos
10. refdate=info.selectsinglenode("ref_day").text
11. set keywords=info.selectsinglenode("keywords").SelectNodes("key")
12. findnew troot,keywords,mname,mdate
13. if mdate<>0 then
14. mdate=datevalue(mdate)
15. if datediff("d",refdate,mdate)>0 then
16. info.selectsinglenode("ref_day").text=mdate
17. info.selectsinglenode("downs").text=getnum(mname)
18. if getnum(mname)=0 then
19. msgtext=msgtext & "(解析不能)"
20. end if
21. msgtext=msgtext & info.selectsinglenode("name").text &":"& getnum(mname) &":"& mdate &chr(13)&chr(10)
22. end if
23. end if
24. next
25. dom.save "news.xml"
26. if msgtext="" then
27. msgtext="无更新"
28. end if
30. if msgbox(msgtext,4,"更新")=6 then
32. set ies=createobject("internetexplorer.application")
33. ies.visible=true
34. paths=fs.getfile("news.xml").path
35. ies.navigate paths
37. end if
44. function findnew(root,kws,namen,daten)
45. namen=""
46. daten=0
47. for each kwo in kws
48. kw=cstr(kwo.text)
49. set fls=root.files
50. set fds=root.subfolders
51. newestf fls,kw,namel,datel
52. newestf fds,kw,named,dated
53. if datediff("d",daten,datel)>0 then
54. namen=namel
55. daten=datel
56. end if
57. if datediff("d",daten,dated)>0 then
58. namen=named
59. daten=dated
60. end if
61. next
62. end function
64. function newest(fs,kw)
65. for each f in fs
66. if instr(1,lcase(f.name),kw) then
67. if datediff("d",f.datelastmodified,newt)<0 then
68. newt=f.datelastmodified
69. newest=f.name
70. end if
71. end if
72. next
73. end function
75. function newestf(fs,kw,name,date)
76. name=newest(fs,kw)
77. if name<>"" then
78. date=fs.item(cstr(name)).datelastmodified
79. else
80. date=0
81. end if
82. end function
84. function getnum(fn)
85. for i=1 to len(fn)
86. if mid(fn,i,1)="[" then
87. if mid(fn,i+3,1)="]" then
88. num=mid(fn,i+1,2)
89. if isnumeric(num) then
90. getnum=cint(num)
91. exit for
92. end if
93. end if
94. end if
95. next
96. if getnum="" then
97. getnum=0
98. end if
99. end function

复制代码

注意了~
这个文件的第三行有一个地址~
那个地址就是动画的保存目录了~
自动更新都会在那个目录下寻找~
所以可以根据自己的情况修改那个地址~

另外~这个更新程序因为完全是针对自己的情况（完全用BT下~下载的文件名都很规范~）做的~
所以完全没设计对错误的处理……所以可能会很多BUG……
不过只要文件夹中都是文件名规范的动画~问题就不大~……



最后还有一点……
这个更新程序不能更新已看的集数……所以那个还要自己更新……
还有就是要添加或者删除动画项目的话~就可以按我第一个文件底下附的介绍格式来~.

w9d8h3

恩，支持一下。期待成品的推出……

tring

下面是引用w9d8h3于2006-05-19 23:18发表的:
恩，支持一下。期待成品的推出……

不想做了……
至今没想到怎么绕过上网助手的安全检测……

先前想的绕过IE的安全级的方法是通过外部的脚本程序~直接运行而不是内联到文档内……
但是上网助手绝到干脆把调用外部程序的途径都屏蔽了……

也就是说~想以HTML或XML做界面还能修改文档~
至今我是什么办法都没想出来的……

但是如果专门写个应用程序~
……就没意思了嘛……
本来写这个程序也只是想试试XML而已……

w9d8h3

下面是引用tring于2006-05-19 23:26发表的:

不想做了……
至今没想到怎么绕过上网助手的安全检测……

先前想的绕过IE的安全级的方法是通过外部的脚本程序~直接运行而不是内联到文档内……
.......

这……还真是遗憾啊……

柯莉特

支持tring 先！！！那些代码是JAVA吗？？？貌似是在数据库中用的啊！！！

oce

从来不用上网助手,一搜等软件............................
感觉一点用处也没有.

tring

下面是引用柯莉特于2006-05-20 02:47发表的:
支持tring 先！！！那些代码是JAVA吗？？？貌似是在数据库中用的啊！！！

不是JAVA……
就是XML……
也没有用数据库（完全不会的那东西……）
只是一个XML文档就相当于数据库而已……

直接复制到记事本里面保存的时候按照我写的名字保存就可以用了~

里面有脚本~不过用的VBSCRIPT~不是JAVASCRIPT……
（其实是因为不会JAVA……）

路飞斗索罗

楼主写的什么我根本看不懂的说~~~

tring

最后还是想不过……
把更新程序给做了……

tring

修正了几个BUG……
顺便把XML的数据清零了……（以前上面是我的追看记录……）