| Forum: ASP.NET |
Thema:
Re: String nach zahlen durchsuchen . |
Von:
Thomas Grupp (
28.01.2005 11:29) |
Dim myString As String = "Meine Zahl: 77"
Dim myZahl As String = ""
Dim myEnumerator As Collections.IEnumerator = myString.GetEnumerator
While myEnumerator.MoveNext()
If myEnumerator.Current >= "0" And myEnumerator.Current <= "9" Then
myZahl &= myEnumerator.Current
Else
'wenn eine weitere Zahl nach der gefundenen kommt, nimm diese hinzu, sonst verlasse die Suche
If myZahl <> "" Then
Exit While
End If
End If
End While
Dim myNeueZahl As Int16 = CType(myZahl, Int16)
myNeueZahl += 1
myString = myString.Replace(myZahl, myNeueZahl)
MsgBox(myString)
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
