Imports System

Imports System.Text

Imports System.Collections.Generic

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    public Class Vehicle

    End Class

​

    public Class Car

        Inherits Vehicle

​

    End Class

​

    public Class Motorocycle

        Inherits Vehicle

​

    End Class

​

    Public Sub Main()

        Dim honda as New Car()

        Dim harley as New Motorocycle()

        'Console.WriteLine("Hello World")

        Get_ID("")

    End Sub

​

    Public Function Get_ID(ByVal req_msg As String) As String

        Dim req_cif As String = req_msg

        Dim str2 As New StringBuilder

        str2.Append(" 0158                    **  0000      003" + "9999".PadLeft(5, "0") + "999" + "9902006".PadLeft(7, "0") + "067050000000000     0         10000000        " + "9902006".PadLeft(7, "0") + "00000000000000000000000")

        str2.Append(req_cif.Trim().PadLeft(17, "0"c))

        str2.Append("04")

        str2.Append("".PadRight(12, " "c))

        Dim response_str2 As String = ""

        response_str2 = "  1112    0982            00000000125058003099999929902006067100039032079000044650600   10000000        990200600000000000000000000000030000000321451802107                    CYKPP3718A                      099                               30                    35399                   31032099099 IB                            61                    987206541714                    110                               00                                                    000                               00                                                    000                               00                                                    000                               00                                                    000                               00                                                    000                               00                                                    000                               00                                                    000                               0308YY        01                                                                     "

        Dim ret_status As String = response_str2.Substring(9, 4)

        Dim id_type, id_remark, id_number, id_value, id_function As String

        Dim id_type1, id_type2, id_number1, id_number2 As String

        response_str2 = response_str2.Substring(135)

        response_str2 = response_str2.Substring(17)

        Dim group As List(Of String) = New List(Of String)(Regex.Split(response_str2, "(?<=\G.{88})", RegexOptions.Singleline))

        Dim i As Integer = 0

        For i = 0 To group.Count - 1

            Dim msg As String = group(i)

            If(msg.StartsWith("00")) Then

                Continue For

            End If

​

            If i = 0 Then

                id_type1 = msg.Substring(0, 2).ToString.Trim()

                id_number1 = msg.Substring(22, 24).ToString.Trim()

                Console.WriteLine(id_type1 + " id_type1~id_number1 " + id_number1)

            End If

​

            If i = 1 Then

                id_type2 = msg.Substring(0, 2).ToString.Trim()

                id_number2 = msg.Substring(22, 24).ToString.Trim()

                Console.WriteLine(id_type2 + " id_type2~id_number2 " + id_number2)

            End If

​

            i = i + 1

        Next

​

        return ""

    End Function

End Module

​