VB逐位截取字符 截取两个字符串中间的字符

VB逐位截取字符串：

Dim I
For I = 1 To Len(S) '循环到结尾
    Debug.Print Mid(S, I, 1)
Next

VB截取两个字符串中间的字符：

Public Function MidStr(S As String, A As String, B As String) As String         '截取两个字符串中间的字符:截取S中从A与B之间的字符串
    If InStr(S, A) < 1 Then MidStr = "": Exit Function                          '如果不存在则清空变量并退出
    MidStr = Mid(Mid(S, InStr(S, A)), Len(A) + 1)                               '在[从(A在S中首次出现的位置)到S结尾的字符串]中截取从A的下一位开始到[从(A在S中首次出现的位置)到S结尾的字符串]结尾的字符
    MidStr = Left$(MidStr, InStr(MidStr, B) - 1)                                '在MidStr中截取从开始到B首次出现位置之前的字符串
End Function

MidStr("12456789", "123", "789")                                                '截取"123"与"789"之间的字符串

VB MID函数使用详解：

Mid(变量或字串符,开始字节, 结尾字节(可不填))
InStrRev(变量, "字串符")  最后出现位置(区分大小写)
InStr(变量, "字串符") 最先出现位置(区分大小写)

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