Italian [B4J] Lettura sequenziale file binario

Sub READ2
   
    Spezzetta( stubPath, stubName,76)
   
End Sub



Sub Spezzetta(Dir As String, FileName As String, Spezzoni As Int)
    Dim FileSize As Long = File.Size(Dir, FileName)
    'Dim Spezzoni As Int = 10
    Dim Spezzone As Int = FileSize / Spezzoni
    Dim Resto As Int = FileSize Mod Spezzone
    Dim strBuffer As String
    Log("File size: " & FileSize)
    Log("Spezzone " & Spezzone)
    Log("Resto: " & Resto)

    Dim rasInput As RandomAccessFile
    rasInput.Initialize(Dir, FileName, True)
    Dim FileNum As Int

    Dim Buffer(20) As Byte
    rasInput.ReadBytes(Buffer, 0, 20,  0)
    strBuffer = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
       
    Log("[start]" & strBuffer)

    FileNum = 2
    For i = 0 To Spezzoni * Spezzone - 1 Step Spezzone
        Dim Buffer(Spezzone) As Byte
        rasInput.ReadBytes(Buffer,  0, Spezzone,  i)
               
        strBuffer = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
       
        Log("[" & FileNum & "]" & strBuffer)

        FileNum = FileNum + 1
       
    Next

   
End Sub

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region