Récuperer les entiers dans un string

Version imprimable

09/04/2013, 15h08
kevin01330

Récuperer les entiers dans un string

Bonjour,

je recherche une solution pour récupérer les entiers présent dans mon string en VB comme ci-dessous:

dim chaine as string = ""
chaine= "vlan 30 40 50 70 526 1852"

Donc j obitendrais 30,40,50....
Quelqu'un aurait-t-il une idée ?

ps: je pense passer par la méthode TocharArray pour transformer la chaine en tableau de caractère. Mais je n'ai pas réussi a aboutir.

Cordialement,
Kévin

Bonjour,

C'est assez simple, l'algo serait une itération sur tous les caractères. en c# sans IDE, ça donnerait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
string chaine = "vlan 30 40 50 70 526 1852";
string nombre = string.empty;
list<int> liste = new List<int>;
 
for(int i = 0;i<chaine.length;i++)
{
   if (char.isnumber(chaine, i))
  {
    nombre += chaine[i];
  }
  else
  {
    if (!string.isnullorempty(nombre))
    {
      liste.add(int.parse(nombre));
      nombre = string.empty;
    }
  }
 
}

Bon dév.

bon, avec un ide, ça donne ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
            string chaine = "vlan 30 40 50 70 526 1852";
            List<int> liste = new List<int>();
 
            string nombre = string.Empty;
 
            for (int i = 0; i < chaine.Length; i++)
            {
                if (char.IsNumber(chaine, i))
                {
                    nombre += chaine[i];
                }
                else
                {
                    if (!string.IsNullOrEmpty(nombre))
                    {
                        liste.Add(int.Parse(nombre));
                        nombre = string.Empty;
                    }
                }
            }
            if (!string.IsNullOrEmpty(nombre))
            {
                liste.Add(int.Parse(nombre));
            }

09/04/2013, 16h17
DotNetMatt
On peut aussi utiliser une regular expression :
Code:

1 2 3 4 5 6 7 var chaine = "vlan 30 40 50 70 526 1852"; var results = Regex.Matches(chaine, @"\d+"); foreach (var result in results) { Console.WriteLine(result); }
Citation:

Envoyé par Résultat :

30
40
50
70
526
1852

Sachant que l'expression \d+ permet de récupérer un entier, et que la variable results est de type MatchCollection.

Bonjour,

Je vous remercie tout les deux pour l’intérêt que vous avez porté a ma demande. J'ai pris connaissance de vos deux propositions et de mon coté j'ai essayé de developper un algo.
Celui-ci est le suivant ( Je suis en VB.net )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Dim listeVlan As ArrayList
        listeVlan = New ArrayList
 
 
        Dim caractere As Char() = chaine.ToCharArray
        Dim i As Integer = 12
        Dim vlan As String = ""
 
        While i < caractere.Length
            If caractere(i) = " " Then
                Console.WriteLine("espace rencontré")
            Else
                If caractere(i - 1) = " " Then
                    vlan = caractere(i)
 
                Else
                    If caractere(i + 1) = " " Or i + 1 >= caractere.Length Then
                        vlan = vlan + caractere(i)
                        MsgBox(vlan)
                        listeVlan.Add(vlan)
                    Else
                        vlan = vlan + caractere(i)
 
                    End If
 
                End If
            End If
 
            i = i + 1
        End While
 
        Return listeVlan

Celui-ci marche mais j'ai une erreur d'index pour la fin de chaine.
Les fonctions que vous utilisés en C# sont elle présente en VB ?

Cordialement,
Kévin

09/04/2013, 16h29
DotNetMatt
Citation:

Envoyé par kevin01330

Les fonctions que vous utilisés en C# sont elle présente en VB ?

Oui, ça donne quelque chose comme ceci :
Code:

1 2 3 4 5 6 Dim chaine = "vlan 30 40 50 70 526 1852" Dim results = Regex.Matches(chaine, "\d+") For Each result As var In results Console.WriteLine(result) Next
09/04/2013, 16h54
kevin01330
Merci DotNetMatt pour cette aide.

Cependant,j'ai une derniere petite question si tu me le permet.
J'ai une exception de type invalidCast quand je compile :
Code:

1 2 3 4 5 6 For Each result As Integer In results Console.WriteLine(result) listeVlan.Add(result) Next
Ce qui est normal. Connaissez vous comment caster ce type "match" en "integer". En effet, j’appelle ensuite une fonction pour lire la liste "listeVlan".

Cordialement,
Kévin
09/04/2013, 17h00
DotNetMatt

Tu peux faire :

Code:

listeVlan.Add(Convert.ToInt32(result.ToString()))

Ca converti directement la valeur en entier ;)
09/04/2013, 17h06
kevin01330

Merci a toi :P:D
09/04/2013, 17h16
kevin01330

Citation:

Il y un problème lorsque j'affiche la liste.
1893
1901
2400
2401
3001
3021
3053
3061
Fin
1893
0
1901
2
2400
4
2401
6
3001
8
3021
10
3053
12
3061
14

En effet, il converti l'espace entre chaque entier en entier (0,2,4,6,8).
Avez vous une idée ?
09/04/2013, 17h18
DotNetMatt

C'est quoi ta liste de valeurs ? Il faut peut-être ajuster un peu la regex.

Voila ma chaine de caractère :

Citation:

vlan batch 193 101 200 201 301 321 353 61

donc ma liste doit contenir 193,101,200,201,301,321,353,61

Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Shared Function traitementVlan(ByVal chaine As String)
        Dim results As MatchCollection
        Dim listeVlan As ArrayList
        listeVlan = New ArrayList
 
        results = Regex.Matches(chaine, "\d+")
 
        For Each result As Match In results
            Console.WriteLine(result)
            listeVlan.Add(listeVlan.Add(Convert.ToInt32(result.ToString())))
        Next
        Return listeVlan
 
    End Function

09/04/2013, 17h32
DotNetMatt

Tu appelles deux fois la méthode Add de ton ArrayList listeVlan, ça doit être pour ça. Remplace ça :

Code:

listeVlan.Add(listeVlan.Add(Convert.ToInt32(result.ToString())))

par ça :

Code:

listeVlan.Add(Convert.ToInt32(result.ToString()))
09/04/2013, 17h35
kevin01330

C'était bien ça, je te remercie