Discussion :

[fpascal]

Bonjour,

Je doit renplacer un programme qui converti des données pour un autre programme.

Je doit travailler sur des fichiers, style fichier text.
Je me suis souvenu mes vieu cour de c, et j'ai taper sa pour commancer/tester :

Code :

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

1
2
3
4
5
6
FILE *f;
char ligne[256];
f=fopen("S1.IRM","r");
fread(&ligne,sizeof ligne,1,f);
fclose(f);
Label1->Caption=ligne;

J'ai bien sur rajouter au début un include stdio.h

Mon programme compile bien, mais lorsqu'il exécute la ligne du fread il plante :

Le projet meteo.exe à déclanché la classe d'Exception EAccessViolation avec le message 'Violation d'accès à l'adresse 3286ED28 dans le module 'CC3280MT.DLL'. Lecture de l'adresse F832F7FC

Si je mes la ligne du fread en commentaire, le programme tourne.

J'ai dut oublier un petit détaille depuis le temps.

[kurul1]

comment est la structure de ton fichier texte ?
As-tu différentes valeurs sur une ligne ?

Tu peux charger le contenu de ton fichier dans un TStringList

Code :

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

1
2
3
 
TStringList *Fichier = new TStringList();
Fichier->LoadFromFile("S1.IRM");

Et ainsi avoir acccès à chaque ligne de ton fichier.

Code :

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

1
2
3
4
5
6
7
 
// On parcourt le fichier
for(int i = 0; i < Fichier->Count; i++)
{
    // affichage de la ligne i
    ShowMessage(Fichier->Strings[i]);
}

[fpascal]

D'abort merci.
J'arrive à lire les ligne de mon fichier.
S'est vrais que le fopen doit commencer à dater.
Pour répondre à tes question, j'ai un enregistrement par ligne, mais avec plusieur valleur à la suite. Voici pour exemple 2 ligne du fichier :

Code :

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

1
2
80401032006 81   181   185   175   178   185   193   164   174   169   154   163   161   159   151   171   166   171   192   184   173   167   169   152   152   171   158   171   159   158   166   167
80501032006 81     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0

Mais maintenat que je sais avoire les valeur dans une variable, je vais savoire me démerder pour extraire se que j'ai besoin dans se fichier (je doit juste relire la date du dernier enregistrement)

Par contre je vais devoire rajouter des lignes à la fin de se fichier, avec la même structure.
Si vous pouver donc m'indiquer commen faire l'opération inverse. Sa me rendrait service.

[kurul1]

Je te demandais la Structure de ton fichier pour t'aider à en extraire le contenu mais je vois que tu ten sort donc c'est tou bon.

il n'y a pas malheureusement de fonction SaveToFile pour un TStringList

Moi je passe par un TMemo pour sauvegarder dans un fichier mais peut être qu'il y à plus simple

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
 
TStringList *Fichier = new TStringList();
Fichier->LoadFromFile("S1.IRM");
 
.......
 
// Création du Memo
TMemo *Memo = new TMemo(Form);
 
// On balaye le TStringList
for(int i = 0; i < Fichier->Count; i++)
{
   // Ajout de la ligne dans le Memo
   Memo->Lines->Add(Fichier->Strings[i]);
}
 
// Enregistrement du fichier
Memo->Lines->SaveToFile("S1.IRM");

[bakaneko]

il n'y a pas malheureusement de fonction SaveToFile pour un TStringList

TStringList étant un enfant de TStrings, il possède une méthode SaveToFile (en tout cas sous BCB6).

[kurul1]

Je suis bète des fois, je sais pas pourquoi. Ca me paraissait bisard qu'il y est la méthode pour charger et pas celle pour sauver.

Merci à toi bakaneko

Donc après correction, pour sauver ta TStringList dans un fichier

Code :

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

1
2
 
Fichier->SaveToFile("S1.IRM");

Dsl pour avoir raconté des anneries

[fpascal]

Merci beaucoup du coups de main.