String nach zahlen durchsuchen und ausgeben!

[amassgehtnu]

hallo!
ich möchte einen String nach zahlen durchsuchen und mit 1 erhöhen wenn er gefunden ist..sicher einfach..wenn mans weiss!!
danke

[Andreas Kosch]

Hallo,

>..sicher einfach..

in der Tat, denn die extrem leistungsfähige <b>RegEx</b>-Klasse erledigt diesen Job zuverlässig:
<pre>
Dim sInput As String = "eins zwei 3 vier 5"
Dim p As String = "\d"
Dim re As New System.Text.RegularExpressions.Regex(p)
For Each m As System.Text.RegularExpressions.Match In re.Matches(sInput)
ListBox1.Items.Add(m.Value + 1)
Next
</pre>
In der ListBox werden die Ergebnise 4 und 6 angezeigt. Wenn jede Zahl direkt im Text um den Wert 1 erhöht werden muss, wird es etwas komplizierter. Hier könnte man sich jedes einzelne Wort aufsplitten lassen, um dann selbst zu prüfen, ob das eine Zahl ist:
<pre>
Dim sInput As String = "eins zwei 3 vier 5"
Dim p As String = " |, "
Dim re As New System.Text.RegularExpressions.Regex(p)
For Each s As String In re.Split(sInput)
ListBox1.Items.Add(s)
Next
</pre>
Die einzelnen Teile werden dann über einen StringBuilder wieder zu einem Gesamtstring verkettet