4.2 Instr 和 InStrRev

InStr函式返回一個字串第一次出現在一個字串，從左到右搜尋。返回搜尋到的字元索引位置。InStrRev函式與InStr功能相同，從右到左搜尋。返回搜尋到的字元索引位置。

語法：InStr([start, ]string1, string2[, compare]) 引數：

Start - 一個可選引數。指定搜尋的起始位置。搜尋從第一個位置開始，從左到右。String1 - 必需的引數。要搜尋的字串。String2 - 必需的引數。要在String1中搜索的字串。Compare - 一個可選引數。指定要使用的字串比較。它可以採取以下提到的值：0 = vbBinaryCompare - 執行二進位制比較(預設)1 = vbTextCompare - 執行文字比較

Private Sub Constant_demo_Click()    Dim Var As Variant    Var = "Microsoft VBScript"    Debug.Print InStr(1, Var, "s")        ' 6    Debug.Print InStr(7, Var, "s")        ' 0    Debug.Print InStr(1, Var, "f", 1)     ' 8    Debug.Print InStr(1, Var, "t", 0)     ' 9    Debug.Print InStr(1, Var, "i")        ' 2    Debug.Print InStr(7, Var, "i")        ' 16    Debug.Print InStr(Var, "VB")          ' 11End Sub

4.3 Mid

Mid函式返回給定輸入字串中指定數量的字元。語法：Mid(String, start[, Length])引數：

String - 必需的引數。輸入從中返回指定數量的字元的字串。Start - 必需的引數。一個整數，它指定了字串的起始位置。Length - 必需的引數。一個整數，指定要返回的字元數。

    Private Sub Constant_demo_Click()        Dim var as Variant        var = "Microsoft VBScript"        Debug.Print Mid(var, 2)       ' icrosoft VBScript        Debug.Print Mid(var, 2, 5)    ' icros        Debug.Print Mid(var, 5, 7)    ' osoft V    End Sub

4.4 Left 和 Right

Left 和 Right 擷取字串，從左或者從右開始。語法：Left(String, Length)引數：

String - 必需的引數。 輸入從左側返回指定數量的字元的字串。Length - 必需的引數。 一個整數，指定要返回的字元數。

Private Sub Constant_demo_Click()    Dim var as Variant    var = "Microsoft VBScript"    Debug.Print Left(var,2)     ' Mi    var = "MS VBSCRIPT"    Debug.Print Left(var,5)     ' MS VB    var = "microsoft"    Debug.Print Left(var,9)     ' microsoftEnd Sub

4.5 Replace 函式

Replace 函式 將一個字串替換另一個字串，可指定的次數。語法：Replace(string, findString, replaceWith[, start[, count[, compare]]])引數：

String - 必需的引數。需要被搜尋的字串。findString - 必需的引數。將被替換的字串部分。replaceWith - 必需的引數。用於替換的子字串。start - 可選的引數。規定開始位置。預設是 1。count - 規定指定替換的次數。預設是 -1，表示進行所有可能的替換。compare - 可選的引數。規定所使用的字串比較型別。0 = vbBinaryCompare - 執行二進位制比較(預設)1 = vbTextCompare - 執行文字比較

示例：

dim txttxt="This is a beautiful day!"Debug.Print Replace(txt, "beautiful", "horrible")   ' This is a horrible day!

4.6 StrReverse 倒轉函式

語法：StrReverse(string)示例：

Private Sub StrReverse_Demo()    Debug.Print StrReverse("VBSCRIPT"))             ' TPIRCSBV    Debug.Print StrReverse("My First VBScript"))    ' tpircSBV tsriF yM    Debug.Print StrReverse("123.45"))               ' 54.321End Sub

4.7 其他字串函式Ltrim(string) 去掉 string 左端空白Rtrim(string) 去掉 string 右端空白Len(string) 計算 string 長度Lcase(string) 和 Ucase(string) 轉換為小寫和大寫神器放送

VBA程式設計神器 VBA程式碼助手 可以極大提高程式設計速度，降低程式設計門檻歡迎使用

用法 輸入 字典+空格 即可看到如下提示 也可輸入 dic+空格 zd+空格 均可得到提示

本提示資料庫可完全自定義!