[VB6] Format du fichier

Hello tout le monde ^_^

J'ai fait un petit prog qui permet d'ouvrir, lister et éditer des fichiers au format texte. Le petit souci est que je dois traiter aussi bien des fichiers au format UNIX qu'au format DOS/WINDOWS et que le retour à la ligne n'est pas codé sur le même octet ! (10 sous UNIX et 13 sous WINDOWS) :ouin:
A vrai dire ça me pose quelques problèmes pour découper correctement les textes.

A l'ouverture d'un fichier, j'aimerai savoir comment faire pour connaitre son format et ensuite faire quelque chose du style :

Code:

---

1 2 3 4 5 6 7 8

If FormatFichier = "UNIX" then RetourLigne = Chr(10) else RetourLigne = Chr(13) end if   'Puis traitement des données

---

Merki de votre aide ^_^

J'aurai dû réfléchir plus longtemps avant de poster ici :mouarf:

Voici la solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

FormatFichier = "UNIX" Open MonFichier For Input as #1 Line Input #1, MonTexte If InStr (1, MonTexte, Chr(10), 0) = 0 then FormatFichier = "WINDOWS" End If Close #1   If FormatFichier = "UNIX" then RetourLigne = Chr(13) else RetourLigne = Chr(10) End If

---