求助 VB

[txlk33]

如
01，02，03，04
05，08，09，12
04，05，13，15
02，04，09，10

怎样读取行与行之间的指定数据之间的间隔呢

[txlk33]

如有不明白之处 发消息。

[tongnaifu]

举例说明什么间隔

[东方之珠]

A(0),A(1),........,A(5),............A(10),...........,A(15)

[txlk33]

如， 查找所有02与02之间的间隔读取问题了 。不明白发消息。

[jhone99]

Private Sub Command1_Click()


Dim a() As String
Dim i As Integer
Dim j As Integer
Dim strT As String
Dim intS As Integer


a = Split("01,02,03,04,05,08,09,12,04,05,13,15,02,04,09,10", ",")
strT = "02"

With MSFlexGrid1
.Rows = 5
.Cols = 5

For i = 1 To 4
For j = 1 To 4
.Row = i
.Col = j
.Text = a((i - 1) * 4 + j - 1)
Next j
Next i

For i = 1 To 4
For j = 1 To 4
.Row = i
.Col = j

If .Text = strT Then
If intS > 0 Then
Print i - intS - 1
End If
intS = i
End If
Next j
Next i

End With
End Sub

[jhone99]

Private Sub Command1_Click()


Dim i As Integer
Dim j As Integer
Dim strT As String
Dim intS As Integer

strT = "02"

With MSFlexGrid1

For i = 1 To 4
.Row = i
.Col = 3
For j = 1 To Len(.Text) - 1

If Mid(.Text, j, 2) = strT Then
If intS > 0 Then
Print i - intS - 1
End If
intS = i
End If
Next j
Next i

End With
End Sub

[jhone99]

Private Sub Command1_Click()


Dim i As Integer
Dim j As Integer
Dim strT As String
Dim intS As Integer

strT = "02"

With MSFlexGrid1

For i = 1 To .Rows - 1
.Row = i
.Col = 3
For j = 1 To Len(.Text) - 1

If Mid(.Text, j, 2) = strT Then
If intS > 0 Then
Print i - intS - 1
End If
intS = i
End If
Next j
Next i

End With
End Sub