＋设为首页 ＋添加到收藏夹
要求：按行读取一文本文件chen.txt
然后将文件以每25行/页显示 ，实现翻页功能
中间可用临时文件来存储指针
如果以文件方式操作的话：
用 Open 文件名 For Input As #1 按行读取文件
用 Seek #1, 数值 设置读写位置
如果以数据库方式操作的话：
配置好ini文件，将每行看成一条记录
笨一点，全部读出，写到隐藏的listbox中， 然后读出，对于1000行，速度很快
Option Explicit
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
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
