UC知道VB怎样读取文本中指定字符串下的第二行数据
来源：百度知道 编辑：UC知道 时间：2024/06/08 12:02:39
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
------------------------------------------------------------------------------
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
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