Tipp 0213 Stringvergleich mit String.Compare
Autor/Einsender:
Datum:
  Michael Werner
29.06.2012
Entwicklungsumgebung:   VB.Net 2008
Framework:   2.0
Die String.Compare-Methode vergleicht zwei angegebene String-Objekte. Die Varianten der Überladungsliste zeigen eine Reihe von Möglichkeiten. Hier soll nur eine einfache dieser Varianten dargestellt werden. Nämlich: Compare(String, String, Boolean) Vergleicht Teilzeichenfolgen zweier angegebener String-Objekte, wobei die Groß- und Kleinschreibung ignoriert oder beachtet wird, je nachdem, wie der dritte Parameter eingestellt ist (True/False). 
Wenn das Beispiel für manch einen fortgeschrittenen Entwickler trivial erscheint, für Einsteiger gibt es Aha-Erlebnisse, insbesondere wenn Sie die Überladungsmöglichkeiten in der MSDN studieren.
 
Function CompareStrings(ByVal in1 As String, ByVal in2 As String, _
     ByVal insensitiv As Boolean) As Boolean
  If String.Compare(in1, in2, insensitiv) = 0 Then
    Return True
  Else
    Return False
  End If
End Function

Private Sub btnTrue_Click(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) Handles btnTrue.Click
  If TextBox1.Text = "" OrElse TextBox2.Text = "" Then
    Exit Sub
  End If

   'True = insensitiv
  If CompareStrings(TextBox1.Text, TextBox2.Text, True) Then
    Label1.Text = "Beide Strings sind gleich!"
  Else
    Label1.Text = "Die Strings sind nicht gleich!"
  End If
End Sub

Private Sub btnFalse_Click(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) Handles btnFalse.Click
  If TextBox1.Text = "" OrElse TextBox2.Text = "" Then
    Exit Sub
  End If

  'False = sensitiv
  Label1.Text = CompareStrings(TextBox1.Text, TextBox2.Text, _
     False).ToString

  If CompareStrings(TextBox1.Text, TextBox2.Text, False) Then
    Label1.Text = "Beide Strings sind gleich!"
  Else
    Label1.Text = "Die Strings sind nicht gleich!"
  End If
End Sub
 
Weitere Links zum Thema
String vs. StringBuilder

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (13 kB) Downloads bisher: [ 151 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 29. Juni 2012