Mid()
函式返回給定輸入字串中指定數量的字元。
Mid(String,start[,Length])
引數
新增一個模組,並將下面的程式碼放在編輯器中。
Private Sub Constant_demo_Click()
Dim var as Variant
var = "Microsoft VBScript"
msgbox("Line 1 : " & Mid(var,2))
msgbox("Line 2 : " & Mid(var,2,5))
msgbox("Line 3 : " & Mid(var,5,7))
End Sub
執行上面範例程式碼,得到以下結果 -
Line 1 : icrosoft VBScript
Line 2 : icros
Line 3 : osoft V