Question

vb 如何只显示txt文件中指定开始内容和结尾内容中间的行

例如TXT文件中有以下内容：

A.今天天气

多云，温度22摄氏度

分割线

B.明天天气

小雨，温度11摄氏度

分割线

。。。。下面还有很多内容，都是这样的格式

我的要求是我点击其中一个按钮比如今天天气就只显示下面这一段这一段内容，点击明天就显示B.明天天气到换行符的内容,谢谢了！

A.今天天气

多云，温度22摄氏度

分割线

Answer 1

Private Sub Command1_Click()
Dim mark, i, arr
mark = "------" '分割线，自己修改
Open "c:\abc.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), mark)
Close #1
For i = 0 To UBound(arr)
If InStr(arr(i), "今天天气") > 0 Then
MsgBox arr(i) & vbNewLine & mark
Exit For
End If
Next
End Sub

追问

测试好像没反应啊！怎么在TXTBOX中显示了？