vb.net文本末尾 vbs结尾的文件

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

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

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

相关问答

Q1: vb.net读取.cvs文件，如何判断读取到了最后一行？

你csv文件是用什么分割符的？

把csv文件当做文本文件处理

File.ReadAllLines 读取所有行，

然后循环每行，按照分隔符split后就是每一列

Q2: 求大神指点 vb.net 怎么删除 文本的尾部空行?

如果只是末尾vb.net文本末尾的空行vb.net文本末尾，直接用Trim方法就可以vb.net文本末尾了

Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim

'上面vb.net文本末尾的d:\text.txt文件中末尾有很多空行，用vb.net文本末尾了Trim方法后就把后面的空行都去除了

MsgBox(str)'这里可以看到

Q3: VB.net 定位到文本框末尾

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox1.SelectionStart = Len(TextBox1.Text)

End Sub

Q4: vb.net提取textbox1的最后一行字符串

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s As String = TextBox1.Text

Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置（但位置仍从左算起）

Dim s1 As String'用于保存最后一行字符串

If p = 0 Then'若未找到回车符，则直接将整个字符串赋给S1

s1 = s

Else

s1 = Mid(s, p + 2)'若找到回车符，则截取回车符右边的部分

End If

MsgBox(s1)'显示你要找的最后一行字符串

End Sub

vb.net文本末尾的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs结尾的文件、vb.net文本末尾的信息别忘了在本站进行查找喔。