Discussion :

[clairdelune]

Salut,

j'ai créé un fichier « test.txt » en utilisant ce code :

Code Caml :

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

1
2
3
4
5
6
7
8
let oc = open_out "C:/test.txt"  in
Printf.fprintf oc "%s " "hello world" ; 
Printf.fprintf oc "%c" '\n'; 
Printf.fprintf oc "%4.2f" 3.14 ; 
Printf.fprintf oc "%c" '\n';  
Printf.fprintf oc "%d " 7 ; 
Printf.fprintf oc "%c" '\n';  
close_out oc ;;

et, après, je voulais le lire en exécutant le code suivant :

Code Caml :

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

1
2
3
4
5
6
7
let ic = open_in "C:/test.txt" in 
try
while true do
let obj = input_value ic 
done ;
with _ -> 
close_in_noerr ic ;;

et voila le message d'erreur :

Code :

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

1
2
3
4
Characters 139-143:
  done ;
  ^^^^
Syntax error

Merci.

[adtunum]

la construction c'est "let in" à l'intérieur d'une expression et "let" sans "in" au niveau de la racine du code. ici tu écris "let obj = input_value ic" et donc il manque le "in" à la fin et il manque une expression à la suite où serait utilisé le lien (la variable) créé.

J'ai modifié ton code d'écriture du fichier, l'espace entre l'entier et la fin de ligne perturbait la fonction int_of_string, j'ai aussi simplifié l'écriture des fin de ligne :

Code :

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

1
2
3
4
5
6
7
let () =
  let oc = open_out "/tmp/test.txt" in
  Printf.fprintf oc "%s\n" "hello world";
  Printf.fprintf oc "%4.2f\n" 3.14;
  Printf.fprintf oc "%d\n" 7;
  close_out oc;
;;

Puis tu lis le tous avec :

Code :

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

1
2
3
4
5
6
7
let () =
  let ic = open_in "/tmp/test.txt" in
  let hello_str = input_line ic in
  let my_pi = float_of_string(input_line ic) in
  let my_int = int_of_string(input_line ic) in
  Printf.printf " %s\n %f\n %d\n" hello_str my_pi my_int;
;;

tu remarqueras qu'à chaque lecture d'un élément il faut savoir ce qu'on va lire, si c'est un entier un réel, ou une chaine de caractère.

[adtunum]

à noter aussi que si tu utilises input_value, il faut avoir utilisé output_value pour écrire dans le fichier, et il faut savoir que l'écriture en question ne sera pas de l'ascii mais du binaire, lire la documentation du module Marshal pour plus d'information, de plus un synonyme de Marshal est sérialisation, je te conseille de [ame="http://fr.wikipedia.org/wiki/Sérialisation"]lire ceci[/ame] pour comprendre ce qu'est la sérialisation.

[adtunum]

à noter aussi que si tu utilises input_value, il faut avoir utilisé output_value pour écrire dans le fichier, et il faut savoir que l'écriture en question ne sera pas de l'ascii mais du binaire, lire la documentation du module Marshal pour plus d'information, de plus un synonyme de Marshal est sérialisation, je te conseille de lire ceci : [ame="http://fr.wikipedia.org/wiki/Sérialisation"]sérialisation[/ame] pour comprendre ce qu'est la sérialisation.

[clairdelune]

à noter aussi que si tu utilises input_value, il faut avoir utilisé output_value pour écrire dans le fichier, et il faut savoir que l'écriture en question ne sera pas de l'ascii mais du binaire, lire la documentation du module Marshal pour plus d'information, de plus un synonyme de Marshal est sérialisation, je te conseille de lire ceci : sérialisation pour comprendre ce qu'est la sérialisation.

merci beaucoup pour votre reponse,mais comment faire pour recuperer le contenu d un fichier qui contient un ensemble de lignes de chaines de caractere et suposant qu'on ne connait pas son contenu?
je pense on sera obligé d utiliser une boucle.

[Cacophrene]

Bonsoir,

comment faire pour recuperer le contenu d un fichier qui contient un ensemble de lignes de chaines de caractere et suposant qu'on ne connait pas son contenu?

Pour récupérer le contenu d'un fichier texte ordinaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
let load file =
  try
    let ich = open_in file in
    let len = in_channel_length ich in
    let buf = Buffer.create len in
    Buffer.add_channel buf ich len;
    close_in ich;
    Some buf
  with _ -> None

Cordialement,
Cacophrène

[clairdelune]

Bonsoir,



Pour récupérer le contenu d'un fichier texte ordinaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
let load file =
  try
    let ich = open_in file in
    let len = in_channel_length ich in
    let buf = Buffer.create len in
    Buffer.add_channel buf ich len;
    close_in ich;
    Some buf
  with _ -> None

Cordialement,
Cacophrène

Merci beaucoup Cacophrène;

[InOCamlWeTrust]

J'ajoute que tes printf ne servent à rien dans ton code. De simples print_endline suffisent amplement. Printf ne sert réellement que lorsque tu manipules des variables dans les arguments. Si tu places des constantes, autant écrire le texte en dûr. Ca sert à ça le printf.