please help me with this problem

[kirubagari]

I want to check the arrangement of data in this order from byte 49 to mFile size(END OF FILE).
04 FF _ _ _ _ _04 FF _ _ _ _ 04 FF _ _.
_ __ 04 FF _ _ _ _ 04 FF _ _ _ _ 04 FF
Actually the values in the hex form. Each value represents 1 byte. Actually I already open the file in the binary editor using VB code. I would like to check the arrangement of data from byte 49 to MFileSize. If the code detect other than this 2 values ,I want to change it straight way to 04 FF.using the for loop i would like it check the data by i+5 it mean it go to 5th palce and check again until end of file.Someone please help me

This is my coding

 Private cmd check _click( )
 Dim a as integer
 Dim b as string
 a=4
 b=FF
 
  For i=49 to MfileSize
   If
       arrByte(i)<>a 
            then a=4
   end if
   i=i+5
   Next
 
 
 
 
For i=50 to mFileSize
     If arrByte(i) <> FF
Then
   b=FF
Endif
 i=i+5
next

[Killer42]

I think you need to study your basic programming concepts a bit more. In particular, the use of variables. Take this code...

If arrByte(i) <> a Then
  a = 4
End If

This code does absolutely nothing, because a is already equal to 4. a is not what you want to change.

[Killer42]

Try this one for size...

Private Sub check_click()
  Const a As Byte = 4
  Const b As Byte = &HFF
  Dim i As Long
 
  For i = 49 To mFileSize Step 7
    If arrByte(i) <> a Then
      arrByte(i) = a
    End If
    If arrByte(i + 1) <> b Then
      arrByte(i + 1) = b
    End If
  Next
End Sub

Note, as far as I can see this is only changing the array arrByte, not the actual file. If you want this data back in the file, you will probably have to write it there afterward. (Unless there's some sort of link I'm not aware of between the array and the file.)

[Killer42]

I checked out your other posts, to get a better idea of what you're trying to do. This version should so what you want (I think) but I haven't tested it. One nice feature is that it will show you what it's doing, as it goes (just printing to the immediate window).

In any such situation, when changing data like this, I highly recommend keeping a backup copy of the input file, or writing the output to a different file. You should always be able to go back or start over if something goes wrong.

Private Sub check_click()
  Const a As Byte = 4
  Const b As Byte = &HFF
  Dim i As Long
  Dim AnyChanged As Boolean
  Dim ChangeMade As Boolean
 
  For i = 49 To mFileSize Step 6
    AnyChanged = False
    Debug.Print "Before : "; Hex$(arrByte(i)); " "; Hex$(arrByte(i + 1)); " "; Hex$(arrByte(i + 2)); _
    " "; Hex$(arrByte(i + 3)); " "; Hex$(arrByte(i + 3)); " "; Hex$(arrByte(i + 5))
    If arrByte(i) <> a Then
      arrByte(i) = a
      ChangeMade = True
    End If
    If arrByte(i + 1) <> b Then
      arrByte(i + 1) = b
      ChangeMade = True
    End If
    If ChangeMade Then
      AnyChanged = True
      Debug.Print "After  : "; Hex$(arrByte(i)); " "; Hex$(arrByte(i + 1)); " "; Hex$(arrByte(i + 2)); _
      " "; Hex$(arrByte(i + 3)); " "; Hex$(arrByte(i + 3)); " "; Hex$(arrByte(i + 5)); _
      "  <--- Corrected"
      Beep
    End If
    Debug.Print
  Next
 
  ' At this point, variable AnyChanged tells you whether any
  ' corrections were made, and thus whether you need to write
  ' arrByte() back to the file.
 
End Sub

[kirubagari]

Thank You Sir For Ur Help.im Not So Good In Programming But Ur Guide Realy Help Me Sir.thank You Very Much.thanks For Spent Ur Time To Guide Me Sir.

[Killer42]

By the way, you may find that the output looks a bit nasty because the hex values are sometimes one character, sometimes two. Just in case it's useful, here's an old function I wrote which will display the Hex value as a fixed number of characters. To use it, just plug it into any code module and then any time you want to print a byte value as two hex digits, just print HexByte2Char(value)

Public Function HexByte2Char(ByVal Value As Byte) As String
  HexByte2Char = IIf(Value < &H10, "0", "") & Hex$(Value)
End Function