ouvrir un fichier écrit en ASCII

Bonjour à tous et toutes,

Voilà, il se trouve que j'ai fichier écrit en ASCII mais je suis comme un chien qui aurait pondu un oeuf comment faire pour le déchiffer à l'ouverture?

S i qq à une idée merci.

To be or not to be

Tu aurais pu être un peu précis dans ta question.
Tu veux l'ouvrir dans un TMemo, un TRichEdit, ou le lire à partir d'un TFileStream ou des méthodes Pascal ?
En gros, dis nous ce que tu veux en faire de ce fichier et on te dira comme y arriver.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

Ok ça roules.

Il s'agit d'un fichier que je voudrai ouvrir tout simplement dans un fichier texte pour connaître les informations qu'il comporte.

A plus

To be or not to be

Salut,
donc tu ne sais pas sur quel support tu veux le visionner.
Si c'est ça tu mets un TMemo sur ta Form et un TBoutton en dessous et dans le code du bouton tu écris ceci:


procedure TForm1.Button1Click(Sender : TObject);
Begin
  Memo1.Lines.Clear; // On efface le contenu du Memo
  Memo1.Lines.LoadFromFile('C:\Mon_Rep\Mon_Firchier.txt'); // et on charge le Fichier à Visionner
End;

---

 n'oubliez pas de cliquer sur Réponse Acceptée si elle vous convient

---

@+
Cirec

Alors, dans ce cas, tu peux passer par un TStringList.


Un petit exemple ne fait pas de mal.

---

var
  S: TStringList;
  I: Integer;
begin
  S := TStringList.Create;
  S.LoadFromFile('C:\\Mon Fichier.txt');
  for I := 0 to S.Count - 1 do
  begin
//    Traitement de la ligne I qui est accessible par S[I]
//    Par exemple :
    if S[I] = 'Say Hello'then
      ShowMessage('Hello')
    else if S[I] = 'Say Bye'then
      ShowMessage('Good bye!');
  end;
  S.Free;  // Ne pas oublier de libérer le fichier !!!!
end;

---

 
@ +
Florent

Si tu ne te plantes pas ......
tu ne pousseras jamais

Ah tiens, Cirec, tu as eu une autre approche. (ton message n'était pas affiché quand j'ai rédigé le mien)
Tout dépend de ce qu'il appelle par "connaître les informations qu'il comporte"
Pour moi, ça voulait dire lire le fichier en interne et non pas le montrer à l'utilisateur.

Au moins, il aura eu deux versions: on verra bien quand il reviendra.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

Salut Florenth,
ton message n'était pas affiché quand j'ai rédigé le mien
C'est pas un souci, moi ça m'arrive souvent et je crois tous ceux qui répondent aux questions passent par là tôt où tard

Et comme la question de Bierataise était pas très claire, j'ai penché pour la démo du Mémo
elle permet la visualisation et la modification
et il y a encore la version : "Var F: File of ... où TextFile" BlockRead...

et c'est ce qui me plait, entre autres choses, c'est qu'il y a souvent plusieurs solutions à un "problème"

---

@+
Cirec

"C'est pas un souci, moi ça m'arrive souvent et je crois tous ceux qui répondent aux questions passent par là tôt où tard"
Je le sais bien; c'est pas la première fois que ça m'arrive.

Moi aussi j'aime bien qu'il y ait plusieurs solutions à un problème.
Mais la solution du BlockRead et des fichiers typées hérités de TurboPascal, je trouve ça un peu plus complexe et pas forcement génial. Je préfère largement un TFileStream à la place d'un 'File of Record' même si c'est pas spécialement fait pour ça.

Un détail: tu n'es pas obligé d'appeler Memo.Clear avant de faire un LoadFromFile(), ça se fait tout seul ^^

Si tu ne te plantes pas ......
tu ne pousseras jamais

Encore un fois oui tu as raison le LoadFromFile réinitialise la liste avant de charger le fichier mais c'est une habitude

en ce qui concerne les BlockRead & Cie  c'est en fait pas si complexe qu'il n'y parait et ca peut toujours être utile ...

---

@+
Cirec

Salut,

 

Comme je suis dans les blocks en ce moment, on y va comme ca on aura tout fait. Code non testé (et oui pas Delphi sous les yeux).

 

Procedure TForm1.LireFichierClick (Sender : TObject);
Var
F : TextFile;
Lig : String;
Begin
{$I-}
Memo.text:='';
AssignFile(F,'MonFichier.txt');
Reset(F);
While not EOF(F) do
Begin
ReadLn(F,Lig);
Memo.Lines.Add(Lig);
end;
CloseFile(F);
{$I+}
end;

A++