引数にバイト配列を指定するには？ (ID:74724)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ごめんなさい^^;引数()の"()"を忘れてました^^; ところで、それを使って、こんな関数を作ったんですけど、 みょうに重いんです。 どこかで見つけた、MIDIデータタイトル取得のモジュールでは、1秒もかからないのに…。 Public Function inbit(start As Long, bytecode() As Byte, search As String, Optional Searchend As Long = -1) As Long Dim i As Long, Leng As Integer, b As Integer On Error GoTo 2 i = start Leng = Len(search) 1 Do If Searchend <> -1 And Searchend <= i Then Exit Do If bytecode(i) = "&H" & Mid(search, 1, 2) Then For b = 2 To Leng / 2 If "&H" & Mid(search, b + (b - 1), 2) <> bytecode(i + (b - 1)) Then _ i = i + 1: GoTo 1 If b = Leng / 2 Then inbit = i Next End If i = i + 1 Loop 2 End Function たとえば、MIDIの楽譜にむかって"00FF0316"を検索すると、 22あたりが返ってきます。 検索文字列が長すぎなのかなぁ…。