Discussion :

[gastoncs]

Bonsoir,
je souhaite extraire deux nombres situé derrière un libellé qui se présente sous cette forme :

Coordonnees : 875243 2481718

j'ai donc fait ceci en me basant sur les contraintes suivantes :
Le libellé "Coordonnees :" est toujours le même
Le nombres de caractéres de "Coordonnees : " est de 18

voici mon code :

Code :

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

1
2
3
4
5
 'coordonnée gps
                    Dim debut_coog As Integer = TextBox1.Text.IndexOf("Coordonnees :     ") + 18
                    Dim fin_coog As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_coog)
                    Dim longeur_coog As Integer = fin_coog - debut_coog
                    coo_lambert = TextBox1.Text.Substring(debut_coog, longeur_coog)

le soucis, c'est que mon programme à reçu ce matin les coordonnées sous cette forme :

Coordonnees : 87427129 248510992

du coup moins de 18 caractère entre le début de Coordonnées et le premier chiffre !
auriez une piste, pour résoudre mon problème ?

[Graffito]

On peut utiliser les fonctions :

• String.Replace() pour remplacer "Coordonnees :" par ""
• String.Trim() pour enlever les blancs de début et de fin.

[mdevaux62]

Bonjour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    'Cas 1 : "Coordonnees : 875243 2481718"
    'Cas 2 : "Coordonnees : 87427129 248510992"
    'Exemple d'appel de la fonction
    Dim nombres() As String = RecupererValeurs("Coordonnees : 875243 2481718")
 
    Private Function RecupererValeurs(ByVal chaine As String) As String()
        'Les valeurs commencent toujours après le terme "Coordonnées : " . 
        'On supprime donc cette portion de texte
        chaine = chaine.Substring("Coordonnees : ".Length - 1)
        'Il ne reste plus qu'à récupérer les 2 valeurs qui sont séparées par un espace
        Dim valeurs() As String = chaine.Trim.Split(" ")
        Return valeurs
    End Function

[gastoncs]

et comment puis je faire pour affecter séparément les 2 valeurs a 2 variables, j'ai essayé ce code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim chaine As String
                    chaine.Substring("Coordonnees : ".Length - 1)
                    Dim valeurs() As String = chaine.Trim.Split(" ")
 
'ma variable chaine contient 87427129   248510992 
 
Dim sep() As String 'tableau pour les coordonnées
            sep = Split(chaine, "    ") 'affecte à un tableau la 1er et 2eme chaine entre 4 espaces malheureusement dans mon exemple ci dessus j'ai 3 espaces :(
            coo_lambert_x = CDbl(sep(0)) 'affecte a la var la coordonnée x en LT2E converti en Double
            coo_lambert_y = CDbl(sep(1)) 'affecte a la var la coordonnée y en LT2E converti en Double

[mdevaux62]

Une solution envisageable : convertir tous les "doubles espaces" en "simple espace" avant d'extraire les valeurs :

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
 
        Dim chaine As String = "Coordonnees : 87427129       248510992"
        Dim coo_lambert_x As Double
        Dim coo_lambert_y As Double
        'On remplace TOUS les doubles espaces par un espace SIMPLE
        Do
            chaine = chaine.Replace("  ", " ")
        Loop Until chaine.Contains("  ") = False
        'On supprime le terme "Coordonnees : "
        chaine = chaine.Substring("Coordonnees : ".Length - 1)
        'On récupère les 2 valeurs qui sont désormais séparées par un SEUL espace
        Dim valeurs() As String = chaine.Trim.Split(" ")
        'On affecte ces valeurs aux variables
        coo_lambert_x = Double.Parse(valeurs(0))
        coo_lambert_y = Double.Parse(valeurs(1))

[gastoncs]

Malheureusement j'ai d'autre donnée a extraire parmi celle ci, n'existerait il pas une autre solution en sachant que l'espace entre les 2 valeurs numérique peu varié ?

Coordonnees : 87427129 248510992
Coordonnees : 875075 2487061