Private Function StripDuplicates( _
    ByVal vValue As String, _
    Optional ByVal vChar As String = " " _
  ) As String
 
  Dim sResult As String
  Dim lenValue As Long
  Dim s As String
  lenValue = Len(vValue)
 
  sResult = vbNullString
  If lenValue > 0 Then
 
    Dim i As Long
    Dim pos As Long
 
    'Platz schaffen, wir wollen nicht "konkatenieren"
    sResult = String(lenValue, " ")
 
    ' i: index in s
    i = 1
    ' pos: index im result, wird nur erhöht, wenn geschrieben wird
    pos = 0
 
    'Wir laufen nur 1-Mal durch den gesamten String!
    Do While i <= lenValue
 
      s = Mid$(vValue, i, 1)
 
      pos = pos + 1
      Mid$(sResult, pos, 1) = s
 
      If s = vChar Then
 
        'skip redundante Zeichen
        Do Until Mid$(vValue, i + 1, 1) <> vChar
          i = i + 1
        Loop
 
      End If
      i = i + 1
 
    Loop
 
  End If
 
  StripDuplicates = Trim$(sResult)
 
End Function

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 13.10.10 um 10:40:15 editiert.