例如文本框1(multiline=true)如下:
孫紅文,85,期中,陳錚,85,張立元,84,姚媛,87,王偉,86,78
田力,83,王立建,79,86,72,盧宇,85,龔書(shū)娟,86,王偉立,78,董巖,72,牛
文慧,89,82,
如何讀取"王立建"和"龔書(shū)娟"名字后面的成績(jì)到文本框2
text2.text=(multiline=true)
王立建,79,86,72,
龔書(shū)娟,86,
******************************************************
我的話(huà)，用split先把Text1里的字符串用“,”分割一下，然后找這兩個(gè)人名，把人名及后面的成績(jì)拼到Text2里，是成績(jì)還是到了下一個(gè)人名可以用
IsNumeric()函數。
Private Sub Command1_Click()
Dim s() As String, res As String
Dim i As Integer
Dim flg As Boolean
res = ""
s = Split(Text1.Text, ",")
flg = False
For i = 0 To UBound(s)
If s(i) = "王立建" Or s(i) = "龔書(shū)娟" Then
If res <> "" Then res = res & vbCrLf
flg = True
res = res & s(i) & ","
Else
If flg = True Then
If IsNumeric(s(i)) Then
res = res & s(i) & ","
Else
flg = False
End If
End If
End If
Next i
Text2.Text = res
End Sub
