关于vb中msflexgrid显示

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:43:10
日志格式如下：
车号=0052,方向=南向北出站,时间=2007-11-17 4:58:55
车号=0054,方向=南向北出站,时间=2007-11-17 4:59:28
车号=0055,方向=北向南进站,时间=2007-11-17 5:01:19
车号=0021,方向=南向北出站,时间=2007-11-17 5:03:11
。。。。。。

我要在MSflexgrid中显示每个等号后面的内容，即显示：
0052 南向北出站 2007-11-17 4:58:55
0054 南向北出站 2007-11-17 4:59:28
......
代码怎么写啊？

Dim strT As String
'--在这里加循环读出文件的字符
strT = "车号=0052,方向=南向北出站,时间=2007-11-17 4:58:55"
Dim a() As String, i As Integer
a = Split(strT, ",")
Me.MSFlexGrid1.Cols = 4
For i = 0 To 2
a(i) = Mid(a(i), InStr(1, a(i), "=") + 1, Len(a(i)))
Me.MSFlexGrid1.Row = 1
Me.MSFlexGrid1.Col = i + 1
Me.MSFlexGrid1.Text = a(i)
Next i

以上是显示代码，自己加上循环！