module2.bas

本软件为脚本导航

Attribute VB_Name = "Module2"
Option Explicit

'拆装文件的过程
'将原始代码文件按照每指定的行进行分割成新的文件。
Dim Unit As Long, FileCount As Long
Public TempFileName() As String
'
'OrigFile  原代码文件路径
'TempFile  拆装原代码文件路径
'
Dim iOrigFile As String, iTempFile As String, iLastFile As String, OrgFileName As String

Sub discCombin(OrigFile As String, TempFile As String, ByRef LastFile As String)
Unit = CLng(Form1.HdUnit.Text)
Dim FileNum As Long, FileNum2 As Long, FileNum3 As Long
Dim PCcount As Long
 
FileNum2 = FreeFile
Open TempFile For Output As #FileNum2
Close #FileNum2
FileNum3 = FreeFile
Open LastFile For Output As #FileNum3
Close #FileNum3


FileNum = FreeFile
PCcount = 0
Open OrigFile For Input As #FileNum
FileNum2 = FreeFile
Open TempFile For Output As #FileNum2
FileNum3 = FreeFile
Open LastFile For Output As #FileNum3
Do While Not EOF(FileNum)
PCcount = PCcount + 1
Line Input #FileNum, StrLine
If PCcount > Unit Then
Close #FileNum2
Print #FileNum3, StrLine
Else
Print #FileNum2, StrLine
End If
Loop
Close #FileNum3
Close #FileNum
Close #FileNum2

Kill OrigFile
Name LastFile As OrigFile
Name TempFile As TempFile & FileCount

FileCount = FileCount + 1
TempFileName(UBound(TempFileName)) = TempFile & FileCount
Form1.List1.AddItem TempFileName(UBound(TempFileName))
ReDim Preserve TempFileName(1 To UBound(TempFileName) + 1) As String
'Kill TempFile

FileNum = FreeFile
Open OrigFile For Input As #FileNum
If Not EOF(FileNum) Then
Close #FileNum
Call discCombin(OrigFile, TempFile, LastFile)
Call CopyFile(OrgFileName, OrigFile)
Else
Close #FileNum
End If
End Sub

Sub DiscFile()
FileCount = 0
iOrigFile = Form1.ORGTXT.Text
OrgFileName = iOrigFile & "org"
iTempFile = "c:\mm"
iLastFile = "c:\last"
ReDim Preserve TempFileName(1 To 1) As String
Call CopyFile(iOrigFile, OrgFileName)
Call discCombin(iOrigFile, iTempFile, iLastFile)
End Sub

Sub CopyFile(OrigFile As String, OrgFileName)
Dim FileNum As Long, FileNum2 As Long
FileNum = FreeFile
Open OrigFile For Input As #FileNum
FileNum2 = FreeFile
Open OrgFileName For Output As #FileNum2
Do While Not EOF(FileNum)
Line Input #FileNum, StrLine
Print #FileNum2, StrLine
Loop
Close #FileNum
Close #FileNum2
End Sub