Xreferat.com » Рефераты по информатике и программированию » Модель файловой системы FAT
Модель файловой системы FAT
файлов
With Sheets("Sheet")
.Range("F6:U13").Interior.ColorIndex = ColorOfPaper 'окрасили область файлов в цвет фона
.Range("F6:U13").Value = "" 'очистили все ячейки области файлов
.Range("F6:U13").NumberFormat = "0" 'формат числа для области файлов-целые числа
.ClearArrows 'убрали все стрелки
Dim PointerToFile As String
NumberFile = 1
While .Cells(NumberFile + 3; 2) <> "" 'последовательно просматриваем область файлов. Для каждого файлавыполняется следующая процедура:
NumberCellFAT = .Cells(NumberFile + 3; 4) 'точка входа в FAT N-ного файла
PointerToFile = "=R" & NumberFile + 3 & "C2" 'указатель на ячейку каталога с именем N-ного файла
Relation = (.Cells(NumberFile + 3; 3) - 1) Mod 8 'смещение. Являет собой размер неполностью заполненного кластера
While .Cells(3; NumberCellFAT + 5) <> 0 'просмотр FAT до признака конца цепочки
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT + NumberFile 'выделение цветом очередного непоследнего кластера N-ного файла
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Formula = PointerToFile 'каждая ячейка этого кластера теперь указывает на ячейку с именем файла в каталоге
NumberCellFAT = .Cells(3; NumberCellFAT + 5) 'взяли следующую ячейку FAT из цепочки
Wend 'теперь обработка последнего кластера N-ного файла. Отличается тем, что он может быть занят не полностью
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Formula = PointerToFile
NumberFile = NumberFile + 1 'работаем со следующим файлом
Wend
End With
End Sub
Макросы нижнего уровня абстракции
Function FreeSize() As Integer 'Функция для определения количества свободного места в области файлов
FreeSize = 0
temp = 6
While temp < 22 'просмотр области FAT
If Sheets("Sheet").Cells(3; temp).Value = "" Then _
FreeSize = FreeSize + 8 'если ячейка FAT пуста, то своб.места в ней 8 байт
temp = temp + 1
Wend
End Function
Function NextFreeCellFAT() As Integer 'Функция возвращает номер первого найденного свободного элемента FAT
NextFreeCellFAT = 1
While NextFreeCellFAT < 17
If Sheets("Sheet").Cells(3; NextFreeCellFAT + 5).Value = "" Then Exit Function
NextFreeCellFAT = NextFreeCellFAT + 1
Wend
End Function
Sub AddFileToCatalog(File As FileID) 'добавление файла в область каталога
temp = 4
With Sheets("Sheet")
While .Cells(temp; 2) <> ""
temp = temp + 1 'поиск свободного места в каталоге файлов
Wend 'кто дочитает до этого места-бутылка шампанского !
.Cells(temp; 2) = File.Name 'Запись в каталог информации о файле
.Cells(temp; 3) = File.Size
.Cells(temp; 4) = File.First
End With
End Sub
Sub DeleteFileFromCatalog(NameDeletedFile As String) 'удаление информации о файле из каталога
Position = 4
While Sheets("Sheet").Cells(Position; 2).Text <> NameDeletedFile
Position = Position + 1
Wend
For temp = Position To 16 + 3 'следующие за удаляемым файлом ячейки сдвигаются, _
затирая запись об удаляемом файле
Sheets("sheet").Range(Cells(temp; 2); Cells(temp; 4)).Value = _
Sheets("sheet").Range(Cells(temp + 1; 2); Cells(temp + 1; 4)).Value
Next
End Sub
Sub ToFAT(NumberCell As Integer; Value As Integer) 'Процедура записи в заданную ячейку FAT заданного значения
Sheets("Sheet").Cells(3; NumberCell + 5).Value = Value
End Sub
Sub DeleteCellFromFAT(StartCell As Integer) 'рекурсивная функция удаления цепочки из FAT _
Вызывается с номером точки входа
' MsgBox ("DeleteCellFromFAT, StartCell=" & StartCell)
If Sheets("Sheet").Cells(3; 5 + StartCell).Value = 0 Then 'если в рассматриваемой точке - 0, _
то это значит, что она является указателем конца файла
Sheets("Sheet").Cells(3; 5 + StartCell) = "" 'и поэтому очищаем эту ячейку FAT
Else 'в противном случае это указатель на следующую ячейку FAT - вызываем эту же процедуру
DeleteCellFromFAT (Sheets("sheet").Cells(3; 5 + StartCell).Value) 'но с новым номером ячейки FAT
Sheets("sheet").Cells(3; 5 + StartCell) = "" 'и затем ее очищаем
End If
End Sub
Список литературы, примененной при подготовке курсовой работы.
With Sheets("Sheet")
.Range("F6:U13").Interior.ColorIndex = ColorOfPaper 'окрасили область файлов в цвет фона
.Range("F6:U13").Value = "" 'очистили все ячейки области файлов
.Range("F6:U13").NumberFormat = "0" 'формат числа для области файлов-целые числа
.ClearArrows 'убрали все стрелки
Dim PointerToFile As String
NumberFile = 1
While .Cells(NumberFile + 3; 2) <> "" 'последовательно просматриваем область файлов. Для каждого файлавыполняется следующая процедура:
NumberCellFAT = .Cells(NumberFile + 3; 4) 'точка входа в FAT N-ного файла
PointerToFile = "=R" & NumberFile + 3 & "C2" 'указатель на ячейку каталога с именем N-ного файла
Relation = (.Cells(NumberFile + 3; 3) - 1) Mod 8 'смещение. Являет собой размер неполностью заполненного кластера
While .Cells(3; NumberCellFAT + 5) <> 0 'просмотр FAT до признака конца цепочки
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT + NumberFile 'выделение цветом очередного непоследнего кластера N-ного файла
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7; NumberCellFAT + 5)).Formula = PointerToFile 'каждая ячейка этого кластера теперь указывает на ячейку с именем файла в каталоге
NumberCellFAT = .Cells(3; NumberCellFAT + 5) 'взяли следующую ячейку FAT из цепочки
Wend 'теперь обработка последнего кластера N-ного файла. Отличается тем, что он может быть занят не полностью
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Formula = PointerToFile
NumberFile = NumberFile + 1 'работаем со следующим файлом
Wend
End With
End Sub
Макросы нижнего уровня абстракции
Function FreeSize() As Integer 'Функция для определения количества свободного места в области файлов
FreeSize = 0
temp = 6
While temp < 22 'просмотр области FAT
If Sheets("Sheet").Cells(3; temp).Value = "" Then _
FreeSize = FreeSize + 8 'если ячейка FAT пуста, то своб.места в ней 8 байт
temp = temp + 1
Wend
End Function
Function NextFreeCellFAT() As Integer 'Функция возвращает номер первого найденного свободного элемента FAT
NextFreeCellFAT = 1
While NextFreeCellFAT < 17
If Sheets("Sheet").Cells(3; NextFreeCellFAT + 5).Value = "" Then Exit Function
NextFreeCellFAT = NextFreeCellFAT + 1
Wend
End Function
Sub AddFileToCatalog(File As FileID) 'добавление файла в область каталога
temp = 4
With Sheets("Sheet")
While .Cells(temp; 2) <> ""
temp = temp + 1 'поиск свободного места в каталоге файлов
Wend 'кто дочитает до этого места-бутылка шампанского !
.Cells(temp; 2) = File.Name 'Запись в каталог информации о файле
.Cells(temp; 3) = File.Size
.Cells(temp; 4) = File.First
End With
End Sub
Sub DeleteFileFromCatalog(NameDeletedFile As String) 'удаление информации о файле из каталога
Position = 4
While Sheets("Sheet").Cells(Position; 2).Text <> NameDeletedFile
Position = Position + 1
Wend
For temp = Position To 16 + 3 'следующие за удаляемым файлом ячейки сдвигаются, _
затирая запись об удаляемом файле
Sheets("sheet").Range(Cells(temp; 2); Cells(temp; 4)).Value = _
Sheets("sheet").Range(Cells(temp + 1; 2); Cells(temp + 1; 4)).Value
Next
End Sub
Sub ToFAT(NumberCell As Integer; Value As Integer) 'Процедура записи в заданную ячейку FAT заданного значения
Sheets("Sheet").Cells(3; NumberCell + 5).Value = Value
End Sub
Sub DeleteCellFromFAT(StartCell As Integer) 'рекурсивная функция удаления цепочки из FAT _
Вызывается с номером точки входа
' MsgBox ("DeleteCellFromFAT, StartCell=" & StartCell)
If Sheets("Sheet").Cells(3; 5 + StartCell).Value = 0 Then 'если в рассматриваемой точке - 0, _
то это значит, что она является указателем конца файла
Sheets("Sheet").Cells(3; 5 + StartCell) = "" 'и поэтому очищаем эту ячейку FAT
Else 'в противном случае это указатель на следующую ячейку FAT - вызываем эту же процедуру
DeleteCellFromFAT (Sheets("sheet").Cells(3; 5 + StartCell).Value) 'но с новым номером ячейки FAT
Sheets("sheet").Cells(3; 5 + StartCell) = "" 'и затем ее очищаем
End If
End Sub
Список литературы, примененной при подготовке курсовой работы.
| 1. | Microsoft Systems Journal, Sept 1989. Получен из Computer Library Periodicals, Jan 1990, Doc #14753 |
| 2. | Профессиональная работа в MS-DOS, Р.Данкан, Мир, 1993 |
| 3. | Excel 5.0 для профессионалов, Н.Николь, Р. Альбрехт, Москва, “Эком”, 1996 |
Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.),
обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus.
Помогаем в публикации. Правки вносим бесплатно.