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 43 44 45 46 47 48 49 50
| void __fastcall TForm_agenda::BitBtn_importClick(TObject *Sender)
{
//chargement du fichier
ProgressBar1->Visible = true;
///////////////////////////////////
// ici on va charger la StringGrid avec le fichier
int i;
int j;
char a;
AnsiString convertisseur;
TStringList *MyStringList = new TStringList();
MyStringList->LoadFromFile(FilePath);
ProgressBar1->Max = MyStringList->Count;
ProgressBar1->Min = 0;
ProgressBar1->Step = 1;
for(i=0;i<MyStringList->Count;i++,ProgressBar1->StepIt())
{
convertisseur=MyStringList->Strings[i];
// teste pour trouver les separateurs en fonction on modifie
if (convertisseur.Pos("\t") > 0)
a = '\t';
else
if (convertisseur.Pos("\;") > 0)
a = '\;';
else
if (convertisseur.Pos("\,") > 0)
a = '\,';
// on va chercher le separateur soit ( "\t" ) soit ( "\;" ) soit ( "\," )
for(j=0;(convertisseur.Pos(a)>=1);j++)
{
// on va chercher le separateur soit ( "\t" ) soit ( "\;" ) soit ( "\," )
convertisseur[convertisseur.Pos(a)]='\n';
//voir s'il faut ajouter un test sur le cas où j=0
if(j>=StringGrid1->ColCount)
StringGrid1->ColCount = j;
if(i>(StringGrid1->RowCount-1))
StringGrid1->RowCount = i+1;
StringGrid1->Rows[i]->Text = convertisseur;
}//fin du 2ème for
}//fin du 1er for
delete MyStringList;
// Fichier_Charge = true;
ProgressBar1->Visible = false;
} |
Partager