Avec TMemoryStream : remplacer.

Version imprimable

Bonjour et bonne année,

Pas tres calé en TMemoryStream ! (Cbuilder) et apres une apres-midi de recherche, je rend la main.:cry:
1) Pour changer tous les caractère ";" par "," dans 1 gros fichier, je fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 int T; char *C; char Ligne[545]; TMemoryStream* MS = new TMemoryStream(); MS->LoadFromFile("ESSAI.TXT"); T = MS->Size; C = new char[T]; MS->Read(C+1,T); for (int I=0; I<T; I++) { if (C[I] == ';' C[I]=','; // Je change les ";" par des "," dans tout le texte. } MS->Position = 0; MS->Write(C,T); MS->SaveToFile("ESSAI2.CSV"); delete MS; delete[] C; }
Evidemment ca fonctionne impécable !...

2) ce qui me plairait serait de pouvoir changer toutes les occurences ";;" par ",-,"
(Autrement dit tout les endroits ou il y a un double point-virgule insérer un signe moins)
Quelqu'un aurait-il la connaissance pour me mettre sur le "droit" chemin ?
Merci par avance.

jcsoft

Pour ma part, je passerais par des TStringList, par exemple ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
TStringList *SL1, *SL2;
 
SL1=new TStringList;
SL2=new TStringList;
SL1->LoadFromFile("essai.txt");
for(i=0;i<SL1->Count;i++) SL2->Add(TraiteLigne(SL1->Strings[i]));
SL2->SaveToFile("modif.txt"); 
delete SL1;
delete SL2;
}
//------------------------------------------------
AnsiString __fastcall TForm1::TraiteLigne(AnsiString A)
{
int i;
AnsiString B;
 
for(i=1;i<A.Length()+1;i++)
   {
   if(A[i]==';')
      {
      if(i<A.Length() && A[i+1]==';')
         {
         B+=',';
         B+='-';
         B+=',';
         i++;
         }
      else
         {
         B+=',';
         }
      }
   else
      {
      B+=A[i];
      }
   }
return B;
}

À bientôt
Gilles

03/01/2008, 20h30
jcsoft

Effectivement, j'étais peut-être trop omnubilé par le TMemoryStream,
je n'ai même pas penser au TStringList, qui apparemment m'a l'air assez rapide.

Ok pour ce rafraîchisement de "my Memory" :lol: et surtout pour la soluce,

Merci encore Gilles et bonne fin de soirée...
jcsoft