我有一個包含 3 列的文本檔案 (data.txt)，每列有一個變數（x1、x2 和 x3）。我想計算一些列并顯示在特定的文本框（如 textbox1）中。例如。我的資料.txt：
x1 x2 x3
10 15 20
20 10 10
TextBox1 需要顯示：3
uj5u.com熱心網友回復：
文本檔案沒有列。您擁有的是一個檔案，其中每行以空格分隔元素，每行由 CR/LF（回車/換行）分隔，以處理文本檔案 put
Imports System.IO
在代碼檔案的頂部。
我猜你想對檔案做更多的事情，而不僅僅是確定“列”的數量，所以我們將讀取整個檔案。File.ReadAllLines() 回傳檔案中的行陣列。
我們取檔案中的第一行（索引 0）并用空格分割它。小寫 c followint " " 告訴編譯器你的意思是 Char 而不是 String。然后我們取結果陣列的長度來找到列數。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim lines = File.ReadAllLines("C:\Users\******\Desktop\Code\OPdata.txt")
Dim NoOfColumns = lines(0).Split(" "c).Length
TextBox1.Text = NoOfColumns.ToString
'Some other things you can do
Dim dt As New DataTable
Dim columns = lines(0).Split(" "c)
dt.Columns.Add(columns(0), GetType(Integer))
dt.Columns.Add(columns(1), GetType(Integer))
dt.Columns.Add(columns(2), GetType(Integer))
For index = 1 To lines.Length - 1
Dim values = lines(index).Split(" "c)
dt.Rows.Add({values(0), values(1), values(2)})
Next
DataGridView1.DataSource = dt
End Sub
uj5u.com熱心網友回復：
您可能要考慮使用Microsoft.VisualBasic.FileIO.TextFieldParser. 它旨在處理結構化文本檔案（分隔或固定寬度），并且與 Mary 的回答中的直接檔案 I/O 相比，將洗掉一些必要的儀式。請注意TextFieldParserimplements IDisposable，因此它應該在Using塊中使用或手動處理。
uj5u.com熱心網友回復：
FileOpen(1, "data.txt", OpenMode.Input)
line1$ = LineInput(1) 'get first line
FileClose(1)
TextBox1.Text = UBound(Split(line1, " ")) 1
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/314900.html
標籤：网络