vba 提取字符串中第二个特殊字符后面3个字符

风1234565

a="ajdyh-hehheh-jej7uje-hkejb8"
1、提取第二个"-"后面的3个字符"jej"
2、怎么判断a里面有几个"-"
谢谢

microyip

1. Dim v as Variant
   
2. a="ajdyh-hehheh-jej7uje-hkejb8"
   
3. v=split(a,"-")
   
4. if ubound(v)>2 then msgbox left(v(2),3)

复制代码

fxl447098457

1. Sub ts()
   
2. Dim a$, Mystring$, CountOfDash%
   
3. a = "ajdyh-hehheh-jej7uje-hkejb8"
   
4. Mystring = Left(Split(a, "-")(2), 3)
   
5. CountOfDash = UBound(Split(a, "-"))
   
6. Debug.Print Mystring, CountOfDash
   
7. End Sub

复制代码

香川群子

可以用函数：
提取：找到第2个"-"的位置

1. =MID(A1,FIND("-",A1,FIND("-",A1)+1)+1,3)

复制代码

计数：置换"-"后的长度差

1. =LEN(A1)-LEN(SUBSTITUTE(A1,"-",""))

复制代码

VBA方法原理一样。

1. Sub test()
   
2.     a = [a1]
   
3.     x = Mid(a, InStr(InStr(a, "-") + 1, a, "-") + 1, 3)
   
4.     n = Len(a) - Len(Replace(a, "-", ""))
   
5. End Sub

复制代码

风1234565

谢谢，我试试看

duquancai

风1234565 发表于 2016-10-12 16:33
谢谢，我试试看

1. Sub shishi()
   
2.     a = "ajdyh-hehheh-jej7uje-hkejb8"
   
3.     With CreateObject("VBScript.Regexp")
   
4.         .Global = True: .Pattern = "-(.{3})"
   
5.         MsgBox .Execute(a)(1).submatches(0)
   
6.     End With
   
7. End Sub

复制代码

02761752696

学习        学习