Beste mensen,

Ik zit met een probleem en snap de vraag niet echt.

De vraag is:

Ontwerp frmTekstMetPunten. Een tekenreeks wordt omgezet in dezelfde tekenreeks waarbij tussen elke letter op een even positie vervangen wordt door een punt.
(Langlaufen wordt L.n.l.u.e.)

Dit moet ik maken in VB.NET voor een opdracht.
Nu heb ik dit

Code:

Public Class frmTekstMetPunten

    Private Sub btnOmzetten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOmzetten.Click
        'Declaratie
        Dim intTeller As Integer
        Dim strTekst, strTellen As String

        For intTeller = 0 To strTekst.Length Step 2
            strTellen = intTeller.ToString

        Next
    End Sub
End Class

Wie kan mij een beetje verder helpen
Zonder het hele antwoord voor te kauwen

Mvg
Danny

Ik kan je spijtig genoeg niet helpen. VB is net iets te lang geleden.

Maar in C# kan ik het wel oplossen.

Groeten

Origineel gepost door W. Andries

Ik kan je spijtig genoeg niet helpen. VB is net iets te lang geleden.

Maar in C# kan ik het wel oplossen.

Groeten

Jammer genoeg moet het in VB

Ik weet niet of je hier iets mee bent.
Dit is in C#, de 2 codes lijken hard op elkaar :)

Code:

class Program
    {
        static void Main(string[] args)
        {
            string woord = "Langlaufen", nieuwWoord = null;
            int woordLengte, teller;

            woordLengte = woord.Length;

            for (teller = 0; teller <= woord.Length-1; teller++)
            {
                if (teller % 2 != 0)
                {
                    nieuwWoord += ".";
                }
                else
                {
                    nieuwWoord += woord.Substring(teller, 1);
                }

                
            }
            Console.WriteLine(nieuwWoord);
            Console.ReadLine();

        }
    }

Origineel gepost door W. Andries

Ik weet niet of je hier iets mee bent.
Dit is in C#, de 2 codes lijken hard op elkaar :)

Code:

class Program
    {
        static void Main(string[] args)
        {
            string woord = "Langlaufen", nieuwWoord = null;
            int woordLengte, teller;

            woordLengte = woord.Length;

            for (teller = 0; teller <= woord.Length-1; teller++)
            {
                if (teller % 2 != 0)
                {
                    nieuwWoord += ".";
                }
                else
                {
                    nieuwWoord += woord.Substring(teller, 1);
                }

                
            }
            Console.WriteLine(nieuwWoord);
            Console.ReadLine();

        }
    }

Ik zal er eens na kijken.
In ieder geval bedankt

hier de VB.NET versie

Code:

        Dim strOrigineleTekst As String = "Langlaufen"
        Dim strOutputTekst As String = ""
        Try
            For i As Integer = 0 To strOrigineleTekst.Length - 1
                If Not (i Mod 2) = 0 Then
                    strOutputTekst &= "."
                Else
                    strOutputTekst &= strOrigineleTekst.Substring(i, 1)
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        MessageBox.Show(strOutputTekst)

Bedankt is intussen al gelukt