问将序列号从字符串或txt文件复制到列表框

EN

Dim strBuf As String
strBuf = "EAN-3E4R5-5TGGG-6667Y Software nam.............."

Dim Tokens1() As String
Tokens1 = Split(strBuf, "EAN-")
For I = 1 To UBound(Tokens1)

    Dim OneListItem As String = "EAN-" & Split(Tokens1(I), " ")(0)
    ListBox1.Items.Add(OneListItem)

Next

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim lstSerialNums As New List(Of String)
    Dim lines = File.ReadAllLines("C:\Users\maryo\Desktop\Code\Serial Numbers.txt")
    For Each line In lines
        If line.StartsWith("EAN-") Then
            lstSerialNums.Add(line)
        End If
    Next
    ListBox1.DataSource = lstSerialNums
End Sub

Dim srcFile = "C:\temp\SO67550806.txt"
Dim eans = File.ReadLines(srcFile).Where(Function(s) s.StartsWith("EAN-")).ToList()
yourListBoxName.DataSource = eans