Getallen splitsen tot nummers.

Status
Niet open voor verdere reacties.

Sleeper

Nieuwe gebruiker
Lid geworden
2 feb 2011
Berichten
2
Ik ben al een tijdje op zoek naar een oplossing en ik vind maar niets. Ik hoop dat iemand van helpmij me daarom zou kunnen helpen!

Getallen die ik invul moeten gesplitst worden tot getallen van maximaal 2 cijfers lang. Denk hier aan:

102030 wordt: 10 20 30.

Dit kan worden opgeslagen in een Array of in aparte variabelen per getal. Met deze getallen moet worden gerekend dus ik heb ze later nog nodig.

Bovendien moet ik het aantal variabelen kunnen tellen.
In dit geval zou dit dus (ook weer in een variabele) 3 moeten geven als resultaat.

Heeft iemand een oplossing of een instructie waar ik van zou kunnen leren?

Bij voorbaat dank,
Sleeper.
 
Oeh ik krijg ineens een geniaal idee! Ik report zometeen terug (of morgen) met een stukje code, die hopelijk de boel kan fixen!

Het is gelukt! :D
Als je uitleg nodig hebt, voel vrij om te vragen!
Code:
        Dim Letters As String = "102030405060708090"
        Dim Arr(((Letters.Length / 2) - 1)) As String
        Dim counter As Integer = 0
        Dim counter2 As Integer = 0
        For Each a As Char In Letters
            Arr(counter) += a
            counter2 += 1
            If counter2 Mod 2 = 0 Then
                counter += 1
            End If
        Next

        For i As Integer = 0 To Arr.Length - 1
            MessageBox.Show(Arr(i))
        Next

        MessageBox.Show("Het aantal variabelen is: " + CStr(Arr.Length))

        Dim intArray(Arr.Length) As Integer
        For i As Integer = 0 To Arr.Length - 1
            intArray(i) = CInt(Arr(i))
        Next


CAPtaINBRI
 
Laatst bewerkt:
Duizendmaal dank!
Mijn profielwerkstuk is hierdoor helemaal af!

Door jou methode had ik zelfs het gedeelte dat het aantal variabelen bepaalde niet meer nodig.

Nogmaals, bedankt!

Met vriendelijk groet,
Sleeper.
 
Duizendmaal dank!
Mijn profielwerkstuk is hierdoor helemaal af!

Door jou methode had ik zelfs het gedeelte dat het aantal variabelen bepaalde niet meer nodig.

Nogmaals, bedankt!

Met vriendelijk groet,
Sleeper.

Helemaal toppie! :thumb:
Kan je de vraag even op ''opgelost'' zetten? Dat staat rechtsbovenin bij je 1e berichtje. Als het goed is moet je dan op ''Zet vraag opgelost'' drukken.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan