✒ 0007.0043 VS2019 VB MVC Razor MachinesController.vb

Public Class MachinesController




    Inherits System.Web.Mvc.Controller




    Function Index(ByVal Id As String, ByVal Path As String) As ActionResult


        Dim PathParsed As String = ""
        Dim FileName As String = ""
        Dim PathLeft As String = "~/views/machines/"
        Dim ViewPath As String = ""

        If Id = "" Then Return View("~/views/home/machines.vbhtml")

        If Path <> "" Then

            PathParsed = Path.ToLower

            If PathParsed.EndsWith("/") = True Then PathParsed = PathParsed.Substring(1, PathParsed.Length - 1)

        End If

        Select Case Id.ToLower

            Case "pc"

                If PathParsed = "windows" Then

                    FileName = PathParsed

                ElseIf PathParsed = "windows/desktop" Then

                    FileName = PathParsed

                ElseIf PathParsed = "windows/tv" Then

                    FileName = PathParsed

                End If

                If FileName <> "" Then

                    PathLeft += Id & "/"

                Else

                    If PathParsed = "" Then FileName = Id

                End If

            Case "phone"

                If FileName <> "" Then

                    PathLeft += Id & "/"

                Else

                    If PathParsed = "" Then FileName = Id

                End If

            Case "tablet"

                If PathParsed = "ereader" Then

                    FileName = PathParsed

                ElseIf PathParsed = "10inch" Then

                    FileName = "ten_inch"

                ElseIf PathParsed = "8inch" Then

                    FileName = "eight_inch"

                End If

                If FileName <> "" Then

                    PathLeft += Id & "/"

                Else

                    If PathParsed = "" Then FileName = Id

                End If

        End Select

        If FileName <> "" Then ViewPath = PathLeft & FileName & ".vbhtml"


        If ViewPath = "" Then

            Return HttpNotFound()

        Else

            Return View(ViewPath)

        End If


    End Function




End Class