Discussion :

[El-Diablo-]

Bonjour,

Je veux écrire des données retirées de 2 TEdit et les placé dans un fichier ".txt" dont l'utilisateur peut choisir le quel.

C'est a dire, quand il lance le programme, l'utilisateur écrit le chemin de son fichier ".txt", par exemple : "C:\Temp\toto.txt" et le programme doit ecrire dans ce fichier. J'ai crée ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
   if(Key == VK_RETURN) {
 
      AnsiString asTexteEcrire = "" ;
      FILE *FileRead = NULL ;
 
      FileRead = fopen("C:\\cLocalisation","a+t") ;
      asTexteEcrire = edNomEcrire->Text ;
      asTexteEcrire = asTexteEcrire + "\t\t" ;
      fprintf(FileRead,asTexteEcrire.c_str()) ;
 
      asTexteEcrire = edPrixEcrire->Text ;
      asTexteEcrire = asTexteEcrire + "\n" ;
      fprintf(FileRead,asTexteEcrire.c_str()) ;
 
      asTexteEcrire = "" ;
      edNomEcrire->Clear() ;
      edPrixEcrire->Clear() ;
 
      fclose(FileRead) ;
   }

Je ne sais pas pourquoi cela ne fonctionne pas, car le programme se lance sans aucune erreur mais j'ai rien qui se passe.

[kurul1]

alors utilise un TMemo

tu met ton texte dedans

et ensuite tu fait Memo->SaveToFile(Nom du fichier)

et cela devrait faire ce que tu attend

[El-Diablo-]

J'ai le message: SaveToFile n'est pas un membre de TMemo...

[marcootz]

Tu peux essayer cette methode d'écriture dans le fichier qui fonctionne pour moi :

Code :

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

1
2
3
4
5
6
7
 
AnsiString str = "bla bla bla";
AnsiString chemin = "C:\\cLocalisation";
 
file = new TFileStream(chemin, fmCreate);
file->Write(str.c_str(),strlen(str.c_str()));
delete file;

[El-Diablo-]

Merci pour ta réponse marcootz mais ca ne fonctionne pas... kurul1, est-tu sur de m'avoir donné le bon code ?

[ero-sennin]

Salut,

Ca serait plutot :

Code :

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

Memo->Lines->SaveToFile(MonFichier)

A+

[bandit boy]

Salut,
C'est :

Code :

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

Memo1->Lines->SaveToFile("C:\\cLocalisation.txt");

[El-Diablo-]

Salut,

Ca serait plutot :

Code :

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

Memo->Lines->SaveToFile(MonFichier)

A+

MonFichier est le nom d'un variable dans laquelle je veux mettre la localisation de mon fichier ?

[ero-sennin]

Oui!

Soit tu stockes dans une variable le chemin de ton fichier, ou tu l'écris directement sans passer par la variable ce qui donnerai :

Code :

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

Memo->Lines->SaveToFile("C:\\TEMP\\toto.txt");

[kurul1]

kurul1, est-tu sur de m'avoir donné le bon code ?

Excuse moi j'ai oublié de préciser

Code :

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

1
2
3
 
// pour ajouter une ligne dans ton Memo
Memo->Lines->Add("Texte")

et comme te l'on déjà dit les collègues

Code :

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

1
2
3
 
//Pour enregistrer le fichier
Memo->Lines->SaveToFile(NomFichier)

[El-Diablo-]

Le seule problème c'est qu'avec cette facon de faire la chose, quand je ferme le programme et que je veux ajouter des données dans le même fichier il efface tout et garde les donnés ajoutés la dernière fois.

[El-Diablo-]

J'ai parler trop vite ! Je vais testé ca !

[kurul1]

Tu peux charger un fichier dans un Memo également

Code :

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

1
2
 
Memo->Lines->LoadFromFile(NomFichier);

[El-Diablo-]

Comment je fais si je veux modifier le texte introduit dans le TMemo avant de l'inscrire dans le fichier ".txt" ?

[kurul1]

La propriété Lines de TMemo est un objet TStrings donc tu peux utiliser les propriétés de TStrings pour manipuler les lignes de ton Memo

Par exemple, admettons que tu veux récupérer la 30ème ligne de ton TMemo

Tu fait ceci

Code :

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

1
2
 
   AnsiString Ligne = Memo->Lines->Strings[29];

Si tu veux modifier la totalité du texte, tu peux utiliser la propriété Text de ton Memo

[kurul1]

n'oubli pas le bouton
en bas de la page si ton problème est résolu.

[El-Diablo-]

J'ai juste encore une question, mon petit programme donne ceci :



Comment je fais si je veux additioner tout les montants qui sont dans la "colonne" de droite ?

[kurul1]

Est-ce que tes lignes on toujours le même format ?

[El-Diablo-]

Ecoute j'ai fait différament, j'ai fait comme ceci : J'ai créer un deuxieme TMemo où je mets touts les prix, et j'ai garder l'autre TMemo ou je garde le libellé. Donc il faudrai juste additionner toutes les lignes d'un TMemo. Comment faire ?

[kurul1]

C'est plus simple comme tu as fait la, ca pa plus mal
Si tu es sur que ton TMemo ne contient que des chiffres tu peux faire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   // Somme
   double Somme = 0.0;
 
   // on balaye l'ensemble des lignes du Memo
   for(int i = 0; i < Memo->Lines->Count; i++)
   {
      // Tu ajoute la valeur
      Somme += Memo->Lines->Strings[i].ToDouble();   
   }

Après pour être sur de ne pas avoir d'erreur, tu peux tester si ta ligne contient bien un double.