vbs小应用
开篇：润墨网以专业的文秘视角，为您筛选了一篇vbs小应用范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
摘要：什么是vbs，怎样使用它？通过生动的例子言简意赅地介绍了Vbs的运行环境，编写技巧及运行方法。
关键词：Vbs;程序;运行
中图分类号：G712 文献标志码：A 文章编号：1674-9324（2014）40-0156-02
一、认识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百帕高空观测：
11 10 24 20 500 306
52495 104.50 40.75 1329 1 571 -20 3.6 290 11
52533 98.48 39.77 1478 1 572 -17 1.5 270 12
52652 100.43 38.93 1483 1 572 -17 3.5 270 6
52681 103.08 38.63 1367 1 573 -17 4.6 280 9
52818 94.90 36.42 2809 1 573 -13 3.1 210 7
52836 98.10 36.30 3192 1 573 -13 2.9 210 5
52866 101.77 36.62 2262 1 573 -12 9 215 14
52983 104.15 35.86 1875 1 576 -12 24 265 11
53068 112.00 43.65 966 1 568 -22 18 340 9
53336 108.52 41.57 1290 1 570 -21 25 235 5
53463 111.68 40.82 1065 1 570 -21 23 325 10
53513 107.40 40.77 1041 1 570 -21 6 260 7
53543 109.98 39.83 1459 1 571 -21 1.8 285 6
假设需要找的站点号是：54511、54161、56046、52866、53772既不连续也没什么规律的5个站点，站在一个观察者的角度，如果手工找一遍，工作量巨大且浪费时间，那就让vbs来帮忙吧。
第一步：建立一个vbs脚本文件“FindData.vbs”。
第二步：按照大脑的逻辑用vbs写出代码：
Set fso = CreateObject（"Scripting.FileSystemObject"） ’*1
Set f = fso.OpenTextFile（"c：＼数据.txt"， 1， True） ’*2
Do While f.AtEndOfStream <> True ’*3
tempstr = f.readline ’*4
if left（tempstr，5）="54511" then msgbox tempstr ’*5
if left（tempstr，5）="54161" then msgbox tempstr ’*6
if left（tempstr，5）="56046" then msgbox tempstr ’*7
if left（tempstr，5）="52866" then msgbox tempstr ’*8
if left（tempstr，5）="53772" then msgbox tempstr ’*9
Loop ’*10
f.close
’*11
Set fso = Nothing
’*12
代码解读：
*1：建立一个可以操作各种文件的对象，并把这个对象交给一个名为fso的参数;
*2：用OpenTextFile工具，打开"c：＼数据.txt"这个文件;
*3：开始逐个查找所需要的数据，直到查找到（f.AtEndOfStream <> 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.将上面的数据部分复制到一个文本文件里面，保存成“数据.txt”，并把这个新保存的文件放在“C：＼”下面。
2.将上面代码部分复制到一个文本文件里面，保存成“FindData.vbs”如图1所示，双击它，运行结果如图2所示。
怎么样，vbs很简单吧！有兴趣的朋友来继续拓展它吧！
作者简介：刘晓瑜（1979-），女，河北沽源人，大学本科，硕士学位，张家口职业技术学院信息工程系高校讲师，研究方向：计算机应用;乔海珍（1972-），女，河北万全人，大学本科，硕士学位，张家口职业技术学院信息工程系高校讲师，研究方向：计算机应用。