Discussion :

[kubito]

bonjour à tous,

j'ai un petit souci.
Dans mon memo2, j'ai ceci :

Technologiederobot 12
Systèmesd'armes 74
Technologiedelaser 13

(la il n'y a que 3 lignes mais mon memo en contient 30. De plus, les valeurs sont issus d'un copier/coller, donc je ne connais pas les valeurs en lancant l'application).

Le code suivant est sencé me donner dans le champs "defarmes", la valeur "74" mais elle me donne la valeur 1.
Pourriez me dire pourquoi et me dire ou est l'erreur dans mon code ?
Je sais q'uil n'est pas super mais c'est la seule facon que j'ai trouvé pour recuperer la dite valeur.

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
for i:= 0 to memo2.Lines.Count
    do
      begin
        if pos('Systèmesd''armes',memo2.lines[i])=0
          then
            begin
              for x := 0 to length(memo2.Lines[i])
                do
                  if (memo2.Lines[i][x]='0')
                    or (memo2.Lines[i][x]='1')
                    or (memo2.Lines[i][x]='2')
                    or (memo2.Lines[i][x]='3')
                    or (memo2.Lines[i][x]='4')
                    or (memo2.Lines[i][x]='5')
                    or (memo2.Lines[i][x]='6')
                    or (memo2.Lines[i][x]='7')
                    or (memo2.Lines[i][x]='8')
                    or (memo2.Lines[i][x]='9')
                      then
                        txtdefarmes.Text:= memo2.Lines[i][x]
            end
          {else
            txtdefbouclier.Text:='';}
      end;

[sjrd]

Code :

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

1
2
3
4
5
6
Text := memo2.Text;
Debut := Pos('Systèmesd''armes', Text);
while (Debut <= Length(Text)) and (not (Text[Debut] in ['0'..'9']))) do inc(Debut);
Fin := Debut;
while (Fin <= Length(Text)) and (Text[Fin] in ['0'..'9']) do inc(Fin);
txtdefarmes.Text := Copy(Text, Debut, Fin-Debut);

Valà c'est tout Pas besoin de plus

D'abord on repère 'Systèmesd''armes' dans tout le texte du memo, puis on repère le premier chiffre qui suit cela, et puis on cherche le premier non-chiffre qui suit le premier chiffre.
Ensuite on utilise la fonction Copy pour récupérer ce qu'il y a entre

[kubito]

Ben, ca marche nickel.
Quel difference entre nos 2 codes : 24 lignes (qui ne marchent pas ) contre 7 (qui fonctionnent)...la difference entre un pro et un utilisateur du dimanche.
Je vais decortiquer ton code avec plein de commentaires et tout et tout...
Merci beaucoup.

[Matt2094]

Ben, ca marche nickel.
Quel difference entre nos 2 codes : 24 lignes (qui ne marchent pas ) contre 7 (qui fonctionnent)...la difference entre un pro et un utilisateur du dimanche.
Je vais decortiquer ton code avec plein de commentaires et tout et tout...
Merci beaucoup.

Mais aussi, toi, tu as éxagérément éspacé ton code ...

[kubito]

ben, j'ai fait comme on m'a appris...et puis, comme je le disais, je suis une quiche