Discussion :

[kevin01330]

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

[sisqo60]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sisqo60]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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));
            }

[DotNetMatt]

On peut aussi utiliser une regular expression :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

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);
}

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.

[kevin01330]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DotNetMatt]

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

Oui, ça donne quelque chose comme ceci :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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