在线等待！！100分送~！！

Question

要求：按行读取一文本文件chen.txt（假设此文件有1000行，）
        然后将文件以每25行/页显示 ，实现翻页功能
中间可用临时文件来存储指针

Answer 1

如果以文件方式操作的话：
用 Open 文件名 For Input As #1 按行读取文件
用 Seek #1, 数值 设置读写位置如果以数据库方式操作的话：
配置好ini文件，将每行看成一条记录

Answer 2

笨一点，全部读出，写到隐藏的listbox中， 然后读出，对于1000行，速度很快

Answer 3

把文件按你说的格式,以25行/页来拆分为多个文件,我想可能会快点,Ebook好像也是用临时文件,速度很快,不过它的是打一个大包,不知道技术细节.

Answer 4

Option ExplicitPrivate Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    Open "C:\chen.txt" For Input As #1
    strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
    Close #1
    
    strArray = Split(strTmp, vbCrLf) '将文件存到数组中,一个数组元素代表一行
    '你想怎么分页都行了~~
End Sub

Answer 5

Private Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    Open "C:\chen.txt" For Input As #1
    strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
    Close #1
    
    strArray = Split(strTmp, vbCrLf) '将文件存到数组中,一个数组元素代表一行
    '你想怎么分页都行了~~
End Sub