|
Máte tam pár věcí, které mi nejsou úplně jasné. Vy iterujete kolekcí hledat a v každé iteraci nastavíte do TextBoxu (jehož vlasnost Text je typu String) výsledek konverze ze Stringu na Integer. Zapravé, konverze je úplně navíc, regex sám o sobě zařídí, že se namatchují pouze čísla, takže další kontroly nejsou potřebné a navíc v TextBoxu bude pouze výsledek poslední iterace. Pokud chcete v textu matchovat čísla, zkuste TextBox nahradit ListBoxem a pak by to šlo například tímto způsobem:
' Náhodný řetežec znaků a čísel
Label1.Text = Guid.NewGuid().ToString()
' 'Kolekce čísel (matchuje jednu a více cifer jako jedno číslo)
Dim matches As MatchCollection = Regex.Matches(label1.Text, "\d+")
For Each m As Match In matches
ListBox1.Items.Add(m.Value)
Next
|