Für Jedes Item in ListBox1 etwas tun, dann add item to listbox2 vb

Machte ich eine app konvertieren bestimmte zahlen in andere Formate
ich.e

  • 1 = Ein
  • 2 = B
  • 3 = C
  • 4 = D
  • 5 = E
  • ETC

Habe ich gemacht, die Funktion mit kein problem, und ich verwende es für ganz irgendwann, aber jetzt würde ich gerne tun, Dinge schneller und in einem batch.
Also es ist wirklich schwer für mich zu kopieren aus einer text-Datei auf meinem Textbox1 und drücken Sie dann " button1 kopieren Sie dann textbox2 anderen text-Datei.

So, ich dachte beim laden der text-Datei in ein Listenfeld dann machen Sie eine Schleife für jedes Element in dieser Liste in eine zweite Liste, die ich exportieren kann, um eine andere text-Datei.

Den Import und Export habe ich es abgedeckt, aber wo ich bin stecken ist, um die Schleife.

Hier ist, was ich habe, bitte, wenn Sie wissen, einen besseren Weg, es zu tun lassen Sie mich wissen, oder mir sagen, wie fix es auf diese Weise.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Using FD As New OpenFileDialog()
        FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange(IO.File.ReadAllLines(FD.FileName))
        End If
    End Using
End Sub


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Do
    Dim Item As String = ""
    For Each i As String In ListBox1.Items
        Item &= i
        TextBox1.Text = Item
        TextBox2.Text = MYFUNCTION(TextBox1.Text)
        ListBox2.Items.Add(TextBox2.Text)
        TextBox1.Text = ""
        TextBox2.Text = ""
    Next
    Loop Until TextBox1.Text = "END"

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'TextBox2.Text = MeidHexToDec(TextBox1.Text)

    Using FD As New SaveFileDialog()
        FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileContent As String = ""
            For Each i As String In ListBox2.Items
                FileContent &= i & vbCrLf
            Next
            IO.File.WriteAllText(FD.FileName, FileContent)
        End If
    End Using
End Sub

Also meine Letzte Ziel ist, so etwas zu tun:

TextFile1.txt

  • 1
  • 2
  • 5
  • 5
  • 1
  • 3
  • 2
  • ENDE

dann nach der Konvertierung-Ausgang

TextFile2.txt

  • Eine
  • B
  • E
  • E
  • Eine
  • C
  • B

Die text-Datei wird die Größe variieren, manchmal gibt es nur 10 Elemente, manchmal 50...
Danke.

InformationsquelleAutor GHoStyaiRo | 2013-11-01

  1. 5

    Müssen Sie nicht die Do Schleife und vereinfachen Sie den rest der Schleife Logik, wie diese:

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each i As String In ListBox1.Items
        ListBox2.Items.Add(MYFUNCTION(i))
    Next
End Sub

    Brauchen Sie nicht, um den Blick für die END marker, weil alles in der Datei gelesen wurde, in die ListBox1.Items Sammlung, so haben Sie Durchlaufen alle string-Werte in ListBox1.Items, dann sind Sie am Ende der Datei.

    Den MYFUNCTION Logik gibt die Umwandlung von Zahl in Buchstaben, so fügen Sie einfach das Ergebnis der Funktion in ListBox2.Items und Sie sind fertig.

    Thaaaank Ihnen, arbeitete wie ein Charme.
    kein problem, viel Glück für Sie. 🙂

    InformationsquelleAutor Karl Anderson

  2. -1
    Public Function Letr(N As Int16) As String
    Letr = Chr(N + 64)
End Function

    InformationsquelleAutor djb

Schreibe einen Kommentar