我的記事本上有以下文字：
Manufacture, a, b, c
Manufacture, h, i, j
Supplier, 7, 8, 9
Manufacture, x, y, z
Supplier, 0,9,5
然后我有一個包含 2 個文本框的表單。1 代表制造商，2 代表供應商。
我該如何拆分它？所以當我按下read按鈕時。文本框將是：
文本框制造
Manufacture, a, b, c
Manufacture, h, i, j
Manufacture, x, y, z
文本框供應商
Supplier, 7,8,9
Supplier, 0,9,5
目前，我有以下代碼。但還是基本的。
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")
MsgBox(fileReader)
uj5u.com熱心網友回復：
此版本將讀取您的輸入檔案，確定行 ID，并構建一個值陣列。最后使用新行加入值并分配到文本框中。
Private Sub ParseInputFile(filePath As String)
Dim lines() As String = File.ReadAllLines(filePath)
Dim manufs As New List(Of String)
Dim suppliers As New List(Of String)
For Each lineItem As String In lines
Dim vals() As String = lineItem.Split(Convert.ToChar(","))
If vals.Length > 0 Then
Dim lineId As String = vals(0)
If lineId = "Manufacture" Then
manufs.Add(lineItem)
ElseIf lineId = "Supplier" Then
suppliers.Add(lineItem)
End If
End If
Next
TextboxManufacture.Text = String.Join(Environment.NewLine, manufs)
TextboxSupplier.Text = String.Join(Environment.NewLine, suppliers)
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/464809.html