Discussion :

[momo_m]

Bonjour,

Je veux faire une recherche d'une chaine de caractère dans un fichier via la méthode naif, mais j'arrive pas à avoir la fonction ou je peux récupérer le chemin d'un fichier et demander à l'utilisateur de donner le mot à rechercher et puis lancer la fonction naive pour donner les occurences de ce mot dans le fichier.

Merci pour vos réponses,

[drunkskater]

Salut !

la fonction ou je peux récupérer le chemin d'un fichier et demander à l'utilisateur de donner le mot à rechercher et puis lancer la fonction naive pour donner les occurences de ce mot dans le fichier.

C'est un peu vague comme demande !

Pour ce qui est de lire des fichiers, les modules suivants peuvent t'être utiles :
- Pervasives (le module de ce qui est ouvert par défaut)
- Filename (pour manipuler des noms de fichiers)
- Sys (pour avoir des infos sur les fichiers)

Par exemple, si tu as le chemin du fichier tu peux utiliser open_in pour ouvrir une input channel (type in_channel) que tu pourras ensuite lire avec des fonctions comme input_line (pour lire ligne par ligne) ou autre.

Un petit exemple moche écrit à la va-vite pour illustrer :

Code :

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

1
2
3
4
5
6
7
8
let cat file =
  let chan = open_in file in
  let rec aux () =
    try print_endline (input_line chan); aux ()
    with End_of_file -> close_in chan
  in
  aux ()
;;

Pour plus de détails : http://ocaml.org/learn/tutorials/file_manipulation.html

Bonne chance !

PS: n'oublies pas les de fermer les channels quand tu n'en a plus besoin (close_in / close_out)