[.NET2] LECTEUR DE FICHIER TOMTOM BINARY (.OV2)

Commentaire de alosamoelle le 17/05/2008 08:19:22

Bien mais ne fonctionne pas bien m?me avec ton exemple, la longitude de ta ligne 11 n'est pas bonne.
En comparant avec poiedit et d'autres fichiers ov2 c'est la m?me chose des longitudes ne sont pas bonnes.
Un peu complique ta m?thode pour remettre ta valeur hexa en decimal.
tu peux faire directement ceci
Function Tranformeendecimale(ByVal a)
        Dim tempo As Integer = 0
        For i As Integer = 1 To Len(a)

            Dim c As String = Mid(a, i, 1)
            If c = "A" Then c = 10
            If c = "B" Then c = 11
            If c = "C" Then c = 12
            If c = "D" Then c = 13
            If c = "E" Then c = 14
            If c = "F" Then c = 15
            tempo += c * 16 ^ (Len(a) - i)

        Next
        Tranformeendecimale = tempo

    End Function