劉曉瑜，喬海珍

（張家口職業(yè)技術(shù)學(xué)院 信息工程系，河北 張家口 075000）

vbs小應(yīng)用

劉曉瑜，喬海珍

（張家口職業(yè)技術(shù)學(xué)院 信息工程系，河北 張家口 075000）

什么是vbs，怎樣使用它？通過生動(dòng)的例子言簡意賅地介紹了Vbs的運(yùn)行環(huán)境，編寫技巧及運(yùn)行方法。

Vbs；程序；運(yùn)行

一、認(rèn)識(shí)Vbs

vbs是什么？它來能做什么？隨著所見即所得的計(jì)算機(jī)操作界面的問世，DOS操作系統(tǒng)逐漸淡出了大多數(shù)人的視界，而現(xiàn)在我要向大家介紹的這一款小的工具語言vbs，其功能相當(dāng)于以前DOS環(huán)境下命令行能做的，或許還能比DOS做得更多，相比DOS而言，vbs是應(yīng)網(wǎng)絡(luò)應(yīng)用而生。

二、如何在電腦上運(yùn)行一個(gè)vbs小程序

vbs的操作方法很簡單，在任意位置新建一個(gè)文本文件，將代碼寫入其中，保存后將文件的擴(kuò)展名改為“.vbs”，雙擊該文件，程序即可運(yùn)行。即使是電腦本身沒有安裝高級(jí)語言軟件，只要是微軟的windows更或是微軟的移動(dòng)智能設(shè)備都可以運(yùn)行?？梢杂谩啊?、“rem”將非運(yùn)行的語句注釋掉。

例：整數(shù)階乘。

Function Recursion（TempInt）'簡單階乘遞歸函數(shù)

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）

將上述代碼復(fù)制到一個(gè)文本文件中，制作一個(gè)vbs文件，運(yùn)行即可。

三、讓Vbs聽話地做些力所能及的事情

基于上例拓展一下，當(dāng)遇到一個(gè)需要計(jì)算機(jī)解決的問題的時(shí)候，操作員需要做些什么，操作員讓計(jì)算機(jī)幫著做些什么？例如有一組高空500Hpa的站點(diǎn)氣象數(shù)據(jù)如下。

diamond 2 13年10月24日20時(shí)500百帕高空觀測：

假設(shè)需要找的站點(diǎn)號(hào)是：54511、54161、56046、52866、53772既不連續(xù)也沒什么規(guī)律的5個(gè)站點(diǎn)，站在一個(gè)觀察者的角度，如果手工找一遍，工作量巨大且浪費(fèi)時(shí)間，那就讓vbs來幫忙吧。

第一步：建立一個(gè)vbs腳本文件“FindData.vbs”。

第二步：按照大腦的邏輯用vbs寫出代碼：

代碼解讀：

*1：建立一個(gè)可以操作各種文件的對(duì)象，并把這個(gè)對(duì)象交給一個(gè)名為fso的參數(shù)；

*2：用OpenTextFile工具，打開"c：數(shù)據(jù).txt"這個(gè)文件；

*3：開始逐個(gè)查找所需要的數(shù)據(jù)，直到查找到（f.AtEnd-OfStream ＜＞ True）停止；

*4：開始讀取每行的數(shù)據(jù)，并把這些數(shù)據(jù)放在tempstr這里保存好；

*5、*6、*7、*8、*9依次分別是：從tempstr從左邊數(shù)5個(gè)數(shù)據(jù)是54511（left（tempstr，5）="54511"）、54161、56046、52866、53772那么就分別找到了一個(gè)符合要求的站點(diǎn)號(hào)，接著把符合要求的數(shù)據(jù)輸出到屏幕；

*10：找遍整個(gè)文件，到結(jié)尾停止工作（Loop）；

*11：關(guān)閉文件（f.close）；

*12：查找完畢，釋放對(duì)象（工具箱）（Set fso = Nothing）

第三步運(yùn)行程序：

圖1 vbs文件

圖2 結(jié)果

1.將上面的數(shù)據(jù)部分復(fù)制到一個(gè)文本文件里面，保存成“數(shù)據(jù).txt”，并把這個(gè)新保存的文件放在“C：”下面。

2.將上面代碼部分復(fù)制到一個(gè)文本文件里面，保存成“FindData.vbs”如圖1所示，雙擊它，運(yùn)行結(jié)果如圖2所示。

怎么樣，vbs很簡單吧！有興趣的朋友來繼續(xù)拓展它吧！

G712

A

1674-9324（2014）40-0156-02

劉曉瑜（1979-），女，河北沽源人，大學(xué)本科，碩士學(xué)位，張家口職業(yè)技術(shù)學(xué)院信息工程系高校講師，研究方向：計(jì)算機(jī)應(yīng)用；喬海珍（1972-），女，河北萬全人，大學(xué)本科，碩士學(xué)位，張家口職業(yè)技術(shù)學(xué)院信息工程系高校講師，研究方向：計(jì)算機(jī)應(yīng)用。