用什么语句来调用函数?
C盘下有一个N.txt文件,UNIX格式,想要转换成DOS格式。在网上找到一个转换函数,不知道怎么调用,语句格式是什么样的,求教。最好能做一个Form传上来供学习。谢谢!
函数如下:
程序代码:
'模块功能: 转换 Unix 和 DOS 文本格式 Public Enum UnixDosConvertType Dos2Unix = 0 Unix2Dos = 1 End Enum Public Function ConvertUnixOrDosFile(ByVal SourceFile As String, ByVal TargetFile As String, ByVal ConvertType As UnixDosConvertType, Optional DeleteSourceFile As Boolean = False) As Boolean On Error GoTo Z Dim OpenFileNum As Integer Dim SaveFileNum As Integer Dim FileBuffer As String OpenFileNum = FreeFile If OpenFileNum > 0 Then Open SourceFile For Input As #OpenFileNum 'For Input SaveFileNum = FreeFile If SaveFileNum > 0 Then Open TargetFile For Binary As #SaveFileNum 'For Binary Do While Not EOF(OpenFileNum) Line Input #OpenFileNum, FileBuffer '若为 Unix 格式,则整个文件会被一次性读取 If ConvertType = Dos2Unix Then If InStr(FileBuffer, Chr(10)) = 0 Then '考虑到源文件可能是 Unix 格式 FileBuffer = FileBuffer & Chr(10) End If ElseIf ConvertType = Unix2Dos Then If InStr(FileBuffer, Chr(10)) > 0 Then FileBuffer = Replace(FileBuffer, Chr(10), vbCrLf) ElseIf InStr(FileBuffer, vbCrLf) = 0 Then '考虑到源文件可能是 DOS 格式 FileBuffer = FileBuffer & vbCrLf End If End If Put #SaveFileNum, , FileBuffer Loop Close #SaveFileNum End If Close #OpenFileNum If DeleteSourceFile = True Then Kill SourceFile ConvertUnixOrDosFile = True End If Exit Function Z: If SaveFileNum > 0 Then Close #SaveFileNum If OpenFileNum > 0 Then Close #OpenFileNum ConvertUnixOrDosFile = False Exit Function End Function
由于我不会调用上面的函数,故此不知道这个函数转换的速度如何,以及是否能转换这个解压缩后五十几兆的UNIX格式的TXT文件,
我需要速度较快并且能转换较大的TXT文件的转换方式,如果上面这个函数速度较慢或不能转换这个解压缩后五十几兆的UNIX格式的TXT文件,求教各位版主或路过的各位帮助!
N.rar
(163.89 KB)