2010VB.net 如何一直读取TXT文档最后一行信息，麻烦给个代码，谢谢

Question

如题所述

Answer 1

首先在代码的开头引入命名空间：

Imports System.IO

给出三个读文本文件的例子。

        '直接读取所有文本
        Dim fileString As String = File.ReadAllText("1.txt")
        '把所有行弄进一个数组
        Dim fileLines() As String = File.ReadAllLines("1.txt")
        '以流的方式一行一行读取
        Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
            Using sr As New StreamReader(fs) '初始化流读取器
                Dim lineString As String = ""
                While Not sr.EndOfStream '循环直到流结束
                    lineString = sr.ReadLine() '读一行
                    '这里lineString就是每行的文件内容了。
                    '你可以在这里对它进行处理。
                End While
            End Using
        End Using

Answer 2

就是读全部文档的代码。以行读取文档，返回最后一行追问

为什么读完后要循环读取哦，麻烦给个简单例子，把TXT文档读完后要给古提醒

追答用ReadAllLines，没说要循环啊。
dim lines() as string=system.io.file.readalllines("文件路径.txt") 
返回最后一行; lines(lines.count-1)