[VB] Zeichen im String an stelle X löschen

[JogiGFX]

Hey Leute,

ich habe folgendes Problem, ich schreibe demnächst meine Abschluss-Klausur in Anwendungs-Entwicklung und brauche dringend eure Hilfe bei den String Funktionen.

Problemstellung:
Lösche X Zeichen an Stelle X.

Das es Funktionen wie remove oder replace gibt weiß ich, aber ich kann nicht anwenden, dass zum Beispiel aus dem String: "123451234512345" -> "123412341234" wird.
Ich möchte aber nicht alle 5 mit "" ersetzten, sondern in einer For-Next-Schleife jeden 5. Buchstaben/Zahl weglassen.

Vielen Dank,

Jogi

[YatoDev]

Solange replace und + 5 rechnen bis ein error kommt und dann die schleife verlassen

[tolio]

.remove arbeitet mit dem index und der länge, das ist genau das was du suchst

[PC Jones]

        Dim deinString As String = "111121111211112111121111211"
        Dim newString As String = ""
        Dim charCounter As Integer = 0

        For i As Integer = 0 To deinString.Length - 1
            charCounter += 1
            If charCounter < 5 Then
                newString &= deinString.Chars(i).ToString
            Else
                charCounter = 0
            End If
        Next

        MessageBox.Show(newString)

Lg

['Heaven.]

var s = string.Join<char>("", str.Where((ch, index) => (index % 5) != 0));

()

[adistoe]

Vllt. hilft dir die in Kombination mit den Antworten der Vorposter (mit einer Schleife)

Mid(String, Startposition, Länge)

['Heaven.]

Mid ist VB6 und sollte nicht verwendet werden...

[JogiGFX]

Vielen dank an die ganzen Antworten, ihr habt mir sehr geholfen

 Dim wortEin As String
        Dim wortAus As String
        Dim i As Integer
        Dim zaehler As Integer
        Dim x As Integer

        x = ComboBox1.SelectedItem

        wortEin = txtEin.Text
        wortAus = ""
        zaehler = 0

        For i = 0 To wortEin.Length - 1
            zaehler = zaehler + 1
            If zaehler < x Then
                wortAus = wortAus + wortEin.Substring(i, 1)
            Else
                zaehler = 0
            End If
        Next

        txtAus.Text = wortAus

Das ist daraus geworden.

[tolio]

in .Net arbeitet intern auch mit Substring und somit ist die nutzung nicht sonderlich verwerflich, außer das es ein wenig gegen oop verstößt