Vb6- Een getal splittten in paar cijfers

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Bestaat of kent iemand een formule om een willekeurig getal, in een textbox, te splitsen
in paar (dubbel) cijfers?

In heb bv in textbox1 12345678
e krijg dan in textbox2 12 34 56 78
Indien de grote willekeurig getal een onpaar getal is dan wordt het laatste cijfer uiteraard singel weergegeven.


Ik heb geprobeerde met left$ en mid$ maar lukt het niet want het getal te spitsen willekeurig in aantal cijfers is

Bedankt
 
Laatst bewerkt:
Probeer het eens zo:
Code: 
Private Sub Command1_Click()
    Dim Paar() As String
    Dim i As Integer
    
    For i = 1 To Len(Text1.Text)
        ReDim Preserve Paar(i + 1)
        Paar(i) = Mid(Text1.Text, i, 2)
        i = i + 1
    Next i
    Text2.Text = Join(Paar, " ")
End Sub
 
Laatst bewerkt:
Kan volgens mij zo:
Code: 
    For i = 1 To Len(Text1.Value) Step 2
        If outputS <> "" Then outputS = outputS & " "
        outputS = outputS & Mid(inputS, i, 2)
    Next i
    Text2.Value = outputS
 
Uw code, Edmoor, werkt perfect.
Bedankt

Oktafish, ik moet uw code een beetje aanpassen om te proberen, want ik werk (nog !) met vb6 en Input$ en output$ zijn
zeker commandos van vbNet.
 
Goed lezen is een kunst; er staat niet Input$ maar InputS. Gewoon een s dus. En het zijn variabelen, verder niks. Zou volgens mij ook gewoon moeten werken in VB6, want standaard commando's.
 
Ik heb ook zo aangepast maar gebeurt niks.
Code: 
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
        If outputS <> "" Then outputS = outputS & " "
        outputS = outputS & Mid(inputS, i, 2)
    Next i
    Text2.Text = outputS
End Sub


Geen error dus, maar verder niks
Als ik iets invoer in text1.text (bv 123456)
krijg niks te zien in tekst2.text
 
Er zitten 2 foutjes in jouw versie.
Zo werkt het wel goed:
Code: 
    For i = 1 To Len(Text1.Text) [COLOR="#FF0000"]Step 2[/COLOR]
        If outputS <> "" Then outputS = outputS & " "
        outputS = outputS & Mid([COLOR="#FF0000"]Text1.Text[/COLOR], i, 2)
    Next i
    Text2.Text = outputS
 
Laatst bewerkt:
Ja, inderdaad, Edmoor.

Zo werkt ook de code van OktaFish !!!!
Een fout van mij.

Zoals eerder gezegd, Uw code was direct goed, Edmoor.
En nu ook die van OktaFish.

nogmaals bedankt aan allebei

Opgelost in dubbel oplossing.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan