四月九日

 

 

 1 Module Module1
 2     Public Sub Main()
 3         Dim m_stReelIDStart() As String = {"P", "1P", "3N1"}
 4 
 5         Dim strBarCode1() As String = {"P1P3N1ARTS-0401-01", "0"}
 6         Dim i As Integer
 7         For i = 0 To m_stReelIDStart.Length - 1
 8             If strBarCode1(0).StartsWith(m_stReelIDStart(i)) Then
 9                 strBarCode1(0) = strBarCode1(0).Remove(0, m_stReelIDStart(i).Length) 'TrimStart(m_stReelIDStart(i).ToCharArray)
10                 Exit For
11             End If
12         Next
13         Console.WriteLine(strBarCode1(0))
14         Console.Read()
15 
16     End Sub
17 End Module

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

posted @ 2013-04-09 17:15  xtypeu  阅读(117)  评论(0)  编辑  收藏  举报