如何读取一个文本文件的最后一行

[zhaowx]

用OPEN 打开一个文件，如何读取一个文本文件的最后一行？

[liu_swallow]

msdn中有，

[zhaowx]

to up
跟没说一样

[射天狼]

Dim ss() As String, s As String

Open "C:\aa.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ss = Split(s, vbCrLf)

MsgBox ss(UBound(ss)) '这就是最后一行~~

[viena]

dim stra as string
Open "C:\aa.txt" For Input As #1
Do until EOF()
line input #1,stra
loop

[viena]

dim stra as string
Open "C:\aa.txt" For Input As #1
Do until EOF(1)
line input #1,stra
loop

[jinesc]

循环读出到一个变量

[yijiansong]

dim stra as string
Open "C:\aa.txt" For Input As #1
Do until EOF(1)
line input #1,stra
loop

[yijiansong]

dim stra as string
Open "C:\aa.txt" For Input As #1
Do until EOF(1)
line input #1,stra
loop

[yunfeng007]

dim nFile as integer
dim strData as string

nFile=FreeFile(0)
Open "C:\aa.txt" For Input As #nFile
Do until EOF()
line input #nFile,strData
loop
close #nFile