[RESOLVED] Reading .ov2 (TomTom files)

[Radjesh Klauke]

Hi,

I've found an .ov2 parser, but it has been abandoned by the developer a few years ago. Can't find him unfortunately. Tried to convert it to VB.NET without any luck. Perhaps there's a way without the dll, but....

I can't get it to work and was wondering if someone here knows.

ReadOV2(Application.StartupPath & "\test.ov2")

Error 1 Reference to a non-shared member requires an object reference. (Readov2)
Imported everything, but no luck here.

Can't attach the dll, so I included the source:

[Radjesh Klauke]

#removed#

[Radjesh Klauke]

#removed#

[MattP]

Here's a conversion to vb.net that I did. There aren't any compile errors but I don't really have any data to test it against.

[Radjesh Klauke]

Will test it 2morrow m8 and see if it works. If you want to I can send you the ov2 I'm using.

[Radjesh Klauke]

Thanks m8. Will have a look at it 2morrow. I believe my flue is getting back at me. Headache is starting. Time for bed. I've attached an ov2 for you.

[Radjesh Klauke]

Ola Matt,

1) created a new ClassLib;
2) imported your classes;

The following Errors Occur:

Error 1 'ReadOnly' variable cannot be the target of an assignment. Line 19 col 13 OV2Parser
Error 2 Option Strict On disallows implicit conversions from 'Long' to 'Integer'. Line 49 col 48 OV2Parser
Error 3 Overload resolution failed because no accessible 'Read' can be called with these arguments:
'Public Overridable Function Read(buffer() As Byte, index As Integer, count As Integer) As Integer': Option Strict On disallows implicit conversions from 'Long' to 'Integer'.
'Public Overridable Function Read(buffer() As Char, index As Integer, count As Integer) As Integer': Value of type '1-dimensional array of Byte' cannot be converted to '1-dimensional array of Char' because 'Byte' is not derived from 'Char'.
'Public Overridable Function Read(buffer() As Char, index As Integer, count As Integer) As Integer': Option Strict On disallows implicit conversions from 'Long' to 'Integer'. Line 50 col 13 OV2Parser
Warning 4 Function 'SerializeRectangle' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used. Line 301 col 5 OV2Parser
Warning 5 Function 'SerializeSimplePOI' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used. Line 356 col 5 OV2Parser

Error 2/3 isn't interesting cause I fixed it easily, but the rest not.

Dim bytesRead As Byte() = New Byte(CInt(br.BaseStream.Length - 1)) {}
br.Read(bytesRead, 0, CInt(br.BaseStream.Length))

EDIT: added "Return returnByte" in the 2 functions, no warnings anymore.

[Radjesh Klauke]

I remove the "readonly" and compiled it.
Works great, but I'd really like to to know how to loop through the ov2 to return all the values.
There are 4 values you can grab from the ov2: Lat/Long/Name/Telephone. I would like to list them something like:
1 lat, long, name, telephone
2 lat, long, name, telephone

[Radjesh Klauke]

Hé Matt. Got some time?

Trying to loop through the file, but I can't get it correct.

dim filepath as string "C:\test.ov2"
debug.print(readov2(filepath)(1).lat.tostring)
debug.print(readov2(filepath)(1).long.tostring)
debug.print(readov2(filepath)(1).name.tostring)
'  1 = (index as integer) as ov2parser.poi

How do I loop through the file?
for each x as integer in ...... ???

Thanks in advance.

[MattP]

Dim filePath As String = "C:\Temp\test.ov2"
        Dim poiList = OV2Parser.ReadOV2(filePath)

From there you can loop through the List(Of POI) and get your values.

For i = 0 To poiList.Count - 1
            Console.WriteLine(String.Format("{0} {1}", i, poiList(i).ToString()))
        Next

And there are 5 values you can get for each point of interest Lat/Long/Name/Telephone/ExtendedData.

I would recommend overriding the ToString method of the POI class to make it easy for you.

Public Class POI
    Public Property Name As String
    Public Property ExtendedData As String
    Public Property Lat As Double
    Public Property [Long] As Double
    Public Property Telephone As String
 
    Public Overrides Function ToString() As String
        If Me.ExtendedData IsNot Nothing Then
            Return String.Format("{0}, {1}, {2}, {3}, {4}", Lat.ToString(), [Long].ToString(), Name, Telephone, ExtendedData)
        Else
            Return String.Format("{0}, {1}, {2}, {3}", Lat.ToString(), [Long].ToString(), Name, Telephone)
        End If
    End Function
End Class

Edit: & oops on the Option Strict errors. Switched to VS11 and hadn't changed the setting yet.

[Radjesh Klauke]

Ola Matt,

Thanks, but somehow I don't get it. (can't find the lightswitch)

Dim poiList As List(Of OV2Parser.POI) = ReadOV2(filepath)
For each x as integer in .... (poiList not working)

[MattP]

Here's POI.vb with the changes to ToString().

Public Class POI
    Public Property Name As String
    Public Property ExtendedData As String
    Public Property Lat As Double
    Public Property [Long] As Double
    Public Property Telephone As String
 
    Public Overrides Function ToString() As String
        If Me.ExtendedData IsNot Nothing Then
            Return String.Format("{0}, {1}, {2}, {3}, {4}", Lat.ToString(), [Long].ToString(), Name, Telephone, ExtendedData)
        Else
            Return String.Format("{0}, {1}, {2}, {3}", Lat.ToString(), [Long].ToString(), Name, Telephone)
        End If
    End Function
End Class

Here's my code to get the List(Of POI) and iterate through it. From your code it looks like you missed that ReadOV2 is a shared method.

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim filePath As String = "C:\Temp\test.ov2"
        Dim poiList As List(Of POI) = OV2Parser.ReadOV2(filePath)
 
        For i = 0 To poiList.Count - 1
            Console.WriteLine(String.Format("{0} {1}", i, poiList(i).ToString()))
        Next
    End Sub
 
End Class

[Radjesh Klauke]

Thanks m8. The modification wasn't needed for my case, but it works like a charm.