Vorkommnisse eines Zeichen in einem String zählen + entfernen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von prosnooper.

    Vorkommnisse eines Zeichen in einem String zählen + entfernen

    Hey, kennt jemand eine Möglichkeit, die Anzahl eines Zeichens in einem String zu zählen und falls dieses mehr als 1 mal vorkommt so zu entfernen, dass es nur noch 1 mal übrig bleibt? Bei mir scheiterts schon an vielen Faktoren und nich komme einfach nicht auf irgendeine Lösung.

    Nun bin ich soweit:

    VB.NET-Quellcode

    1. Public Function StringCount(ByVal Text As String, ByVal Find As String, ByVal CompareType As StringComparison) As Integer
    3. ' Wenn Such-String leer, Funktion verlassen
    4. If IsNothing(Find) OrElse Find.Length = 0 Then Return -1
    6. Dim count As Integer = 0
    7. Dim pos As Integer = -1
    9. ' Solange nach gesuchtem Zeichen/Zeichenfolge
    10. ' suchen, bis keine Fundstelle mehr vorhanden
    11. Do
    12. pos = Text.IndexOf(Find, pos + 1, CompareType)
    13. If pos >= 0 Then count += 1
    14. Loop Until pos < 0
    16. ' Rückgabewert: Anzahl Fundstellen
    17. Return (count)
    18. End Function
    20. Dim Content As String = ""
    21. For i As Integer = 0 To TextBox1.Text.Length - 1
    22. Dim Zeichen As Char = TextBox1.Text.Chars(i)
    23. If Not Content.Contains(Zeichen) Then
    24. Content += Zeichen
    25. Dim Count As Integer = StringCount(TextBox1.Text, Zeichen, StringComparison.CurrentCulture)
    26. If Count > 1 Then
    27. ' An der Stelle sollen die Zeichen entfernt werden, solange bis das gewünschte Zeichen nur noch 1 mal vorhanden ist
    28. End If
    29. End If
    31. Next


    An der kommentierten Stelle fällt mir nicht ein, wie ich die Zeichen löschen kann, da ja dann die Schleife nicht mehr funktioniert.

Facebook
Telefonspende