Discussion :

[yodark]

Bonjour à tous !

J'ai cherché dans plusieurs bouquins de delphi comment manipuler une chaine de caractère mais je n'ai pas vraiment trouvé comment faire une recherche dans le texte.

exemple j'ai une variable string qui dit "nombre de chiens = 6"
comment faire pour rechercher la valeur 6 et la stocker dans une variable int ?

[n0c8d]

j'ai fait un petit truc rapide si tu veux :

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
var
  str : string;
  entier  : integer;
  i :integer;
begin
  str := 'nombre de chien = 6';
  for i:=1 to length(str) do
    begin
      try
      if strtoint(str[i]) in [0..9] then
        entier:=strtoint(str[i]);
      except
      end;
    end;
end;

voila en esperant que cela fonctionne et te convienne

[n0c8d]

si l' entier n'est pas qu'un chiffre mais peut etre un nombre petite modif légère :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
  str := 'nombre de chien = 6242';
  nb := EmptyStr;
  for i:=1 to length(str) do
    begin
      try
      if strtoint(str[i]) in [0..9] then
        nb := nb + str[i];
 
      except
      end;
    end;
  entier:=strtoint(nb);

voila

[yodark]

merci !

et si je veux faire un truc genre un fichier texte avec

Code :

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

1
2
<image1> chien.jpg
<image2> cannard.jpg

comment récupérer d'abord chien.jpg dans un string et cannard.jpg dans un autre

[petitcoucou31]

une solution comme une autre , consiste a integer des caracteres type a ta chaine pour recupere les champs utiles , par exemple le nom de l'animal entre "[..]" [ chien 1] , un autre champs entre d'autres caracteres ..
il te suffit ensuite de recuperer ce qui se trouve entre tes caracteres type .
mais un tableau me semblerai plus simple dans ton cas , tes champs serai deja separé.

[Laurent Dardenne]

Pour info la construction suivante est à bannir dans tout code.

Code :

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

1
2
3
4
5
 
 try
   fais qq chose
  except 
  end;

Si vous avez un bloc d'exception nommez celles que vous gérez !

[rv66]

si l' entier n'est pas qu'un chiffre mais peut etre un nombre petite modif légère :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
  str := 'nombre de chien = 6242';
  nb := EmptyStr;
  for i:=1 to length(str) do
    begin
      try
      if strtoint(str[i]) in [0..9] then
        nb := nb + str[i];
 
      except
      end;
    end;
  entier:=strtoint(nb);

voila

pourquoi convertir chaque caractere, alors qu'il suffit de tester le caractere

Code :

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

1
2
3
4
5
 
....
if str[i] in ['0'..'9'] then
  nb := nb + str[i];
...