Utiliser un ficher texte dans un programme

Version imprimable

09/05/2007, 18h12
smow86

Utiliser un ficher texte dans un programme

BONJOUR A TOUS
voila je suis en train de creer un programme de codage/decodage pour mon projet d'info (et j'ai presque fini en grande partie grace a votre site). le probleme c'est que pour ma partie decodage j'utilise l'analyse frequentielle (cad que je remplace la lettre la plus fréquente du texte par E: la lettre la plus fréquente de la langue francaise etc..) et qu'une chaine de caractere de type STRING ne comprend que 255 caracteres. on comprend que ce type de programme fonctionne si le texte possede une certaine longueur. J'aimerai donc que mon programme puisse decoder un texte entré sur le blocnote par exemple, ce qui permettrai d'avoir un texte plus long et de pouvoir utiliser le copier coller!
je vous remercie beaucoup pour l'aide que vous m'apporterez.
09/05/2007, 18h33
M.Dlb

Y'a la réponse à la question dans le titre du message :roll:

Je suppose que ce que tu ne sais pas c'est comment lire/écrire dans un fichier texte ?

Voilà le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  file_in, file_out : Text;
  c : char;
 
begin
assign(file_in, "in.txt"); (* recupère le fichier (in.txt) a partir duquel tu veux lire *)
assign(file_out, "out.txt"); (* recupère le fichier (out.txt) dans lequel tu veux écrire *)
 
reset(file_in); (* ouvre in.txt s'il existe *)
rewrite(file_out); (* crée ou écrase out.txt *)
 
if (not eof(file_in)) then (* si on n'est pas en fin de fichier *)
begin
  read(file_in, c); (* lit un caractère dans in *)
  write(file_out, c); (* écrit ce caractère dans out *)
end;
 
(* ferme les fichiers *)
close(file_in);
close(file_out);
end.

09/05/2007, 19h58
smow86

je vais essayer c'est super gentil!!
J'ai qq questions!:
en gros ta procédure elle copie ce qu'il y a ecrit ds un fichier in dans un fichier out c'est ca?
Les fichier in et out pascal les créé automatiquement ou il faut les faire avant?
ces fichier doivent-ils avoir une addresse précise?
est-ce que ca marche comme une chaine string cad si je fait file_in[1] ca me donnera la premiere lettre?
merci pour tout!

au fait a chaque vous retaper la procedure pour qu'on puisse la voir pq ya pas de copier coller ds pascal?

si qqun ve mon programme je pe le donner mais par contre je sais pas comment faire!
09/05/2007, 20h11
Loceka

Le mieux est encore que tu essayes...

Fais des essais avec des fichiers et regarde la doc des différentes fonctions.

Par contre j'ai rien compris à ton histoire de copier-coller et de réécriture des procédures.

Pour mettre ton code sur le forum il suffit de le copier dans ton post et de le mettre entre balises codes ([ CODE ] [ /CODE ], sans les espaces - ou tu cliques sur le # dans la barre d'édition du message)