|
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
| |
|
|
|
Windows-Version |
98/SE |
|
|
ME |
|
|
NT |
|
|
2000 |
|
|
XP |
|
|
Vista |
|
|
Win
7 |
|
|
|
|
Download (13
kB)
|
Downloads bisher: [ 151 ]
|
|
|