Imports System

Imports System.Collections.Generic

Imports System.Linq

​

Public Class Program

    Public Sub Main()

        Dim fileContent As List(Of String) = GetFileContent()

​

        Dim dataItems = fileContent.Where(Function(c) c.Contains("=")).[Select](Function(c) GetDataItem(c))

​

        dataItems.Dump()

    End Sub

​

​

    Public Function GetFileContent() As List(Of String)

        Dim contentList As New List(Of String)()

​

        contentList.Add("sb.app; aiu;")

        contentList.Add("")

        contentList.Add("[MyEditor45]")

        contentList.Add("Name = MyEditor 4.5")

        contentList.Add("URL = http://www.myeditor.com/download/myeditor.msi")

        contentList.Add("Size = 3023788")

        contentList.Add("Description = This is the latest version of MyEditor")

        contentList.Add("Feature = Support for other file types")

        contentList.Add("Feature1 = Support for different encodings")

        contentList.Add("BugFix = Fix bug with file open")

        contentList.Add("BugFix1 = Fix crash when opening large files")

        contentList.Add("BugFix2 = Fix bug with search in file feature")

        contentList.Add("FilePath = % ProgramFiles %\MyEditor\MyEditor.exe")

        contentList.Add("Version = 4.5")

​

        Return contentList

    End Function

​

    Public Function GetDataItem(value As String) As DataItem

        Dim parts = value.Split("="C)

​

        Dim dataItem = New DataItem()

        dataItem.DataType = parts(0).Trim()

                dataItem.Data = parts(1).Trim()

​

        Return dataItem

    End Function

End Class

​

Public Class DataItem

    Public DataType As String

    Public Data As String

End Class