特定のアドレスを検索するには？ (ID:86620)

名前

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

本文 めんどくさがらずに一つずつ比べればいいだけでは。 Dim n, m Dim b() As Byte Dim c() As Byte Dim Fno As Integer Dim MacAdd As Long 'Macアドレスの書かれた番地 Dim Flg As Boolean s = "123456789ABC" '探すMACアドレス ReDim c(Len(s) * 2) For n = 1 To Len(s) * 2 Step 2 '一つ飛びにセット c(n) = Asc(Mid(s, (n + 1) / 2, 1)) Next n FileName = "project1.exe" ReDim b(FileLen(FileName)) Fno = FreeFile Open FileName For Binary As #Fno Get #Fno, , b Close #Fno For n = 1 To UBound(b) - UBound(c) For m = 1 To UBound(c) Step 2 '全て一致ならTrueで抜ける Flg = False If b(n + m) = c(m) Then Flg = True Else Exit For End If Next If Flg = True Then '全て一致アドレス発見 MacAdd = n + 1 Exit For End If Next もう少し良いアルゴリズムが有りそうだけど。。。