Быстрое Чтение/Запись

[|kerish|]

Существует ли DLL-ка для быстрого чтения/записи файла? Быстрее чем VB-шные.
FSO не годится.

[KiloGraf]

В апи-гид'е, вот такая штука...

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

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 OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
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 SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte
    Dim sTemp As String, nSize As Long, Ret As Long
    'Ask for a new volume label
    sSave = InputBox("Please enter a new volume label for drive C:\" + vbCrLf + " (if you don't want to change it, leave the textbox blank)")
    If sSave <> "" Then
        SetVolumeLabel "C:\", sSave
    End If

    'Create a buffer
    sTemp = String(260, 0)
    'Get a temporary filename
    GetTempFileName "C:\", "KPD", 0, sTemp
    'Remove all the unnecessary chr$(0)'s
    sTemp = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1)
    'Set the file attributes
    SetFileAttributes sTemp, FILE_ATTRIBUTE_TEMPORARY
    'Open the files
    hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
    hOrgFile = CreateFile("c:\config.sys", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

    'Get the file size
    nSize = GetFileSize(hOrgFile, 0)
    'Set the file pointer
    SetFilePointer hOrgFile, Int(nSize / 2), 0, FILE_BEGIN
    'Create an array of bytes
    ReDim bBytes(1 To nSize - Int(nSize / 2)) As Byte
    'Read from the file
    ReadFile hOrgFile, bBytes(1), UBound(bBytes), Ret, ByVal 0&
    'Check for errors
    If Ret <> UBound(bBytes) Then MsgBox "Error reading file ..."

    'Write to the file
    WriteFile hNewFile, bBytes(1), UBound(bBytes), Ret, ByVal 0&
    'Check for errors
    If Ret <> UBound(bBytes) Then MsgBox "Error writing file ..."

    'Close the files
    CloseHandle hOrgFile
    CloseHandle hNewFile

    'Move the file
    MoveFileEx sTemp, "C:\KPDTEST.TST", MOVEFILE_REPLACE_EXISTING
    'Delete the file
    DeleteFile "C:\KPDTEST.TST"
    Unload Me
End Sub


.

[Amed]

А как сейчас читаешь файл? В цикле Get/Put?

[KiloGraf]

Вот, вот...

А как сейчас читаешь файл? В цикле Get/Put?

Если с фалом работать напрямую (Get/Put), и без всяких циклов, то мне кажется, АПИшки не понадобятся...
Но к великому сожалению, не всегда такой способ пременим.

.

[Ennor]

Существует ли DLL-ка для быстрого чтения/записи файла? Быстрее чем VB-шные.
FSO не годится.

А ты, случаем, в ограничение своего железа не уперся? У меня, например, все летает...

[Amed]

Да нет, я немного не про это

Нужно не в цикле делать Get/Put, а читать сразу в Byte массив, тогда очень быстро получается...

[KiloGraf]

Amed
Ну естественно, если файл один, и можно за один заход его в массив закинуть...
А, если файлов - тысячи, то их собрать в массив, уже время понадобиться.

.

[Amed]

Ну, думаю, мы про один файл говорим сейчас.

А множество файлов, естественно, собирать дольше

[|kerish|]

На практике будет один файл размером 10-15 Мб.
Структура очень похожая на INI.
Нужно быстро его обрабатывать.
Писать, считывать.
Быстро в смысле не моментально, но и не час
Вопрос номер два:
Как по-быстрее найти нужную строчку в этом файле.
Например мне нужна строка "[BlaBlaBla]".
Прокручивать по циклу весь файл - строчка за строчкой и сравнивать строчку с нужным вариантом?

[GSerg]

Ыменно так.
Только файл сначала полностью в оперативку

[KiloGraf]

Два способа считать файл...

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

'Вариант 1
  Dim strText As String
  Dim ff As Integer
  ff = FreeFile
  Open "File.ext" For Binary As #ff
    strText = Space(LOF(ff))
    Get #ff, , strText
  Close #ff
 
  'Вариант 2
  Dim bytData() As Byte
  Dim ff As Integer
  ff = FreeFile
  Open "File.ext" For Binary As #ff
    ReDim bytData(LOF(ff) - 1)
    Get #ff, , bytData
  Close #ff


...и потом работать с массивом, в нем быстро можно найти искомое [BlaBlaBla] и вычислить его нахождение в файле (позицию относительно нуля).

[|kerish|]

А писАть как?

[Amed]

Да, согласен. Идея понятна?

Сначала делаем BigArray() As Byte

Потом Redim BigArray(GetFileLength) 'см. API-Guide
Потом Open filename for binary as #1
Get #1, , BigArray

Потом уже поиск по BigArray...

Не уверен в точном синтаксисе, - пишу на память

[Amed]

Писать так же почти - Put #1, ,BigArray...

[GSerg]

Не, лучше Вариант 3...

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

strtext=input$(lof(1), #1)

Писать -

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

? #1,strtext;

[|kerish|]

Всем спасибо.

[Andrey Fedorov]

Кстати, я бы так делать не рекомендовал:

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

Open "File.ext" For Binary As #ff
strText = Space(LOF(ff))
Get #ff, , strText
Close #ff

А именно - не стоит делать буфер размером в десятки мегабайт (то бишь по размеру файла). Читайте кусочками, килобайт по 16..32 и будет вам счастье, а иначе огребете дикие тормоза...

[Amed]

Да, согласен. Это наибыстрейший вариант ))

GSerg, как всегда, наиумнейший из людей