VBA 字符串-相关函数（6-12）

Mid()函数

Mid()函数返回给定输入字符串中指定数量的字符。

语法

Mid(String,start[,Length])

参数

• 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

Ltrim()函数

Ltrim()函数删除字符串左侧的空格。

语法

LTrim(String)

示例

添加一个模块，并将下面的代码放在编辑器中。

Private Sub Constant_demo_Click()
   Dim var as Variant
   var =       "             Microsoft VBScript"
   msgbox "After Ltrim : " & LTrim(var)
End Sub

执行上面示例代码，得到以下结果 -

After Ltrim : Microsoft VBScript

Rtrim()函数

Rtrim()函数删除字符串右侧的空格。

语法

RTrim(String)

示例

添加一个模块，并将下面的代码放在编辑器中。

Private Sub Constant_demo_Click()
   Dim var as Variant
   var =       "Microsoft VBScript           "
   msgbox("After Rtrim : " & RTrim(var))
End Sub

执行上面示例代码，得到以下结果 -

After Rtrim : Microsoft VBScript