vb 中如何从字符串的右端第n个位置开始截取指定长度的字符串?
字符串长度截取qas26 10级  分类： 其他  被浏览82次  2013.03.17
xn445119
采纳率：40% 10级 2013.03.18
Private Sub Command1_click()
s = "vb 中如何从字符串的右端第n个位置开始截取指定长度的字符串?"
Print MidR(s, 10, 5) '从右边第10个开始向后取5个
Print StrReverse(Mid(StrReverse(s), 10, 5)) '从右边第10个开始向前取5个
End Sub
Function MidR(bString, ByVal bStart As Long, ByVal bLength)
If bLength < 1 Then bLength = Len(bString)
bStart = Len(bString) - bStart + 1
If bStart < 1 Then bStart = 1
MidR = Mid(bString, bStart, bLength)
End Function

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