舉例說明常用字串處理函數

Option Explicit

Private Sub Command1_Click()
    Dim strtest As String, strtest1 As String, strtest2 As String
    Dim strtest3 As String, strtest4 As String, strtest5 As String
    Dim strtest6 As String, strtest7 As String, strtest8 As String
   
    strtest = "abc123abc123"
    List1.AddItem "Left(strtest,5)=" & Left(strtest, 5)
    List1.AddItem "Right(strtest,5)=" & Right(strtest, 5)
    List1.AddItem "Mid(strtest,5,2)=" & Mid(strtest, 5, 2)
   
    List1.AddItem ""
   
    strtest1 = "  abc  123  ": strtest2 = "abc"
    List1.AddItem "Ltrim(strtest1)=" & LTrim(strtest1) & strtest2  '去掉字串前空格
    List1.AddItem "Rtrim(strtest1)=" & RTrim(strtest1) & strtest2  '去掉字串後空格
    List1.AddItem "Trim(strtest1)=" & Trim(strtest1) & strtest2  '同時去掉字串前後空格
   
    List1.AddItem ""
   
    strtest3 = "abc 123": strtest4 = "ABC 123"
    List1.AddItem "Len(strtest3)=" & Len(strtest3)  '返回字串的字元個數
    List1.AddItem "LenB(strtest3)=" & LenB(strtest3)  '返回字串所佔位元組數
    List1.AddItem "Ucase(strtest3)=" & UCase(strtest3)  '返回字母大寫
    List1.AddItem "Lcase(strtest4)=" & LCase(strtest4)  '返回字母小寫
   
    List1.AddItem ""
    '注意Str和Cstr的區別
    strtest5 = "123abc 123"
    List1.AddItem "InStr(strtest5,strtest3)=" & InStr(strtest5, strtest3)  '在第一個字串中尋找第二個字串，返回找到的字元位置
    List1.AddItem "InStr(7,strtest5,strtest3)=" & InStr(7, strtest5, strtest3)  '7表示從第7個字元開始找
    List1.AddItem "InStr(2,strtest5,strtest3)=" & InStr(2, strtest5, strtest3)  '2表示從第2個字元開始找
    List1.AddItem "InStrB(strtest5,strtest3)=" & InStrB(strtest5, strtest3)  '返回找到的位元組位置
    List1.AddItem ""
   
    Dim strarry(2) As String
    strarry(0) = "123": strarry(1) = "abc": strarry(2) = "ABC"
    strtest6 = "abc-123-ABC"
    List1.AddItem "join(strarry(),-)=" & Join(strarry(), "-")  '合并字串，-分隔字元,預設為空白格
    List1.AddItem ""
   
    List1.AddItem "format(100000)=" & Format(10000)  '省略格式控制符字串，預設返回字串
    List1.AddItem "format(100000" & "," & """" & "General Number" & """" & ")=" & Format(10000, "General Number")
    List1.AddItem "format(100000" & "," & """" & "Currency" & """" & ")=" & Format(100000, "Currency")
     '其他詳見msdn，或者大一vb課本P48
   
    List1.AddItem ""
    strtest7 = "ABC": strtest8 = "123dfd43"
    List1.AddItem "Asc(strtest7)=" & Asc(strtest7)  '返回字串的第一個字元的asc2的值
    List1.AddItem "Chr(65)=" & Chr(65)  '返回asc2值對應的字元
    List1.AddItem "Val(strtest8)=" & Val(strtest8)  '返回字串第一個字元前的所有數字
   
    List1.AddItem ""
    'StrConv字串之間相互轉換，用於不同語言版本的轉換，也就是改變編碼方式
     Dim in_strconv() As Byte
     in_strconv() = "ABC中國"
     List1.AddItem "原字串所佔位元組=" & CStr(UBound(in_strconv()) - LBound(in_strconv()) + 1)
   
    Dim out_strconv() As Byte
    out_strconv() = StrConv(in_strconv(), vbFromUnicode)
    List1.AddItem "轉換後字串所佔位元組=" & CStr(UBound(out_strconv()) - LBound(out_strconv()) + 1)
   
End Sub