Discussion :

[echap2000]

Bonjour tout le monde,

Je suis entrain de créer une application qui doit lire un fichier .INF.
Cependant je dois lire une section qui contient ce qui suit :

[HardwareIds.scsi.BUSDRV]
id = "PCI\VEN_10DE&DEV_008E", "nvatabus"
id = "PCI\VEN_10DE&DEV_0085", "nvatabus"
id = "PCI\VEN_10DE&DEV_00D5", "nvatabus"
id = "PCI\VEN_10DE&DEV_00EE", "nvatabus"

Pour cela je fais :
Ini->ReadSectionValues("HardwareIds.scsi.BUSDRV",LBSata->Items);

(où LBSata est un TListBox)

Comme c'est la même variable => id et des valeurs différentes
Il lit cette secion comme suit :

[HardwareIds.scsi.BUSDRV]
id = "PCI\VEN_10DE&DEV_008E", "nvatabus"
id = "PCI\VEN_10DE&DEV_008E", "nvatabus"
id = "PCI\VEN_10DE&DEV_008E", "nvatabus"
id = "PCI\VEN_10DE&DEV_008E", "nvatabus"

Comment pourrais-je procéder pour qu'il lit comme je veux ?

Parce que je ne vois pas d'autres solutions à cette heure-ci.

Merci pour votre future réponse constructive

PS:

j'ai inventé une solution mais si quelqu'un a une meilleure solution je suis prenant :

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
 
TMemoryStream* pms = new TMemoryStream();
pms->LoadFromFile ("c:\\txtsetup.oem");
pms->Seek(0,soFromBeginning);
char  *Buffer = new char [pms->Size];
pms->ReadBuffer(Buffer, pms->Size);
int i=0;
AnsiString buf = AnsiString(Buffer);
while ( (buf.SubString(0,buf.AnsiPos("\r\n")).LowerCase().Trim()!="[hardwareids.scsi.busdrv]") && (buf.Length()>10))
{
  buf=buf.SubString (buf.AnsiPos("\r\n")+1,buf.Length());
}
  buf=buf.SubString (buf.AnsiPos("\r\n")+1,buf.Length());
while ( (buf.SubString(0,buf.AnsiPos("\r\n")).LowerCase().Trim().AnsiPos("[")==0) && (buf.Length()>10))
{
  buf=buf.SubString (buf.AnsiPos("\r\n")+1,buf.Length());
  ShowMessage(buf.SubString (0,buf.AnsiPos("\r\n")));
}

[Kerod]

voilà un petit truc :Ini

Sinon le fait que tu appelles plusieurs clé par le même nom doit poser un problème, non ???

[DjmSoftware]

bonjour,
le problème est que les fichiers sont au format unicode et les objects VCL pour la manipulation des fichiers .Ini ne fonctionnent pas vraiment bien
ci-joint également une solution écrivant le contenu d'un fichier .inf dans un mémo par Parsing.

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
 
AnsiString Tmp;
  AnsiString Path;
  AnsiString nBuffer;
  Path=ExtractFilePath(ParamStr(0))+"3dfxvs2k.inf";             // localisation du fichier
  TFileStream* mFile= new  TFileStream(Path,fmOpenRead);        // Chargement dans un Stream
  wchar_t* Buffer=new wchar_t[mFile->Size+1];                   // creation d'un Buffer
  mFile->Read(Buffer,mFile->Size);                              // écriture dans le Buffer
  nBuffer=WideCharLenToString(Buffer,mFile->Size);              // Transformation Unicode en carctère normal
  delete  mFile;                                                // Suppression du Stream
  TStringList* mList =new   TStringList();                       // Création de la liste des strings
  TIniFile* mini = new TIniFile(Path);                // Création Object IniFile
  TStringList* msec= new   TStringList();            // création de la  liste des Sections
  mList->Text=nBuffer;                        // Transfert de la conversion dans object Liste
  mini->ReadSections(msec);                    // Initialisation des sections
  mmo1->Lines->BeginUpdate();                    // on empêche le raffraichissement du Memo
  for(int n=0;n<msec->Count;n++)                // Itération sur la Liste des sections
   {
     Tmp="[";                            // formatage de la section [section]
     Tmp+=msec->Strings[n];                    //
     Tmp+="]";                            //
     mmo1->Lines->Add(Tmp);                    // introduction de la section dame le Memo
     int FirstPos=mList->IndexOf(Tmp);                // recherche de la section dans la liste
     while (FirstPos !=-1)                     // tant que Position Trouvée
     {
       FirstPos++;                        // Position du String Suivant
       Tmp=mList->Strings[FirstPos];
       if ((Tmp.SubString(1,1)=="[")||(FirstPos>=mList->Count-1))//test si Fin de liste ou début d'une nouvelle section
       break;
       mmo1->Lines->Add(Tmp);                    // introduction des strings dans le Mémo 
     }
   }
   mmo1->Lines->EndUpdate();                    // autorisation d'affichage du Memo
   delete []Buffer;                        // Libération Memoire    
   delete mini;                            //
   delete mList;                        //
   delete msec;                            //

Cordialement

[echap2000]

je pense que vous ne m'avez pas bien lu..
ou alors je me suis mal exprimé ??

[pottiez]

je pense que vous ne m'avez pas bien lu..
ou alors je me suis mal exprimé ??

Dans ce cas prècise ce que tu désir.

[echap2000]

ok

je vais expliquer très clairement

imaginons un fichier qui a contenu suivant :

Code :

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

1
2
3
4
5
 
[Noms]
nom=Kim
nom=Louis
nom=Albert

Donc , le nom est la variable
et ce qui suit le signe = est sa valeur

lorsque je lis toute la section Noms:

Code :

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

1
2
 
Ini->ReadSectionValues("Noms",ListBox->Items);

ce composant listbox contient bien 3 lignes. jusque là , c'est normal
cependant, comme la variable est chaque fois la même chose ,
il me met :

Code :

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

1
2
3
4
 
nom=Kim
nom=Kim
nom=Kim

alors qu'il devait m'afficher :

Code :

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

1
2
3
4
 
nom=Kim
nom=Louis
nom=Albert

faite le test, vous verrez bien

sinon, ma question est, y -a-t-il une autre solution bien pratique pour contourner le problème (à part la solution que j'ai donnée à la fin de mon premier post)

Merci

[pottiez]

ok

je vais expliquer très clairement

imaginons un fichier qui a contenu suivant :

Code :

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

1
2
3
4
5
 
[Noms]
nom=Kim
nom=Louis
nom=Albert

Donc , le nom est la variable
et ce qui suit le signe = est sa valeur

lorsque je lis toute la section Noms:

Code :

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

1
2
 
Ini->ReadSectionValues("Noms",ListBox->Items);

ce composant listbox contient bien 3 lignes. jusque là , c'est normal
cependant, comme la variable est chaque fois la même chose ,
il me met :

Code :

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

1
2
3
4
 
nom=Kim
nom=Kim
nom=Kim

alors qu'il devait m'afficher :

Code :

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

1
2
3
4
 
nom=Kim
nom=Louis
nom=Albert

faite le test, vous verrez bien

sinon, ma question est, y -a-t-il une autre solution bien pratique pour contourner le problème (à part la solution que j'ai donnée à la fin de mon premier post)

Merci

Pourquoi ne pas mettre ton fichier .ini comme ceci :

Code :

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

1
2
3
4
5
 
 [Noms]
 nom1=Kim
 nom2=Louis
 nom3=Albert

[echap2000]

tout simplement parce que je développe une application qui lit des fichiers externes : les fichiers txtsetup.oem . C'est un fichier qui est fournit avec un driver sata/raid. Souvent, on a le même nom de variable. Donc, on ne peut pas modifier .

Et dans mon premier post, j'ai donné un morceau de ce fichier txtsetup.oem

[DjmSoftware]

bonsoir,
j'ai très bien compris ta demande
comme indiqué dans mon précédent post les fichiers de types inf ou oem sont de type Unicode
le code que j'ai posté fonctionne parfaitement avec ce type de fichier contrairement au Objet CustomIni qui en cas de clé identique retourne toujour s la première occurence de la clé trouvle
cordialement

[echap2000]

Ok je vois
il n'y a pas de solution simple dans TInifile..
Il faudrait bricoler du code comme j'ai fais dans mon premier post , et toi aussi d'ailleur..

c'est bon, j'ai eu ma réponse merci