Left 函數(shù)（Right函數(shù)就是從右邊開始算起）
返回指定數(shù)目的從字符串的左邊算起的字符。Left(string, length)
參數(shù)
string:字符串表達(dá)式，其最左邊的字符被返回。如果 string 參數(shù)中包含 Null，則返回 Null。
Length:數(shù)值表達(dá)式，指明要返回的字符數(shù)目。如果是 0，返回零長度字符串 ("")；如果大于或等于 string 參數(shù)中的字符總數(shù)，則返回整個字符串。
例子：
Dim MyString, LeftString
MyString = "VBscrīpt"
LeftString = Left(MyString, 3) ' LeftString contains "VBS".
***********************************
Mid 函數(shù)從字符串中返回指定數(shù)目的字符。
Mid(string, start[, length])
參數(shù)：
string：字符串表達(dá)式，從中返回字符。如果 string 包含 Null，則返回 Null。
Start：string 中被提取的字符部分的開始位置。如果 start 超過了 string 中字符的數(shù)目，Mid 將返回零長度字符串 ("")。
Length：要返回的字符數(shù)。如果省略或 length 超過文本的字符數(shù)（包括 start 處的字符），將返回字符串中從 start 到字符串結(jié)束的所有字符。
例子
Dim MyVar
MyVar = Mid("VB scrīpt is fun!", 4, 6) ' MyVar contains "scrīpt".
********************
InStr函數(shù)（InStrRev函數(shù)相反從最后向前起）
返回指定的字符串在另一字符串中最先出現(xiàn)的位置。
InStr([start, ]string1, string2[, compare])
參數(shù)：
start：起始位置，默認(rèn)從第一位
string1:主體字符串，從左向右查找。如果string1為 Null，則返回 Null。
string2：查找的字符串，如果string2為 Null，則返回 Null。找不到就返回0。
compare：0是二進(jìn)制比較，1是文本比較。0為缺省值。個人
感覺區(qū)別就是在大小寫。
例子
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' String to search in.
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(1, SearchString, SearchChar, 0) ' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(SearchString, SearchChar) ' Comparison is binary by default (last argument is omitted). Returns 9.
MyPos = Instr(1, SearchString, "W") ' A binary comparison starting at position 1. Returns 0 ("W" is not found).
******************
Split 函數(shù)
在指定的 delimiter 參數(shù)出現(xiàn)的所有位置斷開 String 對象，將其拆分為子字符串，然后以數(shù)組形式返回子字符串。
Split(expression[, delimiter[, count[, compare]]])
參數(shù)
expression:主體字符串，也就是要被拆分處的字符或字符串。
delimiter：拆分元素，默認(rèn)是(" ")
count:Number [可選] 要放入數(shù)組中的項(xiàng)目數(shù)。
compare：0是二進(jìn)制比較，1是文本比較。0為缺省值。
例子
Dim MyString, MyArray, Msg
MyString = "VBscrīptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBscrīpt".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg
