VB的字符串处理函数

zhgc

VB的字符串处理函数

大小写，去空

1. sTrsn = UCase(Trim(Me.TextInput.text))

复制代码

字符串长度：

1. len
   
2. i = LenB(warn)

复制代码

字符串截取

1. （1）左部截取left$(字符串,n）：n是要截取的字符个数
   
2. （2）中部截取Mid$(字符串,p,n):表示从第p个字符开始截取n个字符
   
3. （3）右部截取Right$(字符串,n):表示截取字符串的后n个字符
   
4. 如：
   
5. left$("abcdefg",3)的结果是："abc"
   
6. mid$("abcdefg",2,3)的结果是:"bcd"
   
7. right$("abcdefg",3)的结果是："efg"

复制代码

字符串 分割成 数组

1. Dim B() As String
   
2. B() = Split("P14-003287,Q3000,MSSF2319CJ1,D8-@@-829,LFIM,SBBVME511190315F19", ",")
   
3. MsgBox UBound(B)

复制代码

字符串 包含

1.         a = "ab"
   
2.         b = "xyzabc"
   
3.         If InStr(b, a) > 0 Then
   
4.             MsgBox a & " 在 " & b & " 中"
   
5.          else
   
6.              MsgBox a & " 不在 " & b & " 中"
   
7.         End If

复制代码