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

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

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比恒山网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式恒山网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖恒山地区。费用合理售后完善，十年实体公司更值得信赖。

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

vb点虐 怎样读取CSV最后一行，急求！！

代码如下：

Dim Str As String

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

Str = OpenFileDialog1.FileName

End If

Dim oExcel As New Excel.Application

Dim oWorkBook As Excel.Workbook

Dim oWorkSheet As Excel.Worksheet

oWorkBook = oExcel.Workbooks.Open(Str)

oWorkSheet = oWorkBook.Worksheets(1)

For i = 1 To 50 这里我暂时读取了50行，因为我不知道如何判断读到最后一行

MsgBox(oWorkSheet.Cells(i, 1).value oWorkSheet.Cells(i, 2).value oWorkSheet.Cells(i, 3).value)

Next

oWorkBook.Close()

oWorkBook = Nothing

oExcel.Quit()

oExcel = Nothing

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

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

File.ReadAllLines 读取所有行，

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

vb点虐 点击按钮选中listview最后一行

Me.ListView1.Items(Me.ListView1.Items.Count - 1).Selected = True

Me.ListView1.EnsureVisible(Me.ListView1.Items.Count - 1)

vs点虐 2003 下 vb点虐 读取 excel 表最后一行数据 求助

引用excel,然后：

nLR

=

ActiveSheet.Cells.SpecialCells(xlLastCell).Row

'最后一行（与连续与否无关）

Nextcol

=

Cells(nLR,

1).End(xlToRight).Column

'查找最后一行最后一列（与连续与否无关）

然后循环读单元格的值就行了。

分享标题：vb点虐 最后一行 vba单元格最后一行
网页网址：http://csdahua.cn/article/ddgcicc.html