Sådan identificeres, om en tekstfil er unix eller windows ved hjælp af excel vba?

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg skal behandle nogle filer i Excel, der kan være i Unix eller Windows-format. Jeg har allerede den rigtige kode til at læse hver enkelt, men jeg skal på forhånd kende filtypen, før du ringer til den rigtige procedure.


Er der en nem måde at identificere filtypen (Unix/Windows) ved hjælp af VBA?


Tak

Bedste reference


Du kunne bruge noget som dette til at tælle:


    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


Hvis det er mere end et par, skal det være en Windows-fil. Hvis en fil blander begge typer linjeskift, ville en mere kompleks tilgang være nødvendig.


Men det bekymrer mig med hensyn til ydeevne, medmindre du er sikker på, at filerne er meget små. Og noget i dit spørgsmål får mig til at tro, at du allerede har en funktion til at håndtere linjerne en efter en, og du bør nok prøve at kun behandle disse filer én gang, registrere og håndtere, mens du går videre ...