[RESOLVED] [help] VB6, How to search/replace a pattern in the byte array?

[gyhu]

Used the code below to read a binary file into byte array.

Private Sub cmdTest_Click()
    Dim fileNum As Integer
    Dim bytes() As Byte

    fileNum = FreeFile
    Open "C:\users\xxxx\desktop\wp.bin" For Binary As fileNum
    ReDim bytes(LOF(fileNum) - 1)
    Get fileNum, , bytes
    Close fileNum
End Sub

How can I search/replace a pattern in bytes() ?

[Arnoutdv]

You can loop through the byte array and check each byte value.
If it matches the first byte of the pattern then check the next byte for second byte in the pattern, and so on and so on.

[The trick]

https://www.vbforums.com/showthread....=1#post4994843

[gyhu]

You can loop through the byte array and check each byte value.
If it matches the first byte of the pattern then check the next byte for second byte in the pattern, and so on and so on.

Sure, got it, thank you.

[gyhu]

https://www.vbforums.com/showthread....=1#post4994843

Wow, your code is good and has high efficiency, thank you very much.