is it correct way

[kirubagari]

private Sub cmdscan_Click()
 
  Const a As Byte = 4
  Const b As Byte = &HFF
  Dim I As Long
  Dim AnyChanged As Boolean
  Dim changeMade As Boolean
  Dim value As Byte
  'Dim x
  'Dim tmp As String
 
  For I = 49 To 100 Step 6
    AnyChanged = False
   rich1.text= ; "Before : "; HexByte2Char(arrByte(I)); " "; HexByte2Char(arrByte(I + 1)); " "; HexByte2Char(arrByte(I + 2)); _ vbnewline
    " "; HexByte2Char(arrByte(I + 3)); " "; HexByte2Char(arrByte(I + 4)); " "; HexByte2Char(arrByte(I + 5))
   ' Print HexByte2Char(I)
 
    If arrByte(I) <> a Then
      arrByte(I) = a
      value = a
      changeMade = True
 
    End If
    If arrByte(I + 1) <> b Then
      arrByte(I + 1) = b
      changeMade = True
    End If
    If changeMade Then
      AnyChanged = True
      rich1.text="After  : "; HexByte2Char(arrByte(I)); " "; HexByte2Char(arrByte(I + 1)); " "; HexByte2Char(arrByte(I + 2)); _
      " "; HexByte2Char(arrByte(I + 3)); " "; HexByte2Char(arrByte(I + 4)); " "; HexByte2Char(arrByte(I + 5)); _vbnewline
      "  <--- Corrected"
    End If
    Debug.Print
  Next
 
End Sub

is it way to display it in richbox.debug.p rint i used rich1.text="Aft er............. .

or put rich1.text=rich 1.text& HexByte2Char(ar rByte(I)); " "; HexByte2Char(ar rByte(I + 1)); " "; HexByte2Char(ar rByte(I + 2)); _ vbnewline

is it the way

u said i can open the file in binary mode and display the array back to file.



mHandle = FreeFile
Open "a:\bonding .bin " For Binary As mHandle
how to put back into file.Sorry again because im asking a lot question.im asking question for simple task aslo.sory killer32

[Killer42]

Let's see...

To put text in a variable, or a property, you cannot use the semicolon (;) to concatenate things. That is part of the Print statement. You need to use an ampersand (&) to join strings together.

As you will also see, placing a value into a variable or property replaces whatever was there before. So if you want to add onto the end, you need to concatenate (join) the existing value and the new part, and place the results back there.

As for writing data back to a file in binary mode, it's pretty simple. I'll throw together a simple little piece of code which will read an entire file into an array, close the file, then open the file again and write it back. (This iwll be based on the file-reading sample in the VB Articles area).

Caution: This code has not been tested. Use it with great care. If it's not correct, it could destroy the file that you tell it to process. (Assuming it does work, you should not see any effect, since the file is rewritten with the exact same data - though I suppose the last-updated date/time would change.)

To use it, just add a new code module to a VB project, and copy/paste the entire thing into it. Note, if you find that the line numbers get copied, just hit the Reply button, and copy the code from the reply window.

Option Explicit
 
Public Sub ReWrite_File(ByVal FileName As String)
  Dim FileNo As Long, FileSize As Long
  Dim Buffer() As Byte
 
 
  ' PART 1: Read the file.
 
  FileNo = FreeFile ' Get next available file number.
  Open FileName For Binary Access Read Shared As #FileNo
  FileSize = LOF(FileNo) ' Determine how large the file is (in bytes).
  ReDim Buffer(1 To FileSize) ' Set our buffer to that length.
 
  ' The size of the Buffer determines how many bytes are read...
  Get #FileNo, , Buffer() ' Grab the entire file's data into the array
  Close #FileNo
 
 
  ' PART 2
  ' If you plan to change the data, this is where it would happen.
 
  Beep
 
 
 
 
  ' PART 3: Write the file back.
 
  If MsgBox("Write data back to the file?", vbYesNo) = vbYes Then
    FileNo = FreeFile ' Get next available file number.
    Open FileName For Binary Access Write Lock Write As #FileNo
    ' The size of the Buffer determines how many bytes are written...
    Put #FileNo, , Buffer() ' Grab the entire file's data into the array
    Close #FileNo
  End If
 
End Sub

[kirubagari]

Private Sub Command1_Click( )

Open "a:\bonding .bin " For Binary As mHandle

Call ReWrite_File

End Sub

is it way to read the file and use that function

[kirubagari]

rich1.Text = rich1.Text & "Before : " & HexByte2Char(arrByte(I)) & " "
           & HexByte2Char(arrByte(I + 1))" "& HexByte2Char(arrByte(I + 2));
           " "& HexByte2Char(arrByte(I + 3))& " "& HexByte2Char(arrByte(I + 4))& " "&  HexByte2Char(arrByte(I + 5))

[Killer42]

rich1.Text = rich1.Text & "Before : " & HexByte2Char(arrByte(I)) & " "
           & HexByte2Char(arrByte(I + 1))" "& HexByte2Char(arrByte(I + 2));
           " "& HexByte2Char(arrByte(I + 3))& " "& HexByte2Char(arrByte(I + 4))& " "&  HexByte2Char(arrByte(I + 5))

Yes, that looks about right. Try it, and see how it goes.

Of course, since this is actually spread over three lines, it would need continuation characters (_), but hopefully you're already familiar with splitting up lines like that.

[Killer42]

Private Sub Command1_Click( )

Open "a:\bonding .bin " For Binary As mHandle

Call ReWrite_File

End Sub

is it way to read the file and use that function

Well, I suppose it's a bit different if you already have the file open. Here's a modified copy of the routine which assumes the file is already open, and that you want to leave it that way. Note, I'm not sure it can be done, as you may need to use different options on the Open statement to open it for reading and writing. But you can try this (on an unimportant file, in case it stuffs up) and see what happens.

Option Explicit
 
Public Sub ReWrite_Open_File(ByVal FileNo As Long)
  Dim FileSize As Long, Buffer() As Byte
 
  ' PART 1: Read the file.
 
  FileSize = LOF(FileNo) ' Determine how large the file is (in bytes).
  ReDim Buffer(1 To FileSize) ' Set our buffer to that length.
  Get #FileNo, 1, Buffer() ' Grab the entire file's data into the array
 
  ' PART 2
  ' If you plan to change the data, this is where it would happen.
  Beep
 
 
  ' PART 3: Write the file back.
 
  If MsgBox("Write data back to the file?", vbYesNo) = vbYes Then
    Put #FileNo, 1, Buffer() ' Write the data back to the file.
  End If
End Sub

You realise, I hope, that this routine doesn't actually do anything useful. It's just intended as a demonstration of techniques used in transferring information back and forth between a file and a byte array.