新知識-函數

Split
　　用Split可以把字串分成陣列，例：
Private Sub Form_Load()
    Label1.Caption = "德 本 立"
    A = Split(Label1.Caption)
End Sub
結果：A(0) = "德"，A(1) = "本"，A(2) = "立"
Private Sub Form_Load()
    Label1.Caption = "德,本,立"
    A = Split(Label1.Caption, ",")
End Sub
結果：A(0) = "德"，A(1) = "本"，A(2) = "立"
Private Sub Form_Load()
    Label1.Caption = "德本立"
    A = Split(Label1.Caption, "")
End Sub
結果：A(0) = "德本立"



Replace
Replace:取代字串
Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String

取代後的字串=Replace(原字串,要被取代的字串,取代成的字串,[開始搜索位置],[取代的次數],[文字比較的模式])

e.g
Dim strtxt As String
strtxt = "hello"
strtxt = Replace(strtxt, "ll", "AA")
Print strtxt 'heAAo

UCase、LCase
　　利用Ucase和LCase可以將字串大小寫轉換：
Text1.Text = UCase("abcDEF123") '結果 = "ABCDEF123"
Text1.Text = LCase("abcDEF123") '結果 = "abcdef123"
全形字元則沒有影響

InStr、InStrRev
利用InStr和InStrRev可以搜尋字串位置：
a = InStr("abcdefg", "c") 'a取得傳值，"abcdefg"是搜索範圍，"c"是要被搜尋的字串
Print a '結果a=3，即是"c"在字串中的第三個字完
利用InStrRev，我們還可以倒轉找尋字串
a = InStrRev("acacacacaca", "c") 'a取得傳值，"c"是要被搜尋的字串
Print a '結果a=10，即是"c"在字串中的從後數上第二個字完
如果找不到字串，將會傳回0


Space
　　這個是用來格空格的函數：
Print "a" & Space(11) & "b" & Space(6) & "c" '結果 = a           b      c

---

引用自

VB範例網--VB函數

http://www.vbex.net/