转载Sandrer vb 文件分块读写

最新推荐文章于 2016-07-13 17:10:31 发布

置顶 adm1n1

最新推荐文章于 2016-07-13 17:10:31 发布

阅读量560

点赞数

文章标签： vb listview file api header

本文分享了通过API进行文件读写的代码实例，展示了如何利用API实现文件读写的效率提升，包括文件路径设置、文件检测、句柄创建、文件长度获取、数据验证等关键步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

' 我自己试过,API比Open也就快大概30%~50%左右
' 下面是我用API读写文件的代码,你参考一下
' tmpWc是一个自定义类型

            ' 设置列标头结构文件路径
            gstrHeaderFile = App.Path & DIR_SPLIT & LISTVIEW_HEADER_FILE
            ' 检测列标头结构文件是否存在
            If Len (Dir(gstrHeaderFile)) = FILE_NOT_EXIST Then
                gsteStartupError = ERROR_CFGMISSING
                GoTo ExitDialog
            End If

            ' 打开文件，获得文件句柄
            hFile = CreateFile(gstrHeaderFile, GENERIC_READ, FILE_SHARE_READ, ByVal 0 & , OPEN_EXISTING, 0 , 0 )
            ' 根据句柄获得文件长度
            fSize = GetFileSize(hFile, ByVal 0 & )
            ' 根据文件长度，判断文件大小是否符合
            If (fSize Mod Len (tmpWc)) <> 0 Then
                Call CloseHandle(hFile)
                gsteStartupError = ERROR_CFGBROKEN
                GoTo ExitDialog
            End If
            ' 根据文件长度，设置列表数量
            nCount = fSize / Len (tmpWc)
            ' 重新定义列表数量
            ReDim gWC( 0 To nCount - 1 ) As WNDCONFIG
            For i = 0 To nCount - 1
                ' 设置文件读取起点位置
                SetFilePointer hFile, i * Len (gWC(i)), ByVal 0 & , FILE_BEGIN
                ' 读取内容，并将该内容赋值到变量中
                ReadFile hFile, gWC(i), Len (gWC(i)), Rtn, ByVal 0 &
                ' 根据调用API函数所返回的真正读取文件内容字节数与实际变量大小对比，以判断读取文件是否出错
                If Rtn <> Len (gWC(i)) Then
                    Call CloseHandle(hFile)
                    gsteStartupError = ERROR_CFGFAILED
                    GoTo ExitDialog
                End If
            Next i
            ' 关闭打开的文件句柄
            CloseHandle hFile