Comment identifier si un file text est unix ou Windows utilisant excel vba?

J'ai besoin de traiter certains files dans Excel qui peuvent être au format Unix ou Windows. J'ai déjà le bon code pour lire chacun, mais je dois savoir d'avance le type de file avant d'appeler la procédure correcte.

Existe-t-il un moyen simple d'identifier le type de file (Unix / Windows) à l'aide de VBA?

Merci

Vous pouvez utiliser quelque chose comme ça pour countr:

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

Si c'est plus que quelques-uns, il devrait s'agir d'un file Windows. Si un file mélange les deux types de sauts de ligne, une approche plus complexe serait nécessaire.

Mais cela m'inquiète en termes de performances, sauf si vous êtes sûr que les files sont vraiment modestes. Et quelque chose dans votre question me fait penser que vous avez déjà une fonction pour traiter les lignes un par un et vous devriez probablement essayer de traiter ces files une seule fois, de détecter et de gérer au fur et à mesure …