Suchzeichenfolge für ein bestimmtes Zeichen

Question

Ich erstelle ein Formular Windows Forms, für das ein Benutzer eine Teilenummer eingeben muss, z. B. "XY12345E678". Dann, mit einer if-Anweisung, muss das Programm die 7. Position suchen und Code basierend auf dem Zeichen in dieser Position ausführen. In diesem Fall ist es entweder ein "E" oder "F".

Zum Beispiel:

 Dim partNumber as String 
     partNumber = textboxPartNumber.Text 
     Dim seventhPosition as String 
     seventhPosition = partNumber.Substring(7, 1) 

     If seventhPosition *is an "E"* 
     ''' Do some code ''' 
     ElseIf seventhPosition *is an "F"* 
     ''' Do some code ''' 
     Else 
     ''' Do some code ''' 

Answer 1

Wenn Sie sich selbst zu schreiben lange If...ElseIf... ElseIf... Aussagen finden, dann sollten Sie stattdessen mit Select Case betrachten, wie folgt aus:

Dim partNumber As String = textboxPartNumber.Text 

If partNumber.Length >= 7 Then 
    Dim seventhPosition As String = partNumber.Substring(7, 1) 
    Select Case seventhPosition 
     Case "E" 
      ' some code 
     Case "F" 
      ' some code 
     Case Else 
      ' it is not an "E" or "F" 
    End Select 

Else 
    ' the part number is too short 
End If 

Sie müssen nicht wirklichverwendenin den Fallklauseln, aber wenn Sie Sie wollen Case Is = "E" usw.

Answer 2

Sie können mit diesem versuchen ...

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
      Dim partNumber As String 
      partNumber = textboxPartNumber.Text 
      Dim seventhPosition As String 
      seventhPosition = partNumber.Substring(7, 1) 

      If seventhPosition = "E" Then 
       MsgBox(seventhPosition) 

      ElseIf seventhPosition = "F" Then 
       MsgBox(seventhPosition) 
      Else 
       MsgBox("others") 
      End If 
     End Sub 

Answer 3

  Dim partNumber As String 
      partNumber = textboxPartNumber.Text 

      Dim seventhPosition As String 
      seventhPosition = partNumber.Chars(7) 

      If seventhPosition = "E" OrElse seventhPosition = "F" Then 
       'Do something 
      End If