四月九日

Module Module1
    Public Sub Main()
        Dim m_stReelIDStart() As String = {"P", "1P", "3N1"}

        Dim strBarCode1() As String = {"P1P3N1ARTS-0401-01", "0"}
        Dim i As Integer
        For i = 0 To m_stReelIDStart.Length - 1
            If strBarCode1(0).StartsWith(m_stReelIDStart(i)) Then
                strBarCode1(0) = strBarCode1(0).Remove(0, m_stReelIDStart(i).Length) 'TrimStart(m_stReelIDStart(i).ToCharArray)
                Exit For
            End If
        Next
        Console.WriteLine(strBarCode1(0))
        Console.Read()

    End Sub
End Module

 查看断点窗口通过快捷键Ctrl+Alt+B可以调出