VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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)


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -