Visual Basic

<br />
Public Sub PopulateFromXML(ByVal fileName As String)<br />
<br />
        'Collect the path for the dll<br />
        Dim path As String<br />
        path = System.Environment.GetFolderPath( _<br />
                            Environment.SpecialFolder.CommonApplicationData)<br />
<br />
        'Read the xml file into a dataset<br />
        Dim xmlFile As New System.Data.DataSet<br />
        xmlFile.ReadXml(path & _<br />
                            System.IO.Path.DirectorySeparatorChar & _<br />
                                "Flowguard Limited " & _<br />
                                    System.IO.Path.DirectorySeparatorChar & _<br />
                                        "Engineering Dimensions" & _<br />
                                            System.IO.Path.DirectorySeparatorChar & _<br />
                                                fileName)<br />
<br />
        'Collect the unit type<br />
        Dim unitType As String<br />
        unitType = Convert.ToString(xmlFile.Tables("DimensionUnits").Rows(0).Item("Type"))<br />
<br />
        'Collect the units table<br />
        Dim unitsTable As New System.Data.DataTable<br />
        unitsTable = xmlFile.Tables("Unit")<br />
<br />
        'Loop through each row of the units table, adding a new unit each time<br />
        Dim rowEnum As IEnumerator<br />
        rowEnum = unitsTable.Rows.GetEnumerator<br />
<br />
        While rowEnum.MoveNext<br />
            'Cast the enumerated object to a data row<br />
            Dim currRow As DataRow<br />
            currRow = CType(rowEnum.Current, System.Data.DataRow)<br />
            'Create a new unit object<br />
            Try<br />
                Dim newUnit As New Unit(Convert.ToString(currRow("Name")), _<br />
                                            Convert.ToString(currRow("Abbreviation")), _<br />
                                            Convert.ToDouble(currRow("Factor")), _<br />
                                            Convert.ToBoolean(currRow("IsMetric")), _<br />
                                            Convert.ToBoolean(currRow("IsSIUnit")), _<br />
                                            "Length")<br />
<br />
                'Add the unit to the collection<br />
                Me.Add(newUnit)<br />
            Catch formatEx As System.FormatException<br />
                'Provide a message string<br />
                Dim origString As String = "There is a problem in the xml file "<br />
                Dim msgString As String = ""<br />
<br />
                'Identify which value has the problem<br />
                If Not (TypeOf (currRow("Name")) Is String) Then<br />
                    If msgString.Length = 0 Then<br />
                        msgString = origString & " with the Name Field"<br />
                    Else<br />
                        msgString += ", the Name Field"<br />
                    End If<br />
                End If<br />
<br />
                If Not (TypeOf (currRow("Abbreviation")) Is String) Then<br />
                    If msgString.Length = 0 Then<br />
                        msgString = origString & " with the Abbreviation Field"<br />
                    Else<br />
                        msgString += ", the Abbreviation Field"<br />
                    End If<br />
                End If<br />
<br />
                If Not (TypeOf (currRow("Factor")) Is Double) Then<br />
                    If msgString.Length = 0 Then<br />
                        msgString = origString & " with the Factor Field"<br />
                    Else<br />
                        msgString += ", the Factor Field"<br />
                    End If<br />
                End If<br />
<br />
                If Not (TypeOf (currRow("IsMetric")) Is Boolean) Then<br />
                    If msgString.Length = 0 Then<br />
                        msgString = origString & " with the IsMetric Field"<br />
                    Else<br />
                        msgString += ", the IsMetric Field"<br />
                    End If<br />
                End If<br />
<br />
                If Not (TypeOf (currRow("IsSIUnit")) Is Boolean) Then<br />
                    If msgString.Length = 0 Then<br />
                        msgString = origString & " with the IsSIUnit Field"<br />
                    Else<br />
                        msgString += ", the IsSIUnit Field"<br />
                    End If<br />
                End If<br />
<br />
                'Inform the user<br />
                System.Windows.Forms.MessageBox.Show( _<br />
                                msgString, "XML File Error!", _<br />
                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)<br />
            Catch ex As System.Exception<br />
                'Throw the exception<br />
                Throw ex<br />
            End Try<br />
<br />
        End While<br />
<br />
        'Raise the list changed event<br />
        RaiseEvent ListChanged(Me, _<br />
                        New System.ComponentModel.ListChangedEventArgs( _<br />
                            System.ComponentModel.ListChangedType.Reset, 0))<br />
<br />
    End Sub 'PopulateFromXML<br />