Discussion :

[idoclub]

Bonjour ,
je dois faire un automate et j'ai quelque souci voici mon énoncé.
"Vous devez construire un programme qui lit un fichier texte contenant une annonce de vente ou location de
maison ou nous pouvons trouver un (ou plusieurs) prix. Le but du programme est de détecter tous les prix du texte."


mon souci est que je ne vois pas vraiment comment créer le programme, j'avais en tête d'ouvrir l'annonce en tant que file of byte puis détecter les nombres avec la fonction qui permet de connaitre la nature de l'élément grâce au code ASCII ( je ne me souviens plus de la fonction )


merci

[Alcatîz]

Bonjour et bienvenue !

Plutôt que détecter les nombres du texte, ton programme devrait commencer par détecter la devise ('€', 'EUR'). Car sur une annonce, il y a beaucoup de nombres : la surface, le nombre de pièces, des distances ("à 3 km du centre ville"), etc.

Ensuite, le prix peut soit précéder, soit suivre la devise ('EUR 137500', '137500 €'); le prix peut être écrit avec des séparateurs de milliers ('137 500','137.500'), avec des décimales...

Il y a de quoi s'amuser !

[idoclub]

merci pour ta réponse,je pense que j'ai compris ce que tu ma dit je crois que je vais commencé pas faire une procédure qui détecte les mots 'euros, /mois... les choses principales qui se trouvent dans les annonces' mais je ne vois pas comment je pourrait faire pour couper le prix qui se trouverait avant ou après ces indices, je pensais couper ce qui se trouvait avant le prix mais comme je ne sais pas la longueur exacte je bloque.


Merci

[Alcatîz]

je pensais couper ce qui se trouvait avant le prix mais comme je ne sais pas la longueur exacte je bloque.

Si tu pars du principe que le prix précède toujours la devise (ce qui n'est pas toujours le cas ), tu peux récupérer les chiffres un à un, en partant de l'espace qui précède la devise, en remontant la chaîne jusqu'à rencontrer des caractères autres que des chiffres (en passant simplement les espaces).

[idoclub]

Oui je vois le principe, mais ce qui me pose problème c'est que si j'utilise filepos pour savoir si la devise est contenue ou pas dans le fichier texte comment je fais pour amener le pointeur au niveau de la devise pour ensuite reculer.
merci



edit:

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
25
26
27
28
29
30
31
32
program aaaaaaa;
var t : text ;
    s,b: string ;
    a,cmpt: integer;
    pasfini: boolean;
begin
assign(t,'nom');
reset(t);
 
 
readln(t,s);
if pos('euros',s)<>0 then
   begin
   a:= pos('euros',s);
   b:= copy(s,1,a-2);
   cmpt:= a-2;
   pasfini:= true ;
   while  pasfini do
          begin
          if (b[cmpt]<>'1') and (b[cmpt]<>'2') and (b[cmpt]<>'3') then(je ne me rappelle plus comment dire que b[cmpt] n''est pas un nombre)
             begin
             delete(b,1,cmpt); 
             pasfini:= false;
             end
          else
              begin
              cmpt:= cmpt-1;
              pasfini:= true;
              end;
 
          end;
   end;

je suis arriver a ce programme après vos conseille, est-ce que c'est correct ?

je sait que le programme ne fonctionne qu'avec 'euros' mais si ceci est bon comment faire pour que sa fonctionne pour les autres mot clés ?

[Alcatîz]

Tu dois créer une boucle qui lit entièrement ton fichier et ne pas oublier de refermer celui-ci.

Code :

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

1
2
3
4
5
6
7
8
  Assign(t,'nom');
  Reset(t);
  while not EOF(t) do
    begin
      ReadLn(t,s);
      ...
    end;
  Close(t);

N'oublie pas non plus de gérer les erreurs d'ouverture ou de lecture du fichier.

Tu dois également penser que le prix peut se trouver à la fin d'une ligne et la devise au début de la suivante; je te conseille donc de garder systématiquement une copie de la ligne précédente.

Pour chercher plusieurs versions de la devise, voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
      a := Pos('euro',s);
      if a = 0
         then
           begin
             a := pos('€',s);
             if a = 0
                then
                  a := Pos('eur',s);
           end;
      if a <> 0
         then   (* Devise trouvée *)
           begin
             ...
           end;

Pour faciliter ta recherche, tu devrais mettre ta chaîne entièrement en minuscules (ou en majuscules, mais dans ce cas il faut bien évidemment tester la devise en majuscules).

Pour tester qu'un caractère est un chiffre, tu peux faire

Code :

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

if t[b] in ['0'..'9']