Vb.net obtenir des nombres entiers à partir de la chaîne avec des entiers

J'ai cette chaîne 123abc123 comment puis-je obtenir uniquement des entiers à partir de cette chaîne?

Par exemple, convertir 123abc123 à 123123.

Ce que j'ai essayé:

Integer.Parse(abc)

InformationsquelleAutor Usr | 2012-11-01

2

la bonne méthode pour extraire les entiers est à l'aide de isNumbric fonction:
```
Dim str As String = "123abc123"
Dim Res As String
For Each c As Char In str
    If IsNumeric(c) Then
        Res = Res & c
    End If
Next
MessageBox.Show(Res)
```
d'une autre manière:
```
Private Shared Function GetIntOnly(ByVal value As String) As Integer
    Dim returnVal As String = String.Empty
    Dim collection As MatchCollection = Regex.Matches(value, "\d+")
    For Each m As Match In collection
        returnVal += m.ToString()
    Next
    Return Convert.ToInt32(returnVal)
End Function
```
- je vous remercie encore. comment puis-je convertir des le Res de la chaîne de nombre entier?
- de cette façon: Integer.Prase(String)
- peut-être Parse? Mon correcteur d'orthographe suggère toutefois Praise.
- opss, mon erreur.
- Un mot de prudence: Cette méthode fait beaucoup de conversion... Chaque personnage va être mis en boîte dans un objet sur le tas, pour être envoyés à la IsNumeric méthode, puis concaténation de chacun des chiffres de la chaîne crée une nouvelle chaîne. La concaténation de chaînes de caractères qui doit être utilisée uniquement lorsque vous savez que les cordes ne peut jamais être long, comme il devient extrêmement lent avec des chaînes plus longues.
InformationsquelleAutor Nmmmm
4

Vous pouvez utiliser Char.Appel isdigit
```
Dim str = "123abc123"
Dim onlyDigits = New String(str.Where(Function(c) Char.IsDigit(c)).ToArray())
Dim num = Int32.Parse(onlyDigits)
```
- ne pas VB soutien de la syntaxe comme str.Where(Char.IsDigit)?
- Dans visual basic, vous devez écrire str.Where(addressOf Char.IsDigit)
- il y a une erreur: "onlyDigits' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection (merci à vous)
- ok, je vous remercie. je vais l'essayer.
InformationsquelleAutor Tim Schmelter

    Dim input As String = "123abc456"
    Dim reg As New Regex("[^0-9]")
    input = reg.Replace(input, "")
    Dim output As Integer
    Integer.TryParse(input, output)

vous devriez pas ignorer le résultat de TryParse, permet mieux de se planter avec juste Parse. encore +1
vous êtes censé vérifier la sortie si les tryparse est vrai.

InformationsquelleAutor urlreader

0

Vous pouvez utiliser une expression régulière avec le modèle \D de match non des caractères numériques et de les supprimer, ensuite d'analyser la chaîne restante:
```
Dim input As String = "123abc123"

Dim n As Integer = Int32.Parse(Regex.Replace(input, "\D", ""))
```
InformationsquelleAutor Guffa
0

Vous pouvez également utiliser FindAll pour extraire le matériel requis. nous devrions également envisager Val fonction pour gérer une chaîne vide.
```
    Dim str As String = "123abc123"
    Dim i As Integer = Integer.Parse(Val(New String(Array.FindAll(str.ToArray, Function(c) "0123456789".Contains(c)))))
```
InformationsquelleAutor NeverHopeless

Vous devez vous connecter pour publier un commentaire.