Discussion :

[gastoncs]

Bonsoir,

j'ai une chaîne de caractère qui se présente sous la forme suivante :

Appel immédiat

bla bla bla

Vehicule : POLICE SECOURS 01 PARIS
Equipage : 01- SGT PIERRE LAFFREUX
02- ADJ JO LA BAVURE
03- SGT GOLDORAK ALAIN
04- CAL CHERIE FM
05- SGT BAT MAN
06- SAP NOIX DE COCO

Mais le nombres de chiffre change à chaque fois, augmenter ou diminuer (-01, -02....)

Pour les chiffres pas de problème, j'arrive a récupérer la position du dernier chiffre présent, mais ce que je n'arrive c'est récupérer la positon du dernier caractère se trouvant à la fin de la dernière ligne :
"dans notre cas : le dernier O de COCO"

je ne sait pas comment faire ! sachant que je ne peux pas utiliser :

Code :

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

ControlChars.NewLine

car il n'y a pas nouvelle ligne à la fin du dernier caractère de plus, les noms des personnes derrière les chiffres (-01, -02....) changent constamment !

comment puis je faire ?

Pour info voici le code qui me permet de récupérer le dernier chiffre, si ca peut aider !

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
Dim debut_equipage As Integer = attente.IndexOf("Equipage :") 'position du dernier "équipage :"
        Dim debut_nbr1 As Integer = attente.IndexOf("01-") 'position du dernier nombre
        Dim debut_nbr2 As Integer = attente.IndexOf("02-") 'position du dernier nombre
        Dim debut_nbr3 As Integer = attente.IndexOf("03-") 'position du dernier nombre
        Dim debut_nbr4 As Integer = attente.IndexOf("04-") 'position du dernier nombre
        Dim debut_nbr5 As Integer = attente.IndexOf("05-") 'position du dernier nombre
        Dim debut_nbr6 As Integer = attente.IndexOf("06-") 'position du dernier nombre
        Dim debut_specialiste As Integer = attente.IndexOf("Personnel sans vehicule :") 'position dans le cas d'un départ de specialiste
        Dim debut_nbr_choisie As Integer = 0
        If debut_nbr6 > debut_nbr5 Then 'si -06 est plus grand que -05 alors
            debut_nbr_choisie = debut_nbr6 'la variable prend la position de -06
        ElseIf debut_nbr5 > debut_nbr4 Then 'si -05 est plus grand que -04 alors
            debut_nbr_choisie = debut_nbr5 'la variable prend la position de -05
        ElseIf debut_nbr4 > debut_nbr3 Then 'si -04 est plus grand que -03 alors
            debut_nbr_choisie = debut_nbr4 'la variable prend la position de -04
        ElseIf debut_nbr3 > debut_nbr2 Then 'si -03 est plus grand que -02 alors
            debut_nbr_choisie = debut_nbr3 'la variable prend la position de -03
        ElseIf debut_nbr2 > debut_nbr1 Then 'si -02 est plus grand que -01 alors
            debut_nbr_choisie = debut_nbr2 'la variable prend la position de -02
        ElseIf debut_specialiste > debut_nbr1 Then 'sinon si specialiste est supérieur à -01 alors
            debut_nbr_choisie = debut_specialiste 'la variable prend la position de specialiste
        Else : debut_nbr_choisie = debut_nbr1 'autrement la variable prend la position de -01
        End If

[a.floranc]

Je ne sais pas si cela répond bien à ta question mais il existe :

Code :

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

Dim i As Integer = InStr(StrReverse("COCO"), "O")

où I est la position du premier caractère correspondant à la recherche et StrReverse retournant la chaîne à l'envers.

[gastoncs]

Ok mais dans mon cas je récupère la position de la dernière ligne ! Et comment faire car avant coco j'ai NOIX DE mais je pourrais avoir que une ou deux chaîne de caractère !

[Pol63]

sachant que je ne peux pas utiliser : ControlChars.NewLine car il n'y a pas nouvelle ligne à la fin du dernier caractère de plus, les noms des personnes derrière les chiffres (-01,

et pourtant ...

Code :

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

dim lignes() = split(lestring, vbcrlf)

Code :

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

1
2
3
4
5
 
for each ligne as string in lignes
  dim vars() = split(ligne, "- ")
  msgbox ( "numero : " & vars(0) & "  texte : " & vars(1))
next

à adapter car il y a de la friture en début de fichier ...