Массив Массивов

[GM]

Как понял:

Код: Выделить всё

type SubArray
arr() as byte
end type
dim m() as Subarray


А вообще-то массив массивов, это двухмерный массив.

[RayShade]

А FE то зачем 2 раз аобъявлять?

[Faust]

А в чём, собственно, проблемы? Заголовок массива.

[Inferno]

А смысл заводить двумерный массив если ширина постоянна?

[Inferno]

Грубо говоря файл это тоже одномерный массив. Если тебе нужны какие-то его фрагменты, скажем байты с 199 по 299 то считать их можно через API функции

Код: Выделить всё


Const MOVEFILE_REPLACE_EXISTING = &H1
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_BEGIN = 0
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_NEW = 1
Const CREATE_ALWAYS = 2
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000

Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Private Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long


Код: Выделить всё


Dim Fhandle as long
dim ReadBytesCount as long
Dim ByteArr(100) as byte
Fhandle = CreateFile(FileName, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
SetFilePointer Fhandle , 199, 0, FILE_BEGIN
ReadFile Fhandle , ByteArr(0), 100, ReadBytesCount, ByVal 0&
CloseHandle (Fhandle)


ReadBytesCount- возвращает количество считаных байт

после этой операции массив ByteArr будет содержать 100 байт с 199 позиции в файле по 299

И работает быстрее и память всякой ерундой не забивается

Тут функции не используются, но я на всякий случай оставил.
GetLastError - возвращает номер последней ошибки
SetEndOfFile - устанавливает конец файла. Можно укорачивать и удлинять файлы. При удлинении новая область может быть забита всяким хламом. Лучше перезаписать.
GetFileSize - возвращает размер файла
SetFilePointer - Устанавливает внутренний указатель в файле
WriteFile - записывает данные в файл
Функция CreateFile возвращает указатель на поток и -1 в случае ошибки.

Зная ширину, совсем не трудно высчитать начальную позицию считываемой области.