读取TXT文件能否一行行的读呢？

[zsuhjh]

读取TXT文件能否一行行的读呢，我只知道可以用object.ReadLine读取，但是object.ReadLine是读取一整行的，一直到换行符才算一行，这样的话会造成读取TXT的时候每页显示的行数不一，有没有其他的办法呢？谢谢各位拉。

[sxsgssgs]

<%
strtextfile = server.mappath("your_file.txt") ’取得文本文件的绝对路径
set objfso = server.createobject("scripting.filesystemobject") ’创建一个FSO对象的实例
%>

<%
set objstream = objfso.opentextfile(strtextfile,foreading) ’以只读方式打开文本文件
do while not objstream.atendofstream ’如果当前指针不在objstream流末尾
intlineNum = objstream.line ’获取文本文件的行数
strlinenum = right("00" & cstr(intlinenum,3)) ’对行数进行格式化
strlinetext = objstream.readline ’逐行读取文本内容
response.write strlinenum &":" & strlinetext & vbCrLf ’以行号:文本内容这种形式输出+回车换行
loop
objstream.close ’关闭stream对象
%>

[zsuhjh]

那能不能控制每页显示的字数呢？

[underone]

顶，楼上正解

[hbjmdx008]

up,接分

[LastGame]

mark

[chenyu112]

顶

[zsuhjh]

那要如何分页呢？

[青蛙]

同数据库的方式一样，记录下第一页显示的记录数，然后下一页接上一页之后继续读。
游标值大致为：(page - 1) * pagesize——当前的页数扣掉一，然后乘以每页显示几行，即为当前页读取的开始位置。