Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Lauseen Jako

petrinm [15.02.2004 17:04:33]

#

Eli jakaa Lauseen sanoihin

Lisää
-Text-loota lausetta varten
-List-loota eri sanoja varten
-Command-nappi

''' Formiin
Private Sub Command1_Click()
List1.Clear 'Tyhjennetään lista
For k = 1 To Len(Text1.Text) + 2
    kir = Mid(Text1.Text, k, 1) 'Luetaan kirjain
    If kir = " " Then 'Jos kirjain on välilyönti
        List1.AddItem (sana) 'lisätään sana
        sana = ""
        GoTo 10
    End If
    If k = Len(Text1.Text) + 2 Then 'Jos sana Päättyy
        List1.AddItem (sana) 'lisätään sana
        sana = ""
    End If
    sana = sana + kir 'lisätään kirjain
10
Next k
End Sub

JTJ [15.02.2004 17:56:30]

#

Onnistuu näinkin:

Private Sub Command1_Click()
    List1.Clear
    x = Split(Text1.Text, " ")
    For n = 0 To UBound(x)
        List1.AddItem (x(n))
    Next
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta