Question

VB怎样读取文本中指定字符串下的第二行数据

PCM-TSL SUB_TSL TYPE I.LEV ADM.STATE OP.STATE CH.STATUS
------------------------------------------------------------------------------
0 33 - MBCCH - UNLOCKED WO
1 33 - SDCCH - UNLOCKED WO
2 33- 1 2 TCHD 0 UNLOCKED WO
3 33- 1 3 TCHD 0 UNLOCKED WO
4 33- 2 0 TCHD 0 UNLOCKED WO
5 33- 2 1 TCHD 0 UNLOCKED WO
6 33- 2 2 TCHD 0 UNLOCKED WO
7 33- 2 3 TCHD 0 UNLOCKED WO
SCEIVER HAS NO INTERFERING CELLS

以上是log文件中的一部分，文件内容很多，都是查看数据显示的内容，这一段第一行内容是固定的，然后是一行分隔符号，
我要获取中间这几行数据，VB能实现读取某一行字符后获取这行字符的第2行往后数据么？，当读取到某行字符后停止获取数据

Answer 1

Private Sub Form_Load()
Dim sLog$(), sData$, i&, sOut$
sData = "test:line 1" & vbCrLf & "test:line 2" & vbCrLf & "test: line 3" '此处请更改为你的日志数据
sLog() = Split(sData, vbCrLf)
Debug.Print "----------1-----------"
For i = LBound(sLog()) To UBound(sLog()) '从第一行到最后行
If sLog(i) <> "" Then Debug.Print sLog(i) '即输出所有非空行
Next i

Debug.Print "----------2-----------"
Debug.Print sLog(0) '输出第一行
Debug.Print "----------3-----------"
Debug.Print Mid$(sLog(0), 6) '输出第一行第六字起部分

For i = 1 To UBound(sLog())
If sLog(i) <> "" Then sOut = sOut & sLog(i) & vbCrLf '输出第二行起至最后一行的内容
Next i
Debug.Print "----------4-----------"
Debug.Print sOut

End Sub