【模块】获取第N个分隔符后的字符串

roych

群里有人问了下，如何获取第若干个分隔符后的字符串。随手写了一段代码，供有需要的人使用。
没有太复杂的东西，新手可以拿来练习下for语句的用法。
另外，也可以用split来处理，不过考虑到split处理后，还要将剩下的数组元素重新join成一个字符串，感觉也挺麻烦的。

1. '调用说明：
   
2. 'call getText(strInput ,strSperator , lngNum)
   
3. '参数说明：
   
4. 'strInput————————————————————输入字符串
   
5. 'strSperator——————————————————分隔符
   
6. 'lngNum—————————————————————第几个分隔符
   
7. '例如：
   
8. 'getText("123456-123456-123-789-456", "-", 3)
   
9. '返回第三个分隔符（-）位置之后的字符串：789-456
   
10. 
    
11. Function getText(ByVal strInput As String, ByVal strSperator As String, ByVal lngNum As Long) As String
    
12.     Dim i As Long
    
13.     Dim k As Long
    
14.     Dim j As Long
    
15.    
    
16.     For i = 1 To Len(strInput)
    
17.         If Mid(strInput, i, 1) = strSperator Then
    
18.             k = k + 1
    
19.             If k = lngNum Then
    
20.                 j = i
    
21.                 Exit For
    
22.             End If
    
23.         End If
    
24.     Next
    
25.    
    
26.     If j > 0 Then
    
27.         getText = Mid(strInput, j + 1)
    
28.     Else
    
29.         MsgBox "没有符合要求的字符串"
    
30.         getText = ""
    
31.     End If
    
32. End Function

复制代码

access新新新手

谢谢分享

xuwenning

借roych的花献给大家

'获取第N个和N+1个分隔符之间的字符串【模块】
'调用说明：
'call getText(strInput ,strSperator , lngNum)
'参数说明：
'strInput————————————————————输入字符串
'strSperator——————————————————分隔符
'lngNum—————————————————————第几个分隔符
'例如：
'getText("123456-123456-123-789-456", "-", 3)
''返回第三个分隔符（-）与第四个分割符之间的字符串：789

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
    Dim h As Long


For i = 1 To Len(strInput)

        If Mid(strInput, i, 1) = strSperator Then
            k = k + 1
            
            If k = lngNum Then j = i
            
            If k = lngNum + 1 Then
            h = i
            Exit For
            End If
        
        End If

         
    Next
   
    If j > 0 Then
        getText = Mid(strInput, j + 1, h - j - 1)
    Else
        MsgBox "没有符合要求的字符串"
        getText = ""
    End If
End Function

tmtony

不错
来自: 微社区

pyh512

学习学习了

ynjxw

学习了