Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 23, 2001

Stripping Double Characters From a String


Here is a sipel function for stripping double characters from a string:
 
Public Function StripDoubleChar(ByVal Text As String, Char As String) As 
String
Dim Pos As Long
Dim Start As Integer
Dim sTemp As String
Dim sFind As String
Dim iCount As Integer
    Start = 1
    sTemp = Text
    sFind = String(2, Char)

    Do
        Pos = InStr(Start, sTemp, sFind, vbBinaryCompare)
        If Pos Then
            Mid$(sTemp, Pos) = Mid$(sTemp, Pos + 1) & 
Andreas Hillqvist
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap