Einstieg in Visual Basic 2010, 2. Auflage by Thomas Theis

Autor:Thomas Theis [Theis, Thomas]
Die sprache: deu
Format: epub
veröffentlicht: 0101-01-01T00:00:00+00:00

1541.book Seite 222 Mittwoch, 5. Mai 2010 10:28 10

6

Wichtige Klassen in .NET

Im folgenden Programm (Projekt StringLöschen) wurde dies ähnlich wie im vorherigen Programm umgangen, siehe Abbildung 6.8.

Public Class Form1

Private Sub cmdLöschen_Click(...) Handles ...

Dim eingabe As String

Dim anzeige As String

eingabe = txtEingabe.Text

anzeige = eingabe.Remove(

numPosition.Value, numAnzahl.Value)

lblAnzeige.Text = anzeige

End Sub

Private Sub txtEingabe_TextChanged(...

) Handles txtEingabe.TextChanged

Dim eingabe As String

eingabe = txtEingabe.Text

numAnzahl.Maximum = eingabe.Length

numPosition.Maximum = eingabe.Length – 1

End Sub

Private Sub numPosition_ValueChanged(...

) Handles numPosition.ValueChanged

Dim eingabe As String

eingabe = txtEingabe.Text

numAnzahl.Maximum =

eingabe.Length – numPosition.Value

End Sub

End Class

Listing 6.8 Projekt »StringLöschen«

Abbildung 6.8 Löschen von Zeichen aus einer Zeichenkette 222

1541.book Seite 223 Mittwoch, 5. Mai 2010 10:28 10

Klasse String für Zeichenketten

6.1

Zur Erläuterung:

̈

Der Benutzer wählt in den beiden Zahlenauswahlfeldern aus, ab welcher Position er wie viele Zeichen löschen möchte.

̈

Anschließend werden die entsprechenden Zeichen gelöscht und die nachfolgenden Zeichen werden nach vorne verschoben.

̈

Beide Zahlenauswahlfelder werden zur Entwicklungszeit auf die

Werte Minimum = 0, Value = 0 und Maximum = 0 eingestellt. Es können also zunächst nur die Löschposition 0 und die Anzahl 0 ausgewählt werden.

̈

Bei jeder Eingabe oder Änderung der Originalzeichenkette werden die Maxima für die beiden Zahlenauswahlfelder neu eingestellt.

Damit ist gewährleistet, dass der Benutzer keine Löschposition wählen kann, die außerhalb der Originalzeichenkette liegt. Außerdem kann die Anzahl der zu löschenden Zeichen nicht größer sein als die Anzahl der vorhandenen Zeichen.

̈

Sobald der Benutzer die Löschposition verändert, wird die maximal wählbare Anzahl der zu löschenden Zeichen ebenfalls verändert.

Wird die Löschposition z. B. um 1 erhöht, so wird die Anzahl um 1

herabgesetzt.

6.1.7

Teilzeichenkette ermitteln

Zur Extraktion eines Teils einer Zeichenkette nutzen Sie die Methode Substring()

Substring(). Es müssen Startposition und Länge der gewünschten Teilzeichenkette angegeben werden.

Weder die Position noch eines der zu extrahierenden Zeichen darf außer-Argument-

OutOfRange

halb der Zeichenkette liegen, da sonst wiederum eine Ausnahme vom Typ ArgumentOutOfRangeException auftritt.

Analog zu den vorherigen Programmen wurde diese Vorgabe wie in Abbildung 6.9 zu sehen (Projekt StringTeilzeichenkette) gelöst: Public Class Form1

Private Sub cmdAnzeigen_Click(...) Handles ...

Dim eingabe As String

Dim anzeige As String

eingabe = txtEingabe.Text

anzeige = eingabe.Substring(

numPosition.Value, numLänge.Value)

223

Download

Haftungsausschluss:
Diese Site speichert keine Dateien auf ihrem Server. Wir indizieren und verlinken nur                                                  Inhalte von anderen Websites zur Verfügung gestellt. Wenden Sie sich an die Inhaltsanbieter, um etwaige urheberrechtlich geschützte Inhalte zu entfernen, und senden Sie uns eine E-Mail. Wir werden die entsprechenden Links oder Inhalte umgehend entfernen.