• Home
 · 
• String Manipulation
 · 
• Strip a Single Word From a Text String

Strip a Single Word From a Text String

Strip a Single Word From a Text String

Rate Strip a Single Word From a Text String

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'* Start Comment Block  ***********************************
'* Generated using VB 3.0 ToolBar
'* Author: Todd Wayman
'* Date: Mar, 01, 2001
'* Version: 1.00
'* Function Title: StripWord
' *************************************************************
'* Comments:
'* This function was developed to pull individual words from
'* a text string.
'*
'* 
'*
'* StripWord returns the first word contained in the string.
'* sSrcString is the string to search
'* sFind is the separation character(s)
'*
'* Once sSrcString has been exhasted sSrcString returns "" and StripWord retruns the last occurance.
'*
'* An errror statement has been added.
'*
'* Note:
'*
'* sSrcString is modified by the function and returns the "" for trapping in loops.
'*
'* Example:
'*
'* Sub Command2_Click ()
'* Dim Temp, Temp2
'*
'* Temp2 = Text1.Text
'*
'* Text3.Text = ""
'*
'* Do Until Temp2 = ""
'*
'* Temp = StripWord(Temp2, Chr(13) & Chr(10))
'* Text3.Text = Text3.Text & DBAppMon1.TaskName(Val(Temp)) & Chr(13) & Chr(10)
'* Text3.Text = Text3.Text & DBAppMon1.TaskFileName(Val(Temp)) & Chr(13) & Chr(10)
'*
'* Loop
'*
'*
'* End Sub
'*
'* End Comment Block  *************************************


On Error GoTo Exit_Me:

If InStr(1, sSrcString, sFind) = 0 Then
StripWord = sSrcString
sSrcString = ""
Exit Function
End If

StripWord = Left$(sSrcString, InStr(1, sSrcString, sFind) - 1)
sSrcString = Mid$(sSrcString, InStr(1, sSrcString, sFind) + Len(sFind))

Exit Function
Exit_Me:
  StripWord = sSrcString
  sSrcString = ""
Exit Function


End Function