Line Input 从最后一行开始读取 ，反着读取TXT里的内容

可以，很简单。
得到总行数n，然后就可以。不需要顺读然后倒序。直接读指定行：

for n to 1 setp = -1
line input #1,line(n)
next n

我以前做过类似程序，但是现在在单位，程序在家里。

dim Temp as string
dim NeiRong as string'存储数据用

do
line input #1,temp
neirong=temp & neirong
loop while not eof(1)

这样应该也可以达到那样的效果吧，虽然也是顺着的

非用line input 的话，我觉得不行，文件指针总是从前往后移动，现在让它倒过来，我觉得行不通！还是把一行一行的数据读入数组，再倒过来用才行。

看看楼下有没有解决办法！

你可以顺着读，每行放到数组里，然后从数组的最后一个元素开始用不就行了？
另外，顺序文件是不可能直接读最后一行的。

dim linecount,i,n as long
dim line() as string

open "TXT文件绝对路径" for input as #1
do until Eof(1)
linecount = linecount + 1
loop
close #1

for n = linecount to 1 setp = -1
open "TXTFile load" for input as #2
for i = 1 to linecount
line input #2,line(n)
next i
close #2
linecount = linecount - 1
next n

'数组line()中就是正读的字符行(line(1)为第一行,直至最后一行line(