Проект программного обеспечения библиотеки

    End Function 

    Public Sub FileCreate(ByVal FileName As String)

        'Создаёт пустой текстовый файл

        System.IO.File.CreateText(FileName)

    End Sub 

    Public Sub FileDelete(ByVal FileName As String)

        If FileExist(FileName) Then

        End If

    End Sub 

    Public Function FileAssign(ByVal FileName As String, ByVal Params As Microsoft.VisualBasic.OpenMode) As Integer

        'Данная функция открывает файл "FileName", с параметрами чтения и записи "Params".

        'Возвращает ID открываемого файла

        Dim res As Integer

        res = FreeFile()

        FileOpen(res, FileName, Params)

        Return res

    End Function 

    

  Public Function FileFree(ByVal FileHandle As Integer) As Integer

        'Закрывает файл и освобождает ID - "FileHandle"

        FileClose(FileHandle)

        Return FreeFile()

    End Function 

    Public Function FileEOF(ByVal FileHandle As Integer) As Boolean

        'Альтернатива стандартной процедуре EOF реализованная в оболочке класса.

        'Делает проверку на "конец файла".

        Return EOF(FileHandle)

    End Function 

    Public Function ReadString(ByVal FileHandle As Integer) As String

        'Функция считывает строку из файла с ID - "FileHandle" и возвращает её.

        Dim res As String

        Input(FileHandle, res)

        Return res

    End Function 

    Public Function ReadInteger(ByVal FileHandle As Integer) As Integer

        'Функция считывает число из файла с ID - "FileHandle" и возвращает его.

        Dim res As Integer

        Input(FileHandle, res)

        Return res

    End Function 

    Public Function ReadBoolean(ByVal FileHandle As Integer) As Boolean

        'Функция считывает булевую переменную из файла с ID - "FileHandle" и возвращает её.

        Dim res As Boolean

        Input(FileHandle, res)

        Return res

    End Function 

    Public Sub WriteParams(ByVal FileHandle As Integer, ByVal ParamArray Params() As Object)

        'Данная процедура записывает в файл с ID - "FileHandle" данные Params

        'Public Sub Write(ByVal FileHandle As Integer, ByVal ParamPamPam As String)

        Write(FileHandle, Params)

    End Sub 

End Class 

Finder.vb 

Public Class Finder

    Inherits Data

  

End Class 

Data.vb

Public Class Data

    Public Authors(0), Books(0), Readers(0), Periods(0) As String

    Public Count, IDsOfBook(0) As Integer 

    Public Function GetAuthor(ByVal ID As Integer) As String

        Return Authors(ID)

    End Function 

    
 

 Public Sub SetAuthor(ByVal ID As Integer, ByVal Value As String)

        Authors(ID) = Value

    End Sub 

    Public Function GetBook(ByVal ID As Integer) As String

        Return Books(ID)

    End Function 

    Public Sub SetBook(ByVal ID As Integer, ByVal Value As String)

        Books(ID) = Value

    End Sub 

    Public Function GetReader(ByVal ID As Integer)

        Return Readers(ID)

    End Function 

    Public Sub SetReader(ByVal ID As Integer, ByVal Value As String)

        Readers(ID) = Value

    End Sub 

    Public Function GetPeriod(ByVal ID As Integer)

        Return Periods(ID)

    End Function 

    Public Sub SetPeriod(ByVal ID As Integer, ByVal Value As String)