Discussion :

[pascb423]

Bonjour,
j'ai une chaine de caractère qui contient des chiffres et des lettres que j'ai mis dans une variable exemple:
name="essai 345:90 puis 34
j'aimerai extraire de la variable seulement 345:90 et mettre ceci dans une variable en integer
j'ai cherché sur le net mais pas trouvé?

[François DORIN]

Bonjour,

Tu as plusieurs possibilités :

1) Découper manuellement ta chaine
Il s'agit d'utiliser la méthode Split d'une chaîne de caractères pour la diviser en plusieurs chaine :

• Dans un premier temps, tu la découpes en fonction des espaces. Cela te permet notamment de récupérer la partie qui t'intéresse (345:90)
• Tu redécoupes la partie précédemment extraite avec, cette fois-ci le caractère ":" comme séparateur, afin de séparer les deux entiers.

Il ne te reste qu'à convertir ces deux chaînes de caractères en entier.

2) Utiliser des expressions régulières
Autre méthode, utiliser une expression régulière. Une expression régulière te permet de travailler sur des chaînes de caractère à partir d'un pattern. Tu peux ainsi les vérifier, en extraire une partie, faire un remplacement, etc... en très peu de ligne de code.

Ici, il faut construire une expression régulière qui vérifie la syntaxe de ta chaîne d'entrée, et qui te permet d'extraire les deux entiers (et tant qu'à faire, autant séparer les deux entiers distinctement pour pouvoir ensuite les traiter directement).

Comme précédemment, il ne te restera qu'à convertir les deux chaînes de caractères en entier.

Illustration

Voici un exemple de code qui résume rapidement les deux approches :

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
    Sub Main()
        Dim name As String = "essai 345:90 puis 34"
        Dim parts As String()
        Dim regex As Regex = New Regex("^\w+\s(\d+):(\d+)\s.*$")
        Dim matches As Match
        ' Via un découpage grâce à la méthode Split
        parts = name.Split(" "c)
        Console.WriteLine(parts(1))
        parts = parts(1).Split(":"c)
        Console.WriteLine(parts(0))
        Console.WriteLine(parts(1))
 
        ' Via une expression régulière
        matches = regex.Match(name)
        If matches.Success Then
            Console.WriteLine(matches.Groups(1).Value)
            Console.WriteLine(matches.Groups(2).Value)
        End If
 
        Console.ReadLine()
 
    End Sub