|
群里有人问了下,如何获取第若干个分隔符后的字符串。随手写了一段代码,供有需要的人使用。
没有太复杂的东西,新手可以拿来练习下for语句的用法。
另外,也可以用split来处理,不过考虑到split处理后,还要将剩下的数组元素重新join成一个字符串,感觉也挺麻烦的。
- '调用说明:
- 'call getText(strInput ,strSperator , lngNum)
- '参数说明:
- 'strInput————————————————————输入字符串
- 'strSperator——————————————————分隔符
- 'lngNum—————————————————————第几个分隔符
- '例如:
- 'getText("123456-123456-123-789-456", "-", 3)
- '返回第三个分隔符(-)位置之后的字符串:789-456
- Function getText(ByVal strInput As String, ByVal strSperator As String, ByVal lngNum As Long) As String
- Dim i As Long
- Dim k As Long
- Dim j As Long
-
- For i = 1 To Len(strInput)
- If Mid(strInput, i, 1) = strSperator Then
- k = k + 1
- If k = lngNum Then
- j = i
- Exit For
- End If
- End If
- Next
-
- If j > 0 Then
- getText = Mid(strInput, j + 1)
- Else
- MsgBox "没有符合要求的字符串"
- getText = ""
- End If
- End Function
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|