如何使用excel vba识别文本文件是unix还是windows？

Question

我需要在Excel中处理一些可能是Unix或Windows格式的文件。我已经有了正确的代码来读取每个代码，但在调用正确的程序之前我需要提前知道文件类型。

是否有一种使用VBA识别文件类型（Unix / Windows）的简单方法？

由于

Answer 1

你可以使用这样的东西来计算：

    Private Sub CountCRLF()
       Dim TmpStr$()
       TmpStr = Split(Text1.Text, Chr(13) & Chr(10))
       MsgBox "There are " & UBound(TmpStr()) & " CRLF's in string", vbInformation, "Count"
    End Sub

如果这不止一些，它应该是一个Windows文件。如果文件混合了两种类型的换行符，则需要更复杂的方法。

但是这在性能方面让我担心，除非你确定文件非常小。你问题中的某些内容让我觉得你已经有了逐个处理这些行的功能，你应该尝试只处理这些文件一次，检测和处理...