vbs小应用

刘晓瑜，乔海珍

（张家口职业技术学院 信息工程系，河北 张家口 075000）

vbs小应用

刘晓瑜，乔海珍

（张家口职业技术学院 信息工程系，河北 张家口 075000）

什么是vbs，怎样使用它？通过生动的例子言简意赅地介绍了Vbs的运行环境，编写技巧及运行方法。

Vbs；程序；运行

一、认识Vbs

vbs是什么？它来能做什么？随着所见即所得的计算机操作界面的问世，DOS操作系统逐渐淡出了大多数人的视界，而现在我要向大家介绍的这一款小的工具语言vbs，其功能相当于以前DOS环境下命令行能做的，或许还能比DOS做得更多，相比DOS而言，vbs是应网络应用而生。

二、如何在电脑上运行一个vbs小程序

vbs的操作方法很简单，在任意位置新建一个文本文件，将代码写入其中，保存后将文件的扩展名改为“.vbs”，双击该文件，程序即可运行。即使是电脑本身没有安装高级语言软件，只要是微软的windows更或是微软的移动智能设备都可以运行。可以用“’”、“rem”将非运行的语句注释掉。

例：整数阶乘。

Function Recursion（TempInt）'简单阶乘递归函数

If TempInt=0 then Recursion=1：Exit FunCtion

If TempInt=1 then Recursion=1：Exit FunCtion

If TempInt＞1 then Recursion=TempInt*Recursion（TempInt-1）

End Function

Msgbox Recursion（0）

Msgbox Recursion（1）

Msgbox Recursion（5）

将上述代码复制到一个文本文件中，制作一个vbs文件，运行即可。

三、让Vbs听话地做些力所能及的事情

基于上例拓展一下，当遇到一个需要计算机解决的问题的时候，操作员需要做些什么，操作员让计算机帮着做些什么？例如有一组高空500Hpa的站点气象数据如下。

diamond 2 13年10月24日20时500百帕高空观测：

假设需要找的站点号是：54511、54161、56046、52866、53772既不连续也没什么规律的5个站点，站在一个观察者的角度，如果手工找一遍，工作量巨大且浪费时间，那就让vbs来帮忙吧。

第一步：建立一个vbs脚本文件“FindData.vbs”。

第二步：按照大脑的逻辑用vbs写出代码：

代码解读：

*1：建立一个可以操作各种文件的对象，并把这个对象交给一个名为fso的参数；

*2：用OpenTextFile工具，打开"c：数据.txt"这个文件；

*3：开始逐个查找所需要的数据，直到查找到（f.AtEnd-OfStream ＜＞ True）停止；

*4：开始读取每行的数据，并把这些数据放在tempstr这里保存好；

*5、*6、*7、*8、*9依次分别是：从tempstr从左边数5个数据是54511（left（tempstr，5）="54511"）、54161、56046、52866、53772那么就分别找到了一个符合要求的站点号，接着把符合要求的数据输出到屏幕；

*10：找遍整个文件，到结尾停止工作（Loop）；

*11：关闭文件（f.close）；

*12：查找完毕，释放对象（工具箱）（Set fso = Nothing）

第三步运行程序：

图1 vbs文件

图2 结果

1.将上面的数据部分复制到一个文本文件里面，保存成“数据.txt”，并把这个新保存的文件放在“C：”下面。

2.将上面代码部分复制到一个文本文件里面，保存成“FindData.vbs”如图1所示，双击它，运行结果如图2所示。

怎么样，vbs很简单吧！有兴趣的朋友来继续拓展它吧！

G712

A

1674-9324（2014）40-0156-02

刘晓瑜（1979-），女，河北沽源人，大学本科，硕士学位，张家口职业技术学院信息工程系高校讲师，研究方向：计算机应用；乔海珍（1972-），女，河北万全人，大学本科，硕士学位，张家口职业技术学院信息工程系高校讲师，研究方向：计算机应用。