vb中讀取txt文件的一列數字

『壹』 vb怎麼獲得txt文件中的行數怎麼實現

如果文本很大，抄那用for、do就太慢太慢了，我給大家一個快速查詢的方法：
Dim Oc,Fs,S,X
Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打開TXT文件
S = Fs.ReadAll'獲取全文
Fs.Close'關閉文件
X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '統計總行數:用字元串替換法得到一共多少個回車，然後再加一就得到總行數了

『貳』 vb 怎麼識別 txt文件內容

如何利用VB讀取TXT文件的內容呢？一種方法是將整個文件讀取到內存中，例如：（假設讀取C:\Debug.txt）
Open "C:\Debug.txt" For Input As #1
TextValue = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
其中，TextValue即為TXT文件的內容。

另一種方法是逐行讀取文件，例如：（假設讀取C:\Debug.txt）
Dim TextLine As String
Open "C:\Debug.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Loop
Close
這種方法會一直循環直到文件結尾，每次循環中，TextLine就代表當前讀取到的一行內容。

如果你需要對文件內容進行判斷，推薦使用第二種方法。可以在Do-Loop循環中編寫相應的判斷函數。為了使判斷更加精確，建議在「Line Input #1, TextLine」這行代碼下面添加一行：VLine = Trim$(TextLine)，這可以去除每一行文本首尾的多餘空格，從而使判斷更加准確。

在進行判斷時，你可以根據實際需求設置條件，例如判斷TextLine是否包含特定的字元串，或者根據TextLine的內容進行分類處理等。

逐行讀取的方法可以靈活應對不同長度的文件，並且在處理過程中可以對每一行進行即時處理，這在處理大型文件時尤為有用。

『叄』 請問VB中如何讀取txt文件的數據

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

『肆』 vb如何讀取txt某一列

在VB中，讀取TXT文件中的某一列需要進行一些簡單的步驟。首先，使用一個數組來存儲讀取的數據。你可以通過以下代碼實現：

Dim arr As Variant

在VB中，打開TXT文件並讀取其內容，可以使用以下代碼：

Private Sub Command1_Click()

使用Open語句打開文件，指定文件路徑，並設置文件為只讀模式：

Open "c:\123.txt" For Input As #1

接下來，將文件內容轉換為字元串，並使用Split函數將其分割成數組：

arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)

然後關閉文件：

Close #1

遍歷數組中的每一項，列印或處理每一行數據：

For i = 0 To UBound(arr)

Print arr(i)

Next

如果你想讀取特定行的數據，例如第2行，你可以直接訪問數組中的相應元素，例如arr(1)。獲取所需數據後，你可以根據需要進行進一步處理，比如繪制圖表。

這種方法適用於讀取和處理TXT文件中的數據，特別是當你需要對文件進行分析或可視化時。

通過上述步驟，你可以輕松地從TXT文件中讀取和提取所需的數據。這種方法簡單有效，適用於各種VB項目中的數據處理需求。