提取txt文件内容

来源：百度知道 编辑：UC知道 时间：2024/05/24 18:26:57
一个txt文件，以#号开头，跟着是内容，跟着以一空白行作为过渡标志，请问如何将它内容提取出来，并且用两个按钮一个是上一段信息，一个是下一段信息将它一一列举出来。txt格式如下：
#aaaaaaa
aaaaaaaa

#bbbbbbb

#ccccccc
谢谢！
格式其实是 #aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
'中间只有一空白行
#bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
'中间只有一空白行
#ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

'画一个文本框，多行，垂直滚动，两个按钮
Dim myStr As String, mySeg() As String, mySegNum As Integer
Private Sub Form_Load()
Open "c:\123.txt" For Binary As #1
myStr = Input(LOF(1), 1)
Close
mySeg() = Split(myStr, "#")
End Sub

Private Sub Command1_Click()
mySegNum = mySegNum + 1
If mySegNum > UBound(mySeg) Then mySegNum = UBound(mySeg)
Text1.Text = mySeg(mySegNum)
End Sub

Private Sub Command2_Click()
mySegNum = mySegNum - 1
If mySegNum < 0 Then mySegNum = 0
Text1.Text = mySeg(mySegNum)
End Sub