✒ 0007.0016 VS2017 VB MVC5 Razor MachinesController.vb

Public Class MachinesController




    Inherits System.Web.Mvc.Controller




    Function Index(ByVal IdIn As String, ByVal PathIn As String) As ActionResult


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


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

        If PathIn <> "" Then

            PathParsed = PathIn.ToLower

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

        End If

        Select Case IdIn.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 += IdIn & "/"

                Else

                    If PathParsed = "" Then FileName = IdIn

                End If

            Case "phone"

                If FileName <> "" Then

                    PathLeft += IdIn & "/"

                Else

                    If PathParsed = "" Then FileName = IdIn

                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 += IdIn & "/"

                Else

                    If PathParsed = "" Then FileName = IdIn

                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