投稿日 | : 2003/11/13(Thu) 15:45 |
投稿者 | : ちり |
Eメール | : |
URL | : |
タイトル | : 配列の中の文字列を検索しその位置を知るには |
Private S() As String
Function AAA(ifst As Long) As Long
Dim i As Long
For i = ifst To UBound(S) - 1
If InStr(S(i), "etc") > 0 Then
AAA = i
Exit For
End If
Next i
End Function
このような感じで、ある文字列(この場合"etc")を含む配列の番号を所得したいのですが、
S()が大きくなると、異様に速度が落ちてしまいます。
もっと早く検索する方法はあるのでしょうか?
winXP(SP1)
vb6(SP5)