unix文本文件转windows文本文件[没分了。在线求助]
hebhd 2006-07-07 03:14:36 Public Function Convert_ToCrLf(FILENAME As String)
'将使用0d0a重构文本文件即回车换行
Dim src As String
Open FILENAME For Input As #1
' Input #1, src
src = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
src = Replace(src, vbCrLf, vbLf)
src = Replace(src, vbCr, vbLf)
src = Replace(src, vbLf, vbCrLf)
Open FILENAME For Binary As #1
Put #1, , src
' Open FILENAME For Output As #1
' Print #1, src
Close #1
End Function
Public Function Convert_ToLf(FILENAME As String)
'将使用0a重构文本文件即换行
Dim src As String
Open FILENAME For Input As #1
' Input #1, src
src = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
src = Replace(src, vbCrLf, vbLf)
src = Replace(src, vbCr, vbLf)
Open FILENAME For Binary As #1
Put #1, , src
' Open FILENAME For Output As #1
' Print #1, src
Close #1
End Function
是不是文件大小有限制.
输出的时候总是不能按自已想的输出
总使得一个文件里又有0d0a 又有0a
郁闷...