VBS基本語法


 

一、初識VBS

Vbs       是一種變量無關、解釋性執行的腳本語言。vbs語言中不區分大小寫。語句以換行結束。

dim        聲明變量;批量名稱聲明,多個變量之間用逗號分隔:

set          賦值;

rem       注釋,同 '

msgbox(prompt,buttons,title,helpfile,context)   輸出 msgbox(s) 把兩個不同的內容一起輸出時用“+”連接

       prompt   顯示的字符串,最大為1024字符,如果換行用回車換行符組合 chr(13)&chr(10)       buttons 默認值為0,為顯示按鈕值的參數

       title標題,如果省略則交應用程序的名稱顯示在標題欄中;

       helpfile字符串表達式,用於標識為對話框提供上下文相關幫助文件,如果提供了helpfile,則必須提供context

       context   數值表達式,用於標識某個幫助文件的編號,必須與helpfile一起使用;

inputbox(msg,"title","wow~") '第一參數為顯示語句,最大長度為1024;第二為框體名稱,第三為默認輸入內容

msgbox的返回值有1-7七個數,依次來自:確定、取消、放棄、重試、忽略、是、否;

 

二、數據類型

vbs中只有一個基本數據數據類型 Variant,variant中包含integer等子類型,用VarType()函數可返回數據的子類型的對應值;使用typename(對象)也可返回子類型;

子類型有:

byteinteger,long,single,duble,currency(貨幣值),decimal,date,string,boolean,empty(未初始化),null(無有效數據),object(一般對象),unknown,nothing(還未引用對象實例的對象變量)error

 

const        聲明常量;也可用Private或者Public來改變變量的公有和私有屬性;

dim A(10)      11元素數組,賦值A(2)=1,二維數組:B(2,2) 單點賦值B(1)(2)'數組最高可為60

 

變量的命名規則:

1、第一個字符必須是字母;

2、不能包含嵌入句點的語句;

3、長度不能超過255個字符;

4、在被聲明的作用域內必須唯一;

 

三、運算符

1、算術運算符

+    

-    

*     

/     

\      整除

mod      取余(%

^    

&    字符串連接,字符串即用“”包圍的內容

2、比較運算符

=     等於

<>  不等於

<     小於

>     大於

<=  小於等於

>=  大於等於

Is     對象引用比較

3、邏輯運算符

not    

and  

or     

xor    異或

eqv      等價

imp  隱含

 

四、控制結構

1、條件語句:

if...then
...else 
if...then
...else
...
end if
select case
    ..
    case
    .. ...
    case
    .. ...
    case else
    ...
end select

 

2、循環:

1)、do...loop '重復執行doloop之間的語句,直到exit do

exit do

2)、while...wend

3)、for...next.

4)、for each ... next

 

五、函數

1、格式:

sub Name()
    ...
end sub
function xx()
    ...
end function

sub無返回值,function有返回值

 

2、常用函數:

 1 asc(s)     返回s內第一個字母對應的ASCII碼
 2 chr(51)    將數字返回對應的字符
 3 cbool()    返回表達式的boolean值
 4 cByte()    將表達式轉換為byte子類型的variant
 5 cCur()     將表達式轉換為currency
 6 cdate()    將表達式轉換為date
 7 cdble()    將表達式轉換為double類型
 8 cint()     轉換為integer
 9 cLng()     轉換為long
10 csng()     轉換為single
11 cstr()     轉換為string
12 isArray()  判斷是否為數組,返回bool值;
13 isDate()   判斷是否為日期,返回bool值;
14 isEmpty()  判斷是否已初始化,返回bool值;
15 isNumeric()判斷是否為數字,返回bool值;
16 isNull()   判斷是否不包含有效數據,返回bool值;
17 isObject() 判斷是否引用了有效對象,返回bool值;
18 len(()     返回字符串內的字符數或存儲一變量所需要的字節數;
19 left(string,length)     返回從字符串左邊算起的指定數目的字符;
20 mid(string,start,length)  從字符串中返回指定數目的字符;
21 right(string,length)      從字符串中返回字符,從右邊開始
22 InStr(start,str1,str2)    返回str2在str1中第一次出現的位置,start表示開始搜索位置,為可選;
23 Lcase(str)      返回字符串的小寫形式;
24 UCase(str)      返回字符串的大寫形式;
25 split(separator) 分割字符串;
26 Date            返回當前日期;
27 Time            返回當前時間;
28 Now             返回日期和時間;
29 day(date)       返回日;
30 month(date)      返回月;
31 year(date)      返回年;
32 hour(time)      返回小時;
33 minute(time)     返回分鍾;
34 second(time)     返回秒;
35 formatDateTime(date[,namedFormat])    返回已格式化的時間
36     namedformat可選參數有:
37     vbGeneralDate     (0)
38     vbLongDate       (1)
39     vbShortDate      (2)
40     vbLongTime       (3)
41     vbShortTime      (4)

 

六、異常處理

格式:

on error resume next
...
err.Clear
err.raise 6

對常見文件和數據庫的訪問:

1 set myobj = CreateObject("Scripting.fileSystemObject")  打開文本文件;
2 set myobj = CreateObject("Excel.Application")    訪問Excel
3 Set myobj = CreateObject("Microsoft.XMLDOM")    XML文件訪問;
4 set myobj = CreateObject("ADODB.Recordset")    acess數據庫訪問;
5 set myobj = CreateObject("ADODB.Connection")    SQLServer數據庫訪問;

 日期文字和時間文字包含在兩個#之間,如:#6-1-99#

1 scripting.filesystemobject 提供一整套文件系統操作函數
2 scripting.dictionary    返回存放鍵值對的字典對象
3 wscript.shell        提供一套讀取系統信息的函數
4 wscript.network       提供網絡連接和遠程打印機管理的函數

 

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM