机顶盒EPG菜单自动处理程序20131118

机顶盒EPG菜单自动处理程序20131118

本系列文章由ex_net（张建波）编写，转载请注明出处。

http://blog.csdn.net/zjianbo/article/details/16808121

作者：张建波 邮箱： 281451020@qq.com 电话：13577062679 欢迎来电交流！

用来处理网上下载的各个电视台节目单，按照一定的规律处理后，导入服务器，就可以下发给机顶盒了。

以下程序适用于处理2013年10、11、12月的节目

主要处理2个内容：从网上下载的节目单中截取“下个星期”的内容，并格式化日期。

[vb]  view plain  copy

1. dim fileName  
2. Set objArgs=WScript.Arguments  
3. fileName=objArgs(0)  
4.   
5.   
6.   
7. Call Main()  
8. Sub Main()  
9.   Dim fso,OutFile,InFile  
10.   Set fso=CreateObject("Scripting.FileSystemObject")  
11.   'fileName=OpenFileDialog()  
12.   
13.   Set InFile=fso.OpenTextFile(fileName,1,True)  
14.   Set OutFile=fso.CreateTextFile(fileName+".out.txt",Ture)  
15.   
16.   dim OK  
17.   OK=0  
18.   
19.   do  until   InFile.atendofstream  
20.      strline=InFile.readline  
21.      '开始截取日期  
22.      if strline="13/10/28" then  
23.        OK=1  
24.      end if  
25.        
26.      if OK=1 then  
27.          OutFile.WriteLine(Fx(strLine))  
28.      end if  
29.   loop  
30.   InFile.close  
31.   OutFile.Close  
32.   Set fso=nothing  
33.   
34.   Msgbox "文件处理完成！转换后的文件名为"+fileName+".out.txt"  
35. End Sub  
36.   
37.   
38. Function Fx(str)  
39.   
40.    '星期替换  
41.    str=Replace(str,"13/10/28","13/10/28  星期一")  
42.    str=Replace(str,"13/10/29","13/10/29  星期二")  
43.    str=Replace(str,"13/10/30","13/10/30  星期三")  
44.    str=Replace(str,"13/10/31","13/10/31  星期四")  
45.    str=Replace(str,"13/11/01","13/11/01  星期五")  
46.    str=Replace(str,"13/11/02","13/11/02  星期六")  
47.    str=Replace(str,"13/11/03","13/11/03  星期天")  
48.    Fx=str  
49.   
50. End Function  
51.   
52. function OpenFileDialog()  
53.    OpenFileDialog=inputbox("请输入文件名？")  
54. end function  

下面给个截图示意

感兴趣的朋友，可以把上面的代码复制到“记事本中”，另存为 jm.vbs 文件即可。

使用的时候，把要处理的 文本文件，拖到上面即可自动运行处理。