如何使用excel vba识别一个文本文件是unix还是windows?

rqqzpn5f  于 2022-11-04  发布在  Unix
关注(0)|答案(1)|浏览(180)

我需要在Excel中处理一些Unix或Windows格式的文件。我已经有正确的代码来读取每个文件,但在调用正确的过程之前,我需要提前知道文件类型。
是否有一种使用VBA识别文件类型(Unix / Windows)的简单方法?
谢谢

bxjv4tth

bxjv4tth1#

你可以用这样的方式来计算:

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文件。如果一个文件混合了两种类型的换行符,则需要更复杂的方法。
但这让我担心性能问题,除非你确定文件真的很小。你的问题让我觉得你已经有了一个函数来处理一行一行的,你应该试着只处理这些文件一次,一边检测一边处理......

相关问题