• Home
 · 
• String Manipulation
 · 
• This code will break a string into parts based on a specific delimiter. Includes four functions. Th

This code will break a string into parts based on a specific delimiter. Includes four functions. Th

This code will break a string into parts based on a specific delimiter. Includes four functions. The first, which is not my code, is FindRepl

Rate This code will break a string into parts based on a specific delimiter. Includes four functions. Th

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'' drop this example code into any entry sub (like form_load)
' SomeString = "The quick fox jumped over the lazy brown dog."
' Delimiter = " "
' NewString = FindRepl(SomeString, "fox", "car")
' NewString = FindRepl(SomeString, "dog", "cat")
'' NewString now contains "The quick car jumped over the lazy brown cat."
' WordCount = GetLimit(SomeString, Delimiter)
'' WordCount now contains 9.
' LastWord = ParseWrd(SomeString, Delimiter, WordCount)
' FirstWord = ParseWrd(SomeString, Delimiter, 1)
'' LastWord contains "dog." and FirstWord contains "The".
' RetrBits SomeString, Delimiter, 3, Word3Begins, Word3Ends
' Word3Begins now contains 11 and Word3Ends now contains 13.
'' For more specific examples or for any problems you might be having with these
''old functions, please e-mail me, DominickBeckham at Gmail.

Function FindRepl(Search As String, Find As String, Replace As String) As String
ZZ% = 1
Do
 ZZ% = InStr(ZZ%, Search, Find)
 If ZZ% = 0 Then Exit Do
 Search = Left$(Search, ZZ% - 1) + Replace$ + Right$(Search, Len(Search) - ZZ% - Len(Find) + 1)
Loop Until InStr(Search, Find) = 0
FindRepl = Search
End Function

Function GetLimit(WordSt As String, Parser As String) As Integer
L% = 1: S% = 1
W$ = Parser + WordSt + Parser
Do
 S% = InStr(S% + 1, W$, Parser): If S% = 0 Then Exit Do
 Select Case S%
  Case 0: Exit Function
  Case Is > 1: Wd% = Wd% + 1
 End Select
 L% = S%
Loop
GetLimit = Wd%
End Function

Function ParseWrd(WordSt As String, Parser As String, WordInt As Integer) As String
L% = 1: S% = 1
W$ = Parser + WordSt + Parser
Do
 S% = InStr(S% + 1, W$, Parser): If S% = 0 Then Exit Do
 Select Case S%
  Case 0: Exit Function
  Case Is > 1: Wd% = Wd% + 1
   If Wd% = WordInt Then ParseWrd$ = Mid$(W$, L% + Len(Parser), S% - L% - Len(Parser)): Exit Do
 End Select
 L% = S%
Loop
End Function

Sub RetrBits(WordSt As String, Parser As String, WordInt As Integer, ByRef Point1 As Integer, ByRef Point2 As Integer)
L% = 1: S% = 1
W$ = Parser + WordSt + Parser
Do
 S% = InStr(S% + 1, W$, Parser): If S% = 0 Then Exit Do
 Select Case S%
  Case 0: Exit Sub
  Case Is > 1: Wd% = Wd% + 1
   If Wd% = WordInt Then
    Point1 = L%: Point2 = S%: Exit Sub
   End If
 End Select
 L% = S%
Loop
End Sub