2010VB點(diǎn)虐 如何一直讀取TXT文檔最后一行信息，麻煩給個(gè)代碼，謝謝

首先在代碼的開頭引入命名空間：

成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比恒山網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式恒山網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋恒山地區(qū)。費(fèi)用合理售后完善，十年實(shí)體公司更值得信賴。

Imports?System.IO

給出三個(gè)讀文本文件的例子。

'直接讀取所有文本

Dim?fileString?As?String?=?File.ReadAllText("1.txt")

'把所有行弄進(jìn)一個(gè)數(shù)組

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?'循環(huán)直到流結(jié)束

lineString?=?sr.ReadLine()?'讀一行

'這里lineString就是每行的文件內(nèi)容了。

'你可以在這里對它進(jìn)行處理。

End?While

End?Using

End?Using

vb點(diǎn)虐 怎樣讀取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 這里我暫時(shí)讀取了50行，因?yàn)槲也恢廊绾闻袛嘧x到最后一行

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文件當(dāng)做文本文件處理

File.ReadAllLines 讀取所有行，

然后循環(huán)每行，按照分隔符split后就是每一列

vb點(diǎn)虐 點(diǎn)擊按鈕選中l(wèi)istview最后一行

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

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

vs點(diǎn)虐 2003 下 vb點(diǎn)虐 讀取 excel 表最后一行數(shù)據(jù) 求助

引用excel,然后：

nLR

=

ActiveSheet.Cells.SpecialCells(xlLastCell).Row

'最后一行（與連續(xù)與否無關(guān)）

Nextcol

=

Cells(nLR,

1).End(xlToRight).Column

'查找最后一行最后一列（與連續(xù)與否無關(guān)）

然后循環(huán)讀單元格的值就行了。

分享文章：vb點(diǎn)虐 最后一行 vba單元格最后一行
路徑分享：http://chinadenli.net/article22/ddgcicc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)頁設(shè)計(jì)公司、軟件開發(fā)、微信小程序、小程序開發(fā)、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)