vb 如何只显示txt文件中指定开始内容和结尾内容中间的行
例如TXT文件中有以下内容: A.今天天气 多云,温度22摄氏度 分割线 B.明天天气 小雨,温度11摄氏度 分割线 。。。。下面还有很多内容,都是这样的格式 我的要求是我点击其中一个按钮比如今天天气就只显示下面这一段这一段内容,点击明天就显示B.明天天气到换行符的内容,谢谢了! A.今天天气 多云,温度22摄氏度 分割线
追问:测试好像没反应啊!怎么在TXTBOX中显示了?
例如TXT文件中有以下内容: A.今天天气 多云,温度22摄氏度 分割线 B.明天天气 小雨,温度11摄氏度 分割线 。。。。下面还有很多内容,都是这样的格式 我的要求是我点击其中一个按钮比如今天天气就只显示下面这一段这一段内容,点击明天就显示B.明天天气到换行符的内容,谢谢了! A.今天天气 多云,温度22摄氏度 分割线
追问:测试好像没反应啊!怎么在TXTBOX中显示了?
答案: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
上一个:请大侠们帮我编一段VB程序,在线等。。
下一个:VB6中Combo控件下拉列表显示.txt文件下的数据(按行显示出来)