Discussion :

[BadFox]

salut,

je débute tout juste en pascal pour un tp, mais ça commence mal.
je dois faire un prog de gestion de stock, mais je ne sais pas comment faire une recherche dans un fichie texte "stock.txt" afin de retrouver un article, par exemple, suivant sa référence.

structure de stock.txt :
référence; designation; quantité; prix_unitaire
...

merci par avance, j'ai besoin de votre aide

[siocnarf]

Voici quelques pistes pour te dépatouiller avec ton TP:

• 1) Tu ouvres le fichier
  Pour cela, va voir dans l'aide de Turbo Pascal les mots clé: ASSIGN, RESET, EOF
  
  2) Tu passes un à un les enregistrements, jusqu'à tomber sur le bon... Par exemple:
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  Reference := '';
  while (not eof(f)) and (reference <> RefCherchee) do
          begin
          ReadLn(f, Reference);
          ReadLn(f, Designation);
          ReadLn(f, Quantite);
          ....
          end;
  if eof(f) then 
     writeLn('Référence inexistancte');
  else
     { Tu traites le cas de la référence trouvée }

  3) Tu fermes le fichier: va voir l'instruction CLOSE

Une fois que tu as compris le principe, tu peux améliorer le programme:
- Au lieu de faire ceci à chaque recherche, il est plus rapide d'avoir les données en mémoire et de les sauvegarder dans le fichier à chaque ajout, modification ou suppression.
- Peut-être utiliser un RECORD pour traiter plus plus globalement ton enregistrement ?
- En terme de performance pour la recherche, le mieux est de maintenir un index trié pour un accès direct sans avoir à parcourir tout le tableau en mémoire... mais c'est difficile pour bien le penser afin que le gain en performances soit réel (si on ne t'en a pas parlé, laisse tomber).



Où trouver des informations ?

• Dans l'aide de Turbo Pascal, il y a des exemples simples tout faits.
• En faisant une recherche dans le forum: il y a déjà eu des questions sur le sujet
• Regarde 'Cours et Tutoriels', notamment le cours sur Pascal d'Haypo.

[ALT]

Bonjour

Si c'est un fichier texte, il n'y a pas de champ.
Donc la lecture se fait ligne par ligne.
Par conséquent, le readln retournera l'ensemble de la ligne (référence; designation; quantité; prix_unitaire).
Il faut alors chercher la position du point-virgule séparateur, puis extraire les n premiers caractères (n=position du ';' moins 1).
Enfin, comparer la référence ainsi extraite avec la référence saisie.
Quand elles sont identiques...

Bon, je ne vais pas faire tout ton exo.

Mais l'essentiel est là.

NOTA : si la longueur de la référence est fixe, il est inutile de chercher la position du ';'
D'autre part, les fonctions de recherche, d'extraction & de comparaison existent en TurboPascal. Mais si tu ne les connais pas, tu peux les créer, c'est très facile.

Cordialement

[M.Dlb]

Seulement deux fonctions sont utiles pour le traitement de ce genre de chaînes : copy ( pour copier une partie de chaîne dans une autre ) et pos ( pour trouver la première occurence d'un caractère dans une chaîne ).
Tu auras peut-être ausi besoin de la fonction delete pour supprimer une partie d'une chaîne... ça dépendra de la façon dont tu tes chaînes
a+

[Sub0]

Salut!

...mais ça commence mal

T'es pas au bout de tes peines alors!
La prog, c'est bien souvent que des problèmes à résoudre!

Avec toutes ces réponses, depuis plus d'1 mois, ton problème est-il résolu ou pas?
Car je peux te proposer une autre méthode, non pas pour traîter les chaînes de
caractères, mais pour utiliser des fichiers avec un enregistrement...

Sinon, met le tag résolu stp, à+

[M.Dlb]

Ne te fatigue pas Sub0 ! BadFox a sûrement déserté, son TP étant terminé et sûrement rendu !
Ce genre de cas arrive trop souvent malheureusement....
a+

[Sub0]

oui, wormful, j'ai posté, et après j'ai vu la date!
Je me doutais qu'il n'était pas derrière son PC à scruter le forum pour avoir des réponses!

Je mets le tag résolu à sa place donc. Merci, à+

[BadFox]

Désolé de ne plus avoir suivi le topic, mais je n'y pensais plus.
et je n'ai pas reçu d'avertissement alors que je surveillais ce topic ! ce qui ne pas aidé.
je serais intéressé de connaître ton autre méthode, à titre informatif, ça ne peut qu'être bon à savoir.
et sinon, pour ce problème de surveillance de topic et de mail pas reçu, vous n'auriez pas une explication, je ne comprends pas ce qui se passe mal ?
par avance merci

[Sub0]

Salut!

Tu as sûrement oublié de cocher la case "m'avertir lors d'une réponse"...
Maintenant, cette case est cochée d'office quand tu postes un nouveau sujet.
En ce qui concerne ma méthode, il n'ya rien de très particulier, il sagit d'utiliser des enregistrements, trie à bulles...
à+

[M.Dlb]

hallucinant...

[BadFox]

nan, j't'assure, je l'avis coché justement, j'avais même mis automatiquement à chaque fois qu'elle soit coché et il était aussi marqué que je surveillais ce topic mais bon...

voilà, je suis quand même revenu présenté mes excuses à ceux qui m'ont répondu et à qui je n'avais pas donné signe de vie.
à+

[M.Dlb]

OK mais, quand même c'est "abuser", comme disent les jeunes !
Au moins, t'es revenu contrairement à plein d'autres qui ne se sont plus montrés....