• Home
 · 
• String Manipulation
 · 
• Extracts segments in a string seperated by spaces.

Extracts segments in a string seperated by spaces.

Extracts segments in a string seperated by spaces.

API Declarations



Text = The String
Segment = Segment to be extracted
ExNextStart = A Variable that will be the next starting point in the string



Rate Extracts segments in a string seperated by spaces.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function Extract(Text As String, Segment As Integer, Optional ExNextStart As Variant)
 Dim a(1 To 10) As String
 st = 1
 For x = 1 To 10
  i = 0
  Do
    DoEvents
    i = i + 1
    a(x) = Mid(Text, st, i)
    If (i > 50) Then ExNextStart = Len(Text) + 1: Exit Do
    If (Len(a(x)) = Len(Text)) And (x = Segment) Then ab = a(x): ExNextStart = Len(Text) + 1: Exit Do
  Loop Until (Right(a(x), 1) = " ")
  If (ab <> "") Then Exit For
  a(x) = Trim(a(x))
  st = st + i
  ExNextStart = st
  If (x = Segment) Then Extract = a(x): Exit Function
  DoEvents
 Next x
 Extract = ab
End Function