• Home
 · 
• String Manipulation
 · 
• A Function that removes all of a chr from a string

A Function that removes all of a chr from a string

This is a fairly basic code, but I had someone ask me how to do it, so I figured since I made it I might as well post it. Basicly this is a simple function which you can add to either a bas, or a form, and then you call it, and it removes all occurenses of a character within a string. IE.(My name is steve) if you wanted to remove all the spaces you could use this.

API Declarations
'Check out my website at http://www.vbtutor.com
'Thanks

Rate A Function that removes all of a chr from a string

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Function RemoveChar(sText As String, sChar As String) As String
  Dim iPos As Integer, iStart As Integer
  Dim sTemp As String
  iStart = 1
  Do
    iPos = InStr(iStart, sText, sChar)
    If iPos <> 0 Then
      sTemp = sTemp & Mid(sText, iStart, (iPos - iStart))
      iStart = iPos + 1
    End If
  Loop Until iPos = 0
  sTemp = sTemp & Mid(sText, iStart)
  RemoveChar = sTemp
End Function

'The code could then be called like this
Call RemoveChar(Text1.text, " ")
'This will rmove all the spaces from the textbox
'named Text1
'I hope this helps some people out. I have actualy
'surprisignly enought had 37 requests from visitors
'to my site for this code.