1. 注释：*******************************************************************************************
2. 注释：将excel文件转换成nova2012版本的播放列表格式。
3. 注释：由于播放列表其实是改了一个后缀名的xml文件。
4. 注释：该脚本的编写思路是：将固定的部分直接写入文本文档， 需要变化的部分用变量取值，在需要变化的地方写入。
5. 注释：最后用软件convertz转换成UTF-8格式，copy命令重命名。
6. 注释：*******************************************************************************************
7. 注释：删除D盘根目录下的1.txt以免重复。
8. 启动程序或打开文件 "cmd /c del d:\1.txt"
9. 注释：定义filepath，表示读取的excel文件。
10. 定义变量 filepath
11. 注释：定义p，表示当前的行数
12. 定义变量 p
13. 注释：定义clas，表示当前行的第二列是图片、flash、还是视频判断后续用什么格式写入文档。
14. 定义变量 clas
15. 注释：定义chec，表示当前行的第一列是否到了“时间标记”，到了就说明该时间段结束。
16. 定义变量 chec
17. 注释：定义begin，表示当前行显示的开始时间为多少
18. 定义变量 begin
19. 注释：定义ending，表示当前行显示的结束时间为多少
20. 定义变量 ending
21. 注释：定义typ，表示当前行第三列显示的文件名是什么。
22. 定义变量 typ
23. 注释：定义lenth，表示当前行的第四列显示的时间是多少。
24. 定义变量 lenth
25. 注释：定义xftime，表示消防提示播放的时间是几点。
26. 定义变量 xftime
27. 注释：弹出窗口，读取excel文件到 filepath
28. 令 filepath = File.SelectFile()
29. 注释：excel表格式固定，第三排开始才是需要的数据，因此定义P的初始值为3
30. 令 p = 3
31. 注释：打开office文档。
32. 调用 Office.OpenXls(filepath)
33. 注释：调用子程序pre(),写入开头的信息。
34. 调用 pre()
35. 注释：标记next2，以便后面循环的需要。
36. 标记 next2
37. 注释：读取当前的时间：第一个工作表的第p行（初始为3）第二和第三列分别是开始和结束时间。
38. 令 begin = Office.ReadXls(1,p,2)
39. 令 ending = Office.ReadXls(1,p,3)
40. 注释：读取子程序pre1(),写入第一个时间段的开头信息。
41. 调用 pre1()
42. 注释：标记next3，为了循环写入图片，flash，视频的不同格式。
43. 标记 next3
44. 注释：p自增，就到了下一行
45. 令 p = p + 1
46. 注释：将clas、chec、typ、lenth、赋值，其含义在dim里面有解释。
47. 令 clas = Office.ReadXls(1,p,2)
48. 令 chec = Office.ReadXls(1,p,1)
49. 令 typ = Office.ReadXls(1,p,3)
50. 令 lenth = Office.ReadXls(1,p,4)
51. 注释：检查chec是否到了时间标记。
52. 如果 chec = "时间标记" 则
53.     注释：到了就说明该时间段结束。写入该时间段的结束信息。
54.     调用 over1()
55.     注释：跳出循环，向上到next2，继续读取下一个时间段的开始结束时间写入下一个时间段。
56.     跳转到标记 next2
57.     注释：检查chec是否到了空白处。
58. 否则如果 chec = "" 则
59.     注释：到了就说明所有时间段结束。写入该时间段的结束信息。
60.     调用 over1()
61.     注释：跳出循环，向下到next1，进行后续收尾工作。
62.     跳转到标记 next1
63.     注释：检查clas是图片，flash，还是视频，根据不同结果调用不同子程序，写入不同内容。
64. 否则如果 clas = "图片" 则
65.     调用 pic()
66. 否则如果 clas = "Flash" 则
67.     调用 flash()
68. 否则如果 clas = "视频" 则
69.     调用 video()
70. 条件结束
71. 注释：跳到next3
72. 跳转到标记 next3
73. 注释：标记next1
74. 标记 next1
75. 注释：到了这里就是插播的内容，由于插播内容没有写在EXCEL文件内，是固定的，因此后面的值都用固定的。
76. 注释：调用插播的开头部分pre3
77. 调用 pre3()
78. 注释：将typ赋值一个字符串
79. 令 typ = "xf.jpg"
80. 注释：将typ赋值为10，播放时间固定为10秒。
81. 令 lenth = 10
82. 注释：消防插播广告使用图片，因此调用子程序pic()
83. 调用 pic()
84. 注释：调用插播的结尾部分over2()
85. 调用 over2()
86. 注释：一下是循环部分，xftime是循环播放的小时时刻，因此赋值后调用子程序xiaofang()如此循环。
87. 令 xftime = "8"
88. 调用 xiaofang()
89. 令 xftime = "9"
90. 调用 xiaofang()
91. 令 xftime = "11"
92. 调用 xiaofang()
93. 令 xftime = "12"
94. 调用 xiaofang()
95. 令 xftime = "13"
96. 调用 xiaofang()
97. 令 xftime = "14"
98. 调用 xiaofang()
99. 令 xftime = "15"
100. 调用 xiaofang()