Bonjour,
J'ai un problème lors de mon imporation de mon fichier csv, il me manque une colonne à la fin...
voici mon 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
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;
}
Merci par avance pour votre aide!