順序讀取,信息放入數組中,這裏最好用動態數組。
Private Type ty
name As String * 8
sm As String * 1
End Type
Dim a() As ty
查詢時用for循環
例如:
For i = 0 To UBound(a)
If RTrim(a(i).name) = "張三" Then Print a(i).name, a(i).sm: Exit For
Next i