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

  • A+
所属分类:lcx

    VB截取字符,VB逐位截取字符,VB截取两个字符串中间的字符,VB截取两个字符串之间的字符,VB MID函数使用详解,VB MID函数详解,VB MID函数,VB MID。

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)
    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"

文章来源于lcx.cc:VB逐位截取字符 截取两个字符串中间的字符

相关推荐: 批量抓取QQ空间5-8年前“消失了的QQ心情”

用企鹅比较早的同学都知道早在05年到08年左右企鹅有个功能叫“QQ心情”后来改名叫“滔滔”。现在改名叫“说说”。 自从某一版本更新后以前的“QQ心情、滔滔”对外已经不可见了,很多人以为自己已经删除了自己所有的说说。其实不然,通过接口依旧能够获取到5-8年前的“…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: