Wat zie ik over het hoofd?

[HellupUandMe]

Heej mensen.
In richtextbox1 staat een text. In listbox1 staat op elke regel een ander(e) letter/nummer.
Nu wil ik dat het programma de letters uit richtextbox1 vertaald aan de hand van listbox1 en de vertaling in richtextbox2 zet.
Dus bijvoorbeeld de A uit richtextbox1 moet ververvangen worden door wat er op de eerste line van listbox1 staat. Stel dat daar 56b op staat, dan moet elke A dus door 56b veranderd worden. Dat moet dan komen te staan in richtextbox2.

Dus richtextbox1.text = AAAA, listbox1.eerste regel = 56b ---> richtextbox2.text = 56b56b56b56b.

Hier is mijn primitieve code:

ListBox1.SelectedIndex = 0

        Dim a As String = Replace(RichTextBox1.Text, "A", ListBox1.SelectedItem)
        RichTextBox2.Text = a



        ListBox1.SelectedIndex = 1
        RichTextBox2.Text = a
        Dim b As String = Replace(a, "B", ListBox1.SelectedItem)
        RichTextBox2.Text = b
        ListBox1.SelectedIndex = 2
        Dim c As String = Replace(b, "C", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 3
        RichTextBox2.Text = c
        Dim d As String = Replace(c, "D", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 4
        Dim et As String = Replace(d, "E", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 5
        Dim f As String = Replace(et, "F", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 6
        Dim g As String = Replace(f, "G", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 7
        Dim h As String = Replace(g, "H", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 8
        Dim i As String = Replace(h, "I", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 9
        Dim j As String = Replace(i, "J", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 10
        RichTextBox2.Text = j
        Dim k As String = Replace(j, "K", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 11
        RichTextBox2.Text = k
        Dim l As String = Replace(k, "L", ListBox1.SelectedItem)
        RichTextBox2.Text = l
        ListBox1.SelectedIndex = 12
        Dim m As String = Replace(l, "M", ListBox1.SelectedItem)

        RichTextBox2.Text = m

        ListBox1.SelectedIndex = 13
        Dim n As String = Replace(RichTextBox1.Text, "N", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 14
        Dim o As String = Replace(n, "O", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 15
        Dim p As String = Replace(o, "P", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 16
        Dim q As String = Replace(p, "Q", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 17
        Dim r As String = Replace(q, "R", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 18
        Dim s As String = Replace(r, "S", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 19
        Dim t As String = Replace(s, "T", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 20
        Dim u As String = Replace(t, "U", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 21
        Dim v As String = Replace(u, "V", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 22
        Dim w As String = Replace(v, "W", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 23
        Dim x As String = Replace(w, "X", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 24
        Dim y As String = Replace(x, "Y", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 25
        Dim z As String = Replace(y, "Z", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 26
        Dim a2 As String = Replace(z, "a", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 27
        Dim b2 As String = Replace(a2, "b", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 28
        Dim c2 As String = Replace(b2, "c", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 29
        Dim d2 As String = Replace(c2, "d", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 30
        Dim et2 As String = Replace(d2, "e", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 31
        Dim f2 As String = Replace(et2, "f", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 32
        Dim g2 As String = Replace(f2, "g", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 33
        Dim h2 As String = Replace(g2, "h", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 34
        Dim i2 As String = Replace(h2, "i", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 35
        Dim j2 As String = Replace(i2, "j", ListBox1.SelectedItem)
        ListBox1.SelectedIndex = 36

        RichTextBox2.Text = j2

En nu werkt ie niet. De letters A t/m M worden niet vervangen en de letters N t/m kleine letter j wel. Wat doe ik fout?

 

[Pizara]

Wat je over het hoofd ziet??

ArrayCollections...

Je gaat toch geen 36 nieuwe strings zitten maken als je het met een arraycollection en een for-next loop kan doen???


2 Richtextboxxen, 1 Button en een Listbox is genoeg.

Public Class Form1

    Dim AlsStringInlezen As New System.Text.StringBuilder

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For Each Character As Char In RichTextBox1.Text
            AlsStringInlezen.Append(Character)
        Next

        Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", _
                                 "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}

        RichTextBox2.Clear()

        For Counter As Integer = 0 To ListBox1.Items.Count - 1
            AlsStringInlezen = AlsStringInlezen.Replace(Array(Counter), ListBox1.Items.Item(Counter))
        Next

        RichTextBox2.Text = AlsStringInlezen.ToString

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RichTextBox1.Text = "AAAAFFFFZZZZ"

        Dim ListBoxVuller() As String = {"56a", "57b", "58c", "59d", "60e", "61f", "62g", "63h", "64i", "65j", _
                                         "66k", "67l", "68m", "69n", "70o", "71p", "72q", "73r", "74s", "75t", _
                                         "76u", "77v", "78w", "79x", "80y", "81z"}
        For Each Item In ListBoxVuller
            ListBox1.Items.Add(Item)
        Next

    End Sub
End Class

 

[HellupUandMe]

Kijk! Aan jou hebben we wat. Heel erg bedankt!

 

[HellupUandMe]

Hij komt met de foutmelding

[I]Name 'item' is not declared[/I].

Hoe moet ik dit oplossen?