Microsoft & .NETVisual BasicVB Coding Tip: Trim a Selected Character From a String

VB Coding Tip: Trim a Selected Character From a String

Developer.com content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

Public Function TrimChar( _
         text As String, _
         char As String)

Dim trimspace As Integer
Dim thechar$, thechars$

If InStr(text, char) = 0 Then
  TrimChar = text
  Exit Function
End If

For trimspace = 1 To Len(text)

thechar$ = Mid(text, trimspace, 1)
thechars$ = thechars$ & thechar$

If thechar$ = char Then
  thechars$ = Mid( thechars$, 1, _
                   Len(thechars$) - 1)
End If

Next trimspace

TrimChar = thechars$

End Function
Private Sub cmdTrim_Click()
Text1=TrimChar(Text1,"H")
End Sub

Get the Free Newsletter!

Subscribe to Developer Insider for top news, trends & analysis

Latest Posts

Related Stories