Imports System

Imports system.collections.generic

Imports system.text

​

Public Module Module1

​

    Public Sub Main()

        Dim fileName as string = "this_that_12345678901234"

        Dim retBool = false

        Dim retbool2 = false

        If fileName.Contains("_") Then

            Dim splitFile As String() = fileName.Split(CType("_", Char))

            If splitFile.length = 3 Then

                For i As Integer = 0 To 2

                If i = 2 andalso Not RegularExpressions.Regex.IsMatch(splitFile(i), "^[0-9 ]+$") Andalso splitFile(i).Length <> 14 Then

                        retBool = False

                        Exit For

                    ElseIf Not RegularExpressions.Regex.IsMatch(splitFile(i), "^[a-zA-Z0-9]+$") Then

                        retBool = False

                        Exit For

                    Else

                        'We have a winner

                        retBool = True

                    End If

                Next

​

                retbool2 =(RegularExpressions.Regex.IsMatch(splitFile(0), "^[a-zA-Z0-9]+$") Andalso RegularExpressions.Regex.IsMatch(splitFile(1), "^[a-zA-Z0-9]+$") andalso RegularExpressions.Regex.IsMatch(splitFile(2), "^[0-9 ]+$") andalso splitFile(2).Length = 14)

            Else

                retBool = False

            End If

        End If

​

        console.writeline(retbool)

        console.writeline(retbool2)

    End Sub

End Module

​