Moin Comm.
Ich bin grad am schreiben eines kleinen Programms. Dazu muss ich in einer nach Bytes mit dem Wert 255 also FF suchen. Ich hab mir dazu eigentlich eine Funktion geschrieben, allerdings hängt sich das Programm in einer netten Endlosschleife auf.
Code
Private Function GetFreeOffset(ByVal Bytes As Integer) As Long
Dim breader As New BinaryReader(New FileStream(table, FileMode.Open))
breader.BaseStream.Position = &H800000
Dim pos As Long = 0
Dim checkbytes(0 To Bytes - 1) As Byte
For i As Integer = 0 To checkbytes.Length - 1
checkbytes(i) = &HFF
Next
Dim flag As Boolean = True
Do While flag = True
pos = breader.BaseStream.Position
If breader.ReadBytes(Bytes) Is checkbytes Then
breader.Close()
flag = False
Return pos
End If
Loop
End Function
Alles anzeigen
Kann mir da einer weiterhelfen?