OpenChess

Code: Select all

Public Sub brainlearn_Defrag(sourceBIN As String, minDepth As Integer)
        Dim lectureBIN As IO.FileStream, tabTampon(23) As Byte, compteur As Integer, nbSuppression As Integer
        Dim cibleBIN As String, depart As Date

        Console.Title = "defragging experience.bin..."

        cibleBIN = Replace(sourceBIN, ".bin", "_new.bin")
        If My.Computer.FileSystem.FileExists(cibleBIN) Then
            My.Computer.FileSystem.DeleteFile(cibleBIN, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
        End If

        compteur = 0
        nbSuppression = 0
        depart = Now
        lectureBIN = New IO.FileStream(sourceBIN, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
        Do
            lectureBIN.Read(tabTampon, 0, 24) 'clé inversée
            If minDepth <= tabTampon(8) Then
                My.Computer.FileSystem.WriteAllBytes(cibleBIN, tabTampon, True)
            Else
                nbSuppression = nbSuppression + 1
            End If

            compteur = compteur + 1
            If compteur Mod 5000 = 0 Then
                Console.Clear()
                Console.WriteLine(Format(lectureBIN.Position / lectureBIN.Length, "0.00%") & ", " & Format(compteur / DateDiff(DateInterval.Second, depart, Now) / 1000, "0 moves/ms"))
            End If
        Loop While lectureBIN.Position < lectureBIN.Length

        Console.Clear()
        Console.WriteLine(Format(lectureBIN.Position / lectureBIN.Length, "0.00%") & ", " & Format(compteur / DateDiff(DateInterval.Second, depart, Now) / 1000, "0 moves/ms"))

        lectureBIN.Close()

        Console.WriteLine("old : " & Format(compteur, "000 000 000 moves"))
        Console.WriteLine("del : " & Format(nbSuppression, "000 000 000 moves"))
        Console.WriteLine("now : " & Format(compteur - nbSuppression, "000 000 000 moves"))

        My.Computer.FileSystem.DeleteFile(sourceBIN, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
        My.Computer.FileSystem.RenameFile(cibleBIN, "experience.bin")

    End Sub