vb.net读取TXT文件的行数

你可以使用以下代码来读取文本文件的行数：

Dim lineCount As Integer = 0
Using reader As New StreamReader("file.txt")
    While reader.ReadLine() IsNot Nothing
        lineCount += 1
    End While
End Using

其中，`file.txt` 是要读取的文本文件的路径。在 `Using` 块中，我们使用 `StreamReader` 对象来打开文件并读取每行。每次读取一行后，我们将 `lineCount` 变量加 1。最终，`lineCount` 变量将包含文件中的行数。

相关问题

VB.NET 获得txt行数

在VB.NET中，获取文本文件（如.txt文件）的行数通常通过读取文件并计数行终止符（换行符'\n'或'\r\n'）来实现。这里是一个简单的示例：

Imports System.IO ' 引入System.IO命名空间用于文件操作

Public Function GetTxtLinesCount(ByVal filePath As String) As Integer
    Dim linesCount As Integer = 0
    If File.Exists(filePath) Then
        Using reader As New StreamReader(filePath)
            While Not reader.EndOfStream
                linesCount += 1 ' 文件存在时，每次遇到换行符就增加行数
            End While
        End Using
    Else
        Console.WriteLine("文件不存在.")
    End If
    Return linesCount
End Function

你可以通过调用`GetTxtLinesCount("你的文件路径.txt")`来获取文件的行数。如果文件不存在，函数会返回0，并提示文件未找到。

vb.net向txt指定行追加

在 VB.NET 中，向指定行追加文本需要先读取文件内容，然后在指定行后面添加文本，并将修改后的内容写回文件。以下是一个实现这个功能的示例代码：

Dim filePath As String = "C:\example.txt" '文件路径
Dim lineNumber As Integer = 3 '要追加文本的行号
Dim appendText As String = "Hello World!" '要追加的文本

'读取文本文件内容
Dim lines() As String = File.ReadAllLines(filePath)

'在指定行后面添加文本
If lineNumber >= lines.Length Then
    '如果指定行号大于等于文本行数，直接在文本末尾添加
    File.AppendAllText(filePath, appendText & Environment.NewLine)
Else
    '否则在指定行后面插入新行
    Dim newLines(lines.Length) As String
    Array.Copy(lines, newLines, lineNumber + 1)
    newLines(lineNumber) = appendText
    Array.Copy(lines, lineNumber + 1, newLines, lineNumber + 2, lines.Length - lineNumber - 1)
    File.WriteAllLines(filePath, newLines)
End If

在上面的示例代码中，我们使用了`File`类读取了文本文件的内容，并根据指定的行号在相应位置添加了新行。如果指定行号大于等于文本行数，则直接在文本末尾添加新行。最后，使用`File`类将修改后的内容写回到文本文件中。