VB常用字符串操作函數


 

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”




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) 則返回 "XIAO",而strconv("XIAO",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


免責聲明!

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



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