VBA（函数）⽂本中截取指定开始字符指定长度字符串Function CutR(str As String, endStr As String, getLen As Integer) As String
'CutR函数
'截取⽂本中指定开始字符，指定长度的字符串，如截取编号等
'str: ⽂本
'endStr: ⽬标字符串 , 或者编号的标识符
'getLen: 要截取的长度
'返回值:  指定长度的字符
Dim e As Integer
e = InStr(str, endStr) + Len(endStr)
If e < 0Then
CutR = ""
Else
CutR = Mid(str, e, getLen)
End If
vba计算字符串长度
End Function
'测试得到36个字符长度的  45706EC7-5B31-48FD-A75D-00005A08C27D
Sub test()
Dim str As String
str = CutR("sadlaskdajdkajkGuidNo:45706EC7-5B31-48FD-A75D-00005A08C27D********", "GuidNo:", 36)
Debug.Print str
Debug.Print Len(str)
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。