Media Info Plus - Manage your Movies, Shows, Tunes, NFO and more (Open Source VB.NET)

Code:
Public Function toTagData(ByRef xmifi As xbmcMediaInfo.Fileinfo) As String

            Dim statusStr As String = ""

            If Not xmifi.streamdetails Is Nothing Then

                Dim couVS As Integer = 0

                Dim couAS As Integer = 0

                Dim couSS As Integer = 0

                Dim vwidthmax As Double = 0

                Dim vheightmax As Double = 0

                Dim vaspectdisplayratio As Double = 0

                Dim achanmax As Double = 0

                Dim accodec As String = ""

                Dim alang As String = ""

                Dim scantype As String = ""

                Dim vcodec As String = ""

                Dim subtitleLang As String = ""

                For Each curVS As Video In xmifi.streamdetails.Video

                    couVS += 1

                    If cleandbl(curVS.Width) > vwidthmax Then

                        vwidthmax = cleandbl(curVS.Width)

                        vheightmax = cleandbl(curVS.Height)

                        Dim car As Double = 0

                        If curVS.Aspectdisplayratio = "" Then

                            car = 0

                        Else

                            car = cleandbl(curVS.Aspectdisplayratio)

                        End If

                        vaspectdisplayratio = car

                        If curVS.Scantype.ToLower.Contains("progressive") Then

                            scantype = "p"

                        Else

                            scantype = "i"

                        End If

                        vcodec = curVS.Codecid

                    End If

                    'To_Display += "   Container: " + "This is the extension of the file" + vbNewLine



                Next

                For Each curAS As Audio In xmifi.streamdetails.Audio

                    couAS += 1

                    'audio

                    If Not curAS.Channels = "" Then

                        If cleandbl(curAS.Channels) > achanmax Then

                            accodec = curAS.Codec

                            achanmax = cleandbl(curAS.Channels)

                            alang = curAS.Language

                        End If

                    End If

            

                Next

                For Each curSS As Subtitle In xmifi.streamdetails.Subtitle

                    couSS += 1

                    'audio

                    subtitleLang += " / sub" + curSS.Language

                Next

                If Not couVS = 0 Then 'no video streams, don't write any tag data

                    Try

                        statusStr = " / " & getrezfromsize(vwidthmax, vheightmax, vaspectdisplayratio) & scantype & " / " & vcodec & " / " & accodec & " / " & achanmax & "ch / " & alang & subtitleLang

                    Catch ex As Exception

                        Debug.Print("Failed to process media information to tag data.")

                        Return ""

                    End Try

                End If

            End If

            Debug.Print(statusStr)

            Return statusStr

        End Function

        Private Function getrezfromsize(ByVal curwidth As Double, ByVal curheight As Double, ByVal curar As Double) As String

            'detect Aspect Ratio 

            Dim calulatedcurar As Double = curwidth / curheight

            'curar is from the media file and is passed into the function, this is pulled from the media file data in the video



            'strict format

            If curwidth = 1920 And curheight = 1080 Then Return "1080"

            If curwidth = 1280 And curheight = 720 Then Return "720"

            If curwidth = 720 And curheight = 576 Then Return "576"

            If curwidth = 720 And curheight = 480 Then Return "480"

            If curwidth = 960 And curheight = 720 Then Return "720"

            If curwidth = 1366 And curheight = 768 Then Return "768"



            'closest based on widescreen

            'ask about ar from file

            Dim arcalcheight As Double

            Dim maxheight As Double

            If curar > 1.34 And Not curar = 0 Then

                arcalcheight = curwidth / 1.777

                If curheight > arcalcheight Then

                    maxheight = curheight

                Else

                    maxheight = arcalcheight

                End If

                If maxheight > 1000 Then Return "1080"

                If maxheight > 730 Then Return "768"

                If maxheight > 700 Then Return "720"

                If maxheight > 550 Then Return "576"

                If maxheight > 530 Then Return "540"

                If maxheight > 400 Then Return "480"

            End If



            'loose format

            If curwidth = 1920 And curheight > 700 Then Return "1080"

            If curwidth = 1280 And curheight > 400 Then Return "720"

            If curwidth < 20 Then Return ""

            If curwidth < 641 Then Return "SD"

            If curwidth < 853 Then Return "480"

            If curwidth < 961 Then Return "540"

            If curwidth > 961 And curwidth < 1281 Then Return "720"

            If curwidth > 1281 Then Return "1080"

            Return ""

        End Function