黑色旋风VB编程vip教程

教程詳情

教程名字：黑色旋風VB編程vip教程
教程大小：136.93 MB
作者：黑色旋風

1. ASC(X)，Chr(X)：轉換字符字符碼

[格式]：
P=Asc(X) 返回字符串X的第一個字符的字符碼
P=Chr(X) 返回字符碼等于X的字符

[範例]：
(1)P=Chr(65)
‘ 輸出字符A,因爲A的ASCII碼等于65
(2)P=Asc(“A”)
‘ 輸出65

2. Len(X)：計算字符串X的長度
[格式]：
P=Len(X)
[說明]：
空字符串長度爲0，空格符也算一個字符，一個中文字雖然占用2 Bytes，但也算一個字符。

[範例]：
(1) 令X=”” (空字符串)
Len(X) 輸出結果爲0
(2) 令X=”abcd”
Len(X) 輸出結果爲4
(3) 令X=”VB教程”
Len(X) 輸出結果爲4

3. Mid(X)函數：讀取字符串X中間的字符
[格式]：
P=Mid(X,n)
由X的第n個字符讀起，讀取後面的所有字符。
P=Mid(X,n,m)
由X的第n個字符讀起，讀取後面的m個字符。

[範例]：
(1) X=”abcdefg”
P=Mid(X,5)
結果爲：P=”efg”
(2) X=”abcdefg”
P=Mid(X,2,4)
結果爲P=”bcde”

4. Replace: 将字符串中的某些特定字符串替換爲其他字符串
[格式]：
P=Replace(X,S,R)
[說明]：将字符串X中的字符串S替換爲字符串R，然後返回。

[範例]：
X=”VB is very good”
P=Replace(X,good,nice)
輸出結果爲：P=”VB is very nice”

5. StrReverse：反轉字符串
[格式]：
P=StrReverse(X)
[說明]：
返回X參數反轉後的字符串
[範例]：
（1）X=”abc”
P=StrReverse(X)
輸出結果：P=”cba”

6. Ucase(X)，Lcase(X)：轉換英文字母的大小寫
[格式]：
P=Lcase(X)
‘ 将X字符串中的大寫字母轉換成小寫
P=Ucase(X)
‘ 将X字符串中的小寫字母轉換成大寫
[說明]：除了英文字母外，其他字符或中文字都不會受到影響。

[範例]：
（1）令 X=”VB and VC”
則Lcase(X)的結果爲”vb and vc”，Ucase(X)的結果爲”VB AND VC”

7. InStr函數：尋找字符串
[格式]：
P=InStr(X,Y)

從X第一個字符起找出Y出現的位置
P=InStr(n,X,Y)
從X第n個字符起找出Y出現的位置
[說明]：
（1）若在X中找到Y，則返回值是Y第一個字符出現在X中的位置。
（2） InStr(X,Y)相當于InStr(1,X,Y)。
（3）若字符串長度，或X爲空字符串，或在X中找不到Y，則都返回0。
（4）若Y爲空字符串，則返回0。

----------------------------------------------------------------------------------------------

mid(字符串，從第幾個開始，長度) ByRef 在[字符串]中[從第幾個開始]取出[長度個字符串]
例如 mid("小欣無敵",1,3) 則返回 "小欣無"

instr(從第幾個開始,字符串1,字符串2) ByVal 從規定的位置開始查找，返回字符串2在字符串1中的位置
例如 instr(1,"小欣無敵","小") 則返回 1,instr(2,"小欣無敵","小")，則返回 0 。 0 表示未找到

InStrRev(字符串1,字符串2,從第幾個開始) ByVal 從規定的位置開始，從後住前查找，返回字符串2在字符串1中的位置，此處注意，雖是從後住前查找，但是返回的值還是從前往後算的。
例如 instrRev("小欣無敵","小",2) 則返回 2 ; instrRev("小欣無敵","欣",1) 則返回 0 ,因爲它從"小欣無敵"的第1個字開始往前查找，所以找不到。0 表示未找到中國自學編程網 www.zxbc.cn

left(字符串,長度) ByVal 從[字符串]的左邊開始返回[長度]個字符
例如 Left("小欣無敵,3) 則返回 "小欣無"

right(字符串,長度) ByVal 從[字符串]的右邊開始返回[長度]個字符
例如 Right("小欣無敵",3) 則返回 "欣無敵"

ucase(字符串) ByVal 返回[字符串]的大寫形式，隻對英文字符有效
例如 ucase("xiaoXINwuDi") 則返回 "XIAOXINWUDI"

lcase(字符串) ByVal 返回[字符串]的小寫形式，隻對英文字符有效
例如 lcase("xiaoXINwuDi") 則返回 "xiaoxinwudi"

asc(字符) Byval返回[字符]的ascii編碼，若有多個字符，則隻返回首字符的ascii編碼,和Chr()函數是一個可逆的過程
例如 asc("小") 則返回 -12127 ; asc("小欣無敵") 也返回 -12127

chr(ASCii編碼) Byval 返回[Ascii]編碼所代表的字符，和Chr()函數是一個可逆的過程
例如 chr(-12127) 則返回 "小" ；chr(asc("小")) 則返回"小"(這裏是爲了說明asc和chr的可逆性，例用此特性可以加密文本)

trim(字符串) Byval 返回去掉了前、後之後的[字符串]
例如 trim(" 小欣無敵 ") 則返回 "小欣無敵" ，中間的空格不受任何影響

string(個數,字符) Byval 返回[個數]個[字符]
例如 string(3,"小") 則返回 "小小小" , 而 string(3,"小欣無敵") 也返回 "小"，隻有首字符才有效

space(個數) Byval 返回[個數]個空格
例如 space(5) 則返回 " "

strconv(字符串,轉換的類型) Byval 将字符串轉成指定的類型。常用的類型隻有兩個,vbwide 半角轉成全角,vbNarrow 全角轉成半角

例如 strconv("xiao",vbwide) 則返回 "ＸＩＡＯ",而strconv("ＸＩＡＯ",vbnarrow) 則返回 "XIAO"
'備注 vbwide = 4 ,vbnarrow = 8

len(字符串) Byval 返回[字符串]的長度
例如 len("小欣無敵") 則返回 4

------------------------------------------------------------------------------------------

Len Len(string|varname) 返回字符串内字符的數目，或是存儲一變量所需的字節數
Trim Trim(string) 将字符串前後的空格去掉
Ltrim Ltrim(string) 将字符串前面的空格去掉
Rtrim Rtrim(string) 将字符串後面的空格去掉
Mid Mid(string,start,length) 從string字符串的start字符開始取得length長度的字符串，如果省略第三個參數表示從start字符開始到字符串結尾的字符串
Left Left(string,length) 從string字符串的左邊取得length長度的字符串
Right Right(string,length) 從string字符串的右邊取得length長度的字符串
LCase LCase(string) 将string字符串裏的所有大寫字母轉化爲小寫字母
UCase UCase(string) 将string字符串裏的所有大寫字母轉化爲大寫字母
StrComp StrComp(string1,string2[，compare]) 返回string1字符串與string2字符串的比較結果，如果兩個字符串相同，則返回0，如果小于則返回-1，如果大于則返回1

InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出現的位置

Split Split(string1,delimiter[, count[, start]]) 将字符串根據delimiter拆分成一維數組，其中delimiter用于标識子字符串界限。如果省略，使用空格("")作爲分隔符。
count 返回的子字符串數目，-1 指示返回所有子字符串。
start爲 1 執行文本比較；如果爲 0 或者省略執行二進制比較。
Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定數目的某子字符串(find)被替換爲另一個子字符串(replacewith)

[示例：]

1、Len函數示例：
下面的示例利用 Len 函數返回字符串中的字符數目：
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8。
2、Trim、Ltrim、Rtrim函數示例：
下面的示例利用 LTrim, RTrim, 和 Trim 函數分别用來除去字符串開始的空格、尾部空格、開始和尾部空格：
Dim MyVar
MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") 'MyVar 包含"vbscript"。
3、Mid函數示例：
下面的示例利用 Mid 函數返回字符串中從第四個字符開始的六個字符：
Dim MyVar
MyVar = Mid("VB腳本is fun!", 4, 6) 'MyVar 包含 "Script"。
4、Left函數示例：
下面的示例利用Left 函數返回MyString 的左邊三個字母：
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS

5、Right函數示例：
下面的示例利用 Right 函數從字符串右邊返回指定數目的字符：
Dim AnyString, MyStr
AnyString = "Hello World" '定義字符串。
MyStr = Right(AnyString, 1) '返回 "d"。
MyStr = Right(AnyString, 6) ' 返回 " World"。
MyStr = Right(AnyString, 20) ' 返回 "Hello World"。
6、LCase函數示例：
下面的示例利用 LCase 函數把大寫字母轉換爲小寫字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。
7、 UCase函數示例：
下面的示例利用 UCase 函數返回字符串的大寫形式：
Dim MyWord
MyWord = UCase("Hello World") ' 返回"HELLO WORLD"。
8、StrComp函數示例：
下面的示例利用 StrComp 函數返回字符串比較的結果。如果第三個參數爲 1 執行文本比較；如果第三個參數爲 0 或者省略執行二進制比較。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" '定義變量。
MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。
9、InStr示例：
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"???
SearchChar = "P"??
MyPos = Instr(SearchString, SearchChar)???'返回 9.
注意：返回的不是一個字符串在另一個字符串中第一次出現的字符位置，而是字節位置。
10、Split函數示例：
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x",-1,1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Response.Write(MyArray(0))
11、Replace函數示例：
Replace("ABCD", "BC", "12") '得到A12D

------------------------------------------------------------------------------------------------

　1．Chr[$]（數值）函數
　　返回标準擴展碼的對應字符。
　　說明：
　　（1）數值範圍在0到255之間。
　　（2）Chr（）返回的是數值類型，而Chr$（）則返回字符類型。
　　（3）ANSI是ASCII碼的擴充，其前128個字符都與ASCII碼相同。
　　例如，我們常用以下的語句加入回車換行符。Chr（13）+Chr（10）
　　2．Asc（"字符"）函數
　　此函數用來返回字符的ANSI碼值。
　　說明：若輸入爲一字符串，則隻返回第一個字符的ASCII碼值。
　　例如，
　　　　x=Asc（"a"），則， x=97
　　　　x=Asc（"ab"），則，x=97
　　3．String[$]（個數，字符）
　　用于重複某一個字符。
　　說明：
　　（1）“個數”用來指定重複的次數。
　　（2）若“字符”爲一字符串，則隻重複複制第一個字符。
　　4．Len（字符串）函數
　　用于返回字符串的長度。

5．Left[$]（字符串，字符個數）
　　用于返回“字符串”最左邊的長度爲“字符個數”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Left（"Visual Basic",3）
　　　　則
　　　　substr="Vis"
　　6．Right[$]（字符串，字符個數）
　　用于返回“字符串”最右邊的長度爲“字符個數”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Right（"Visual Basic",3）
　　　　則
　　　　substr="sic"
　　7．Mid[$]（字符串，起始位置，[字符個數]）
　　用于返回一個子字符串。
　　說明：
　　（1）子字符串從“起始位置”開始，以“字符個數”爲長度。
　　（2）若省略“字符個數”，則從起始位置到字符串的結尾。
　　8．Lcase（字符串）和Ucase（字符串）函數
　　Lcase：不論字符串中的字符爲大寫還是小寫，一律輸出爲小寫。
　　Ucase：不論字符串中的字符爲大寫還是小寫，一律輸出爲小寫。
　　9．Ltrim（字符串）、Rtrim（字符串）、Trim（字符串）函數
　　Ltrim（字符串）：用于去掉字符串中左邊的空格。
　　Rtrim（字符串）：用于去掉字符串中右邊的空格。
　　Trim（字符串）：用于去掉字符串中左右兩邊的空格。
　　10．Str（數值）函數和 Val（字符串）函數
　　Str（數值）：用于将數字轉化爲字符串。
　　Val（字符串）：用于将字符串轉化爲數值。
　　例如，
　　　　Dim a As String
　　　　Dim b As Long
　　　　a=Str（345.45）
　　　　b=Val（"234.45"）
　　　　則
　　　　a="345.45"
　　　　b=234.45