VB中的打开文件操作？急急急

2005-09-29 05:52:22 1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【JS继承】JS继承之构造函数继承一、构造函数js中定义一个function，当使用new关键字调用这个function的时候，这个function成为一个构造函数。如下所示：二、new关键字当使用new关键字调用构造函数生成一个对象实例时，js做出的关键处理如下： 1.创建一个新的对象，将构造函数内this指针指向新建对象。 2.将新建对象的__proto__属性设置成构造函数的prototype属性，确保新建对象是构造函数实例。 3.运行一遍构造函数，如果构造函数本身需要返回一个object或者array对象，则舍去新创建对象阅读详情

VB中的打开文件操作OPEN好象只能打开比较小的文件，如果我要打开大文件并进行分割的话该怎么操作，请高手们指点指点，谢谢了。

...全文

【C++】继承构造函数【代码】【C++】继承构造函数。阅读详情

hwjcsdn

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

舍南舍北 2005-10-06

打赏
举报

Private Sub cmdSplitFile_Click()
Dim sFile As String
With CommonDialog1
.DialogTitle = "打開文件"
.Filter = "TXT文件(.txt)|*.txt|所有文件(*.*)|*.*"
.ShowOpen
.CancelError = False
End With
If Trim(CommonDialog1.FileName) = "" Then
MsgBox "請選擇文件", vbInformation
Exit Sub
End If
sFile = ReadFile(CommonDialog1.FileName)

end sub

模塊
Option Explicit

Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA _
) As Long
Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long _
) As Long
Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, _
lpSystemTime As SYSTEMTIME _
) As Long
'
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
'
Type FILETIME
LowDateTime As Long
HighDateTime As Long
End Type
Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260 'MUST be set to 260
cAlternate As String * 14
End Type
Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
'
Public Function Findfile(ByVal xstrfilename As String) As WIN32_FIND_DATA
On Error GoTo ErrorHandler

Dim Win32Data As WIN32_FIND_DATA
Dim plngFirstFileHwnd As Long
Dim plngRtn As Long

plngFirstFileHwnd = FindFirstFile(xstrfilename, Win32Data) ' Get information of file using API call
If plngFirstFileHwnd = 0 Then
Findfile.cFileName = "Error" ' If file was not found, return error as name
Else
Findfile = Win32Data ' Else return results
End If
plngRtn = FindClose(plngFirstFileHwnd) ' It is important that you close the handle for FindFirstFile

Exit Function 'Sub
ErrorHandler: ' 'On Error GoTo ErrorHandler
Dim funName
funName = "Findfile"

' Call WriteRunErrInfo(funName, Err.Number, Err.Description)
End Function

Public Function ReadFile(ByVal FileAllPath As String) As String
' Dim i As Long

'FileAllPath = "d:\sb$\test.txt"

'get file size
Dim filedata As WIN32_FIND_DATA
Dim nFileSize As Long

filedata = Findfile(FileAllPath) ' Get file information
If filedata.nFileSizeHigh = 0 Then '
nFileSize = filedata.nFileSizeLow '& " Bytes"
Else
nFileSize = filedata.nFileSizeHigh '& "Bytes"
End If

If nFileSize <= 0 Then '(error 61)

Exit Function
End If

'read file:
Dim bytBuffer() As Byte
ReDim bytBuffer(nFileSize - 1)

Dim nFileNum As Integer
nFileNum = FreeFile
Open FileAllPath For Binary As #nFileNum
Get #nFileNum, , bytBuffer()
Close #nFileNum

Dim sTeleText As String
sTeleText = StrConv(bytBuffer(), vbUnicode)

ReadFile = sTeleText

End Function

zlt982001 2005-09-30

打赏
举报

利用自建的文件缓冲区来提高文件读写速度，下面是与VB 自带的Put Get 进行比较

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
测试代码 :Form1
Option Explicit

Private cfb1 As CFileBuff
Private cfb2 As CFileBuff
Private fh1 As Long
Private fh2 As Long

Private Sub Command1_Click()
Dim fn1 As String
Dim fn2 As String
Dim fn3 As String
Dim ch As Byte
Dim i As Long
Dim st1 As Single, et1 As Single
Dim st2 As Single, et2 As Single

fn1 = App.Path & "\D.DAT"
fn2 = App.Path & "\D.BAK"
fn3 = App.Path & "\D.BAK2"

st1 = Timer
Set cfb1 = New CFileBuff
Set cfb2 = New CFileBuff

If cfb1.Create(fn1) = True Then
cfb2.Create (fn2)
Do

If cfb1.GetByte(ch) = 1 Then

cfb2.PutByte ch
Else
Exit Do
End If
Loop While cfb1.FEof = False

Else
Debug.Print "Error Open File!"
End If
Set cfb1 = Nothing
Set cfb2 = Nothing
et1 = Timer
' MsgBox CStr(et1 - st1)

st2 = Timer
fh1 = FreeFile(0)
Open fn1 For Binary As fh1

fh2 = FreeFile(0)
Open fn3 For Binary As fh2
Do
Get fh1, , ch
Put fh2, , ch
Loop While EOF(fh1) = False
Close fh1
Close fh2
et2 = Timer
MsgBox CStr(et1 - st1) & " " & CStr(et2 - st2)
Debug.Print "Success!"
End Sub

zlt982001 2005-09-30

打赏
举报

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
类代码 : CFileBuff
Option Explicit

'文件缓冲类，利用块读写来提高文件的读写速度

Private Const GENERIC_WRITE = &H40000000
Private Const GENERIC_READ = &H80000000
Const FILE_ATTRIBUTE_NORMAL = &H80
Const CREATE_ALWAYS = 2
Const OPEN_ALWAYS = 4
Const INVALID_HANDLE_VALUE = -1
Const ERROR_HANDLE_EOF = 38

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _
lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) _
As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) 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 _
Long) 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 Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile _
As Long) As Long

Private Declare Function SetFilePointer Lib "kernel32" ( _
ByVal hFile As Long, ByVal loWord As Long, ByVal hiWord As Long, ByVal MoveMethod As Long) As Long

Public Enum enumFileSeek
FS_BEGIN
FS_CURRENT
FS_END
End Enum

Private Const MAX_FILE_BUFF As Long = 512 '定义最大的缓冲区，正好一个扇区
Private Const EOF_CHAR As Byte = 0

Private m_fb(MAX_FILE_BUFF - 1) As Byte
Private m_NeedCloseFile As Boolean '是否需要

Private m_Handle As Long
Private m_OffSet As Long
Private m_DirtyFlag As Boolean
Private m_LastBuff As Boolean
Private m_MaxBytes As Long
Private m_FileName As String
'按标志创建文件
Public Function Create(FileName As String) As Boolean
m_Handle = CreateFile(FileName, GENERIC_WRITE Or GENERIC_READ, 0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
If m_Handle <> INVALID_HANDLE_VALUE Then '看是否正确创建了文件
m_FileName = FileName
ReadFileToBuff
Create = True
Else
Create = False
End If
End Function
'关闭文件
Public Sub CloseFile()
WriteBuffToFile
CloseHandle m_Handle
End Sub
'移动文件指针，不支持超过2 ^ 31 的位移
Public Function FSeek(Pos As Long, FS As enumFileSeek) As Boolean
Dim iPos As Long

If m_DirtyFlag = True Then WriteBuffToFile
Select Case FS
Case FS_BEGIN

If Pos < 0 Then FSeek = False

If SetFilePointer(m_Handle, Pos, 0, 0) = &HFFFFFFFF Then
FSeek = False
Else
If ReadFileToBuff = -1 Then
FSeek = False
Else
FSeek = True
End If
End If

Case FS_END
If Pos > 0 Then FSeek = False

If SetFilePointer(m_Handle, Pos, 0, 2) = &HFFFFFFFF Then
FSeek = False
Else
If ReadFileToBuff = -1 Then
FSeek = False
Else
FSeek = True
End If
End If

Case FS_CURRENT
iPos = Pos - (m_MaxBytes - m_OffSet) '计算实际的偏移位置

If SetFilePointer(m_Handle, iPos, 0, 1) = &HFFFFFFFF Then
FSeek = False
Else
If ReadFileToBuff = -1 Then
FSeek = False
Else
FSeek = True
End If
End If

End Select
End Function
'取一个字节
'返回 1 表示正确取到字符
'返回 0 表示已到文件尾，并且ch= EOF_CHAR
'返回 -1 表示取字符错误。
Public Function GetByte(ByRef ch As Byte) As Long
Dim fl As Long
If m_LastBuff = False Then
If m_OffSet = MAX_FILE_BUFF Then
fl = ReadFileToBuff
Select Case fl
Case 0
GetByte = 0
Case -1
GetByte = -1
Case Else
ch = m_fb(0)
m_OffSet = 1
GetByte = 1
End Select
Else
ch = m_fb(m_OffSet)
m_OffSet = m_OffSet + 1
GetByte = 1
End If
Else
If m_OffSet < m_MaxBytes Then
ch = m_fb(m_OffSet)
m_OffSet = m_OffSet + 1
GetByte = 1
Else
ch = EOF_CHAR
GetByte = 0
End If
End If

End Function
'写一个字节,如果正确表示1，错误为-1
Public Function PutByte(by As Byte) As Long
If m_OffSet < MAX_FILE_BUFF Then

m_fb(m_OffSet) = by
m_OffSet = m_OffSet + 1
m_DirtyFlag = True

Else '已写满一个缓冲区

WriteBuffToFile
m_fb(0) = by
m_OffSet = 1
m_DirtyFlag = True

End If
End Function
'看当前指针是否到达文件最尾端
Public Function FEof() As Boolean
If m_LastBuff = False Then
FEof = False
Else
If m_OffSet = m_MaxBytes Then
FEof = True
Else
FEof = False
End If
End If
End Function
'///////////////////////////////////////////////////////////////////////////////////////
'预读字节到缓冲区,并返回实际读到的字节,如果返回-1，则表示出错了。
Private Function ReadFileToBuff() As Long
Dim dwReadNum As Long

If ReadFile(m_Handle, m_fb(0), MAX_FILE_BUFF, dwReadNum, 0) = 0 Then
ReadFileToBuff = -1
Else
If dwReadNum <> MAX_FILE_BUFF Then
'最后一个缓冲区

m_LastBuff = True
m_MaxBytes = dwReadNum
m_OffSet = 0
m_DirtyFlag = False

ReadFileToBuff = dwReadNum

Else

m_LastBuff = False
m_MaxBytes = MAX_FILE_BUFF
m_OffSet = 0
m_DirtyFlag = False

ReadFileToBuff = MAX_FILE_BUFF
End If

End If
End Function
'写缓冲区到文件，并返回实际写的字节数
Private Function WriteBuffToFile() As Long
Dim dwWriteNum As Long

If m_OffSet = 0 Or m_DirtyFlag = False Then '如果写入数为0或者写入标志错则不写入
WriteBuffToFile = 0
Else
If WriteFile(m_Handle, m_fb(0), m_OffSet, dwWriteNum, 0) Then
WriteBuffToFile = dwWriteNum
Else
WriteBuffToFile = -1 '出错
End If
End If

m_OffSet = 0
m_DirtyFlag = False

End Function

Private Sub Class_Initialize()
Dim i As Long

m_OffSet = 0
m_Handle = 0
m_DirtyFlag = False
m_FileName = ""
m_LastBuff = False
m_MaxBytes = MAX_FILE_BUFF

End Sub

Private Sub Class_Terminate()
CloseFile
End Sub

northwolves 2005-09-30

打赏
举报

二进制方式读入数组速度还是可以的

olonely 2005-09-30

打赏
举报

dim fn as long
fn=freefile
dim strFile as str
dim binFile() as byte
open filename for binary as #fn
get #fn,,binFile
close #fn
strFile=cstr(binfile)

sqfeiyu 2005-09-30

打赏
举报

看的頭都大了﹐還是不知寫了些啥

conrad_wan 2005-09-30

打赏
举报

study...

weiweiplay 2005-09-30

打赏
举报

Public Function SplitFile1(SplitFileName As String, BeginningNumber As Long, ReturnErrorDes As String, Split As Long, oName As String) As Boolean

'¶¨Òå¹«ÓÐ¹ý³Ì,ÓÃÀ´·Ö¸îÎÄ¼þ,º¯Êý·µ»ØÒ»Âß¼Öµ¡£true´ú±í³É¹¦£¬false´ú±íÊ§°Ü£¬ËÄ¸ö²ÎÊýÒÀ´ÎÊÇ£¬±»·Ö¸îÎÄ¼þÃû£¬¿ªÊ¼±àºÅ£¬·Ö¸îºóÎÄ¼þ´óÐ¡£¬·Ö¸îºóÎÄ¼þÃû³Æ

Dim SaveName As String '·Ö¸îºóÎÄ¼þÃû

Dim fnum As Integer, fnum1 As Integer 'ÎÄ¼þÍ¨µÀ±äÁ¿

Dim Bytes() As Byte
Dim Bytes1() As Byte

SplitFile1 = True 'Èç¹ûÏÂÃæÃ»ÓÐ´íÎó£¬·µ»ØÕæÖµ

On Error GoTo CleanUp

Dim CurrentFile As SectionedFile, m_lngNumFil As Long, m_LngLoop As Long, FilesLen As Long

FilesLen = FileLen(SplitFileName) 'µÃµ½±»·Ö¸îÎÄ¼þ´óÐ¡

ReDim Bytes(FilesLen - 1)

If FilesLen <= Split + 1 Then

SplitFile1 = False

ReturnErrorDes = "±»·Ö¸îÎÄ¼þ´óÐ¡Ð¡ÓÚ·Ö¸îºóÎÄ¼þ´óÐ¡,ÇëÖØÐÂÉèÖÃ!"

Exit Function

End If

fnum = FreeFile

Open SplitFileName For Binary As fnum
Get #fnum, , Bytes

Close #fnum

If CInt(FilesLen / Split) >= FilesLen / Split Or CInt(FilesLen / Split) = FilesLen / Split Then
m_lngNumFil = CInt(FilesLen / Split)
Else
m_lngNumFil = CInt(FilesLen / Split) + 1
End If

For m_LngLoop = 1 To m_lngNumFil
If m_LngLoop < m_lngNumFil Then
ReDim Bytes1(Split - 1)
CopyMemory Bytes1(0), Bytes((m_LngLoop - 1) * Split), Split
Else
ReDim Bytes1(FilesLen - ((m_lngNumFil - 1) * Split) - 1)
CopyMemory Bytes1(0), Bytes((m_LngLoop - 1) * Split), FilesLen - ((m_lngNumFil - 1) * Split)
End If

SaveName = oName & "." & Format(BeginningNumber - 1 + m_LngLoop, "00#")

fnum1 = FreeFile

Open SaveName For Binary As fnum1

Put #fnum1, 1, Bytes1

DoEvents

Close #fnum1

Form1.Command6.Caption = FormatPercent(m_LngLoop / m_lngNumFil)

Form1.Command5.Caption = SaveName
Next
Exit Function
CleanUp:

ReturnErrorDes = Err.Description

SplitFile1 = False '·µ»ØÖµÎªfalse
End Function

weiweiplay 2005-09-30

打赏
举报

Public Function SplitFile(SplitFileName As String, BeginningNumber As Long, ReturnErrorDes As String, Split As Long, oName As String) As Boolean

'¶¨Òå¹«ÓÐ¹ý³Ì,ÓÃÀ´·Ö¸îÎÄ¼þ,º¯Êý·µ»ØÒ»Âß¼Öµ¡£true´ú±í³É¹¦£¬false´ú±íÊ§°Ü£¬ËÄ¸ö²ÎÊýÒÀ´ÎÊÇ£¬±»·Ö¸îÎÄ¼þÃû£¬¿ªÊ¼±àºÅ£¬·Ö¸îºóÎÄ¼þ´óÐ¡£¬·Ö¸îºóÎÄ¼þÃû³Æ

Dim SaveName As String '·Ö¸îºóÎÄ¼þÃû

Dim fnum As Integer, fnum1 As Integer 'ÎÄ¼þÍ¨µÀ±äÁ¿

SplitFile = True 'Èç¹ûÏÂÃæÃ»ÓÐ´íÎó£¬·µ»ØÕæÖµ

On Error GoTo CleanUp

Dim CurrentFile As SectionedFile, m_lngNumFil As Long, m_LngLoop As Long, FilesLen As Long

FilesLen = FileLen(SplitFileName) 'µÃµ½±»·Ö¸îÎÄ¼þ´óÐ¡

If FilesLen <= Split + 1 Then

SplitFile = False

ReturnErrorDes = "±»·Ö¸îÎÄ¼þ´óÐ¡Ð¡ÓÚ·Ö¸îºóÎÄ¼þ´óÐ¡,ÇëÖØÐÂÉèÖÃ!"

Exit Function

End If 'Èç¹û±»·Ö¸îÎÄ¼þÐ¡ÓÚ·Ö¸îºóÎÄ¼þ£¬ÍË³ö¹ý³Ì
fnum = FreeFile '·µ»ØµÚÒ»¸ö¿ÕÏÐÍ¨µÀÓÃÀ´¶ÁÈ¡

Open SplitFileName For Binary As fnum 'ÓÃ¶þ½øÖÆ·½Ê½´ò¿ª±»·Ö¸îÎÄ¼þ

If CInt(FilesLen / Split) >= FilesLen / Split Or CInt(FilesLen / Split) = FilesLen / Split Then

m_lngNumFil = CInt(FilesLen / Split)

Else

m_lngNumFil = CInt(FilesLen / Split) + 1

End If '¾«È·¼ÆËãÎÄ¼þ½«±»·Ö¸îµÄ¸öÊý

ReDim CurrentFile.Files(1) '·ÖÅäÒ»¸öÄÚ´æ¸¨ÖúÊý×é

For m_LngLoop = 1 To m_lngNumFil

'Õâ¸öÑ»·ÓÃÀ´½«ÎÄ¼þ·Ö¸î£¬²¢ÇÒÉú³É·Ö¸îºóµÄÎÄ¼þ

If m_LngLoop < m_lngNumFil Then 'Èç¹û²»ÊÇ×îºóÒ»´ÎÑ»·

ReDim CurrentFile.Files(1).Bytes(0 To Split - 1)

' ÖØÐÂ·ÖÅä´óÐ¡µÈÓÚ·Ö¸î³ß´çµÄÄÚ´æÊý×é

Get #fnum, , CurrentFile.Files(1).Bytes

'¶ÁÈ¡µÈÓÚ·Ö¸î´óÐ¡µÄ¶þ½øÖÆÊý¾Ýµ½ÄÚ´æÊý×é

Else 'Èç¹ûÊÇ×îºóÒ»´ÎÑ»·

ReDim CurrentFile.Files(1).Bytes(0 To FilesLen - ((m_lngNumFil - 1) * Split) - 1)

'ÖØÐÂ·ÖÅä´óÐ¡µÈÓÚÒÅÁô³¤¶ÈµÄÄÚ´æÊý×é

Get #fnum, , CurrentFile.Files(1).Bytes

Close #fnum '¹Ø±Õ¶ÁÈ¡ÎÄ¼þÍ¨µÀ

End If

SaveName = oName & "." & Format(BeginningNumber - 1 + m_LngLoop, "00#") '¼ÆËã·Ö¸îºóµÄÎÄ¼þÃû£¬À©Õ¹ÃûÎª00£¿

fnum1 = FreeFile 'µÃµ½µÚ¶þ¸ö¿ÕÏÐÍ¨µÀÓÃÀ´Ð´Èë

Open SaveName For Binary As fnum1

Put #fnum1, 1, CurrentFile.Files(1)

DoEvents

Close #fnum1 'ÓÃ¶þ½øÖÆ·½Ê½Ð´Èë·Ö¸îºóµÄÎÄ¼þ

Form1.Command6.Caption = FormatPercent(m_LngLoop / m_lngNumFil) 'ÏÔÊ¾¼òµ¥µÄ½ø¶ÈÖ¸Ê¾

Form1.Command5.Caption = SaveName 'ÏÔÊ¾ÕýÔÚ²Ù×÷µÄÎÄ¼þÃû

Next

Dim FileInfoFile As FileInfo '¶¨Òå»¹ÔÐÅÏ¢ÎÄ¼þÄÚÈÝ

FileInfoFile.FileCount = m_lngNumFil '·Ö¸îºóÎÄ¼þ¸öÊý

FileInfoFile.OrigFileName = oName 'Êä³öÎÄ¼þÃû

FileInfoFile.OrigProjSize = FileLen(SplitFileName) '±»·Ö¸îÎÄ¼þ´óÐ¡

FileInfoFile.FileStartNum = BeginningNumber '·Ö¸îºóÎÄ¼þÆðÊ¼±àºÅ

SaveName = oName & ".HJ" '»¹ÔÐÅÏ¢ÎÄ¼þÃû

fnum = FreeFile

Open SaveName For Binary As #fnum

Put #fnum, , FileInfoFile

Close #fnum 'Ð´Èë»¹ÔÐÅÏ¢ÎÄ¼þ

Exit Function

CleanUp: 'Èç¹û³öÏÖ´íÎó

ReturnErrorDes = Err.Description

SplitFile = False '·µ»ØÖµÎªfalse
End Function

weiweiplay 2005-09-30

打赏
举报

Option Explicit

Type FileSection
Bytes() As Byte
End Type '¶¨ÒåÊµ¼ÊÄÚ´æÊý×é

Type SectionedFile
Files() As FileSection
End Type '¶¨Òå¸¨ÖúÄÚ´æÊý×é£¬ÒÔ±¸À©Õ¹Ê¹ÓÃ

Type FileInfo
OrigProjSize As Long 'ÎÄ¼þ´óÐ¡
OrigFileName As String
FileCount As Integer
FileStartNum As Long
End Type '¶¨Òå»¹ÔÐÅÏ¢ÎÄ¼þ½á¹¹²ÎÊý

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (DestInatIon As Any, Source As Any, ByVal LENGTH As Long)

Public Function ReassembleFile(TemplateFileName As String, OutPutName As String, Optional UseOldFilename As Boolean = True) As Boolean
On Error GoTo e

Form1.MousePointer = 11

Dim FileInfo As FileInfo, outname As String, File As SectionedFile, m_LngLoop As Long, OpenName

Dim fnum As Integer, fnum1 As Integer

ReassembleFile = True

fnum = FreeFile

Open TemplateFileName For Binary As #fnum

Get #fnum, , FileInfo

Close #fnum '¶ÁÈ¡»¹ÔÐÅÏ¢ÎÄ¼þµÄÓÐ¹ØÄÚÈÝ

If UseOldFilename Then

outname = FileInfo.OrigFileName

Else

outname = OutPutName

End If 'ÊÇ·ñ×Ô¼ºÖ¸¶¨»¹ÔºóÎÄ¼þÃû

ReDim File.Files(1)

fnum1 = FreeFile

Open outname For Binary As #fnum1

For m_LngLoop = 1 To FileInfo.FileCount

'Í¨¹ý»¹ÔÐÅÏ¢ÖÐ¼ÇÔØµÄÎÄ¼þ¸öÊýÈ·¶¨¶ÁÈ¡´ÎÊý
OpenName = FileInfo.OrigFileName & "." & Format((FileInfo.FileStartNum - 1 + m_LngLoop), "00££")

'µÃµ½·Ö¸îºóÉú³ÉµÄÎÄ¼þÃû³Æ¡¢Â·¾¶

fnum = FreeFile

Open OpenName For Binary As #fnum

Get #fnum, 1, File.Files(1)

Close #fnum '¶ÁÈ¡

Put #fnum1, , File.Files(1).Bytes 'Ð´Èë

Form1.Command6.Caption = FormatPercent(m_LngLoop / FileInfo.FileCount)

Form1.Command5.Caption = OpenName

Next

Close #fnum1

Form1.MousePointer = 0

Exit Function

e:

MsgBox "ÎÄ¼þ²Ù×÷²úÉúÁË´íÎó:" & Err.Description, vbExclamation

ReassembleFile = False

Form1.MousePointer = 0

End Function

zlt982001 2005-09-29

打赏
举报

分割？？分割什么？
如果是文本文件建议使用 FileSystemObject
操作方便且速度快于 Open

如果是 2进制文件则使用 Open,如果考虑效率也可以使用
api readfile 并建议文件缓冲区来读取，速度比VB的Open 快很多

hwjcsdn 2005-09-29

打赏
举报

假使我要打开200KB的文件，请问我的OPEN语句该怎么组织呢？

faysky2 2005-09-29

打赏
举报

赞同 jjkk168(老加班的人--好好学习,天天吃饭)

还想懒够 2005-09-29

打赏
举报

Open语句也可以打开大一点的文件,只是看你的语句怎么组织了

前不久讨论过一个StringBuilder类,就是大文本引发速度慢的问题,估计楼主的速度原因主要出自于这里,你可以读出一行后写入数组而不是与以前的字符串相连接,这样可以加快一点速度.

VB中的打开文件操作？急急急

相关推荐