Discussion :

[Jayceblaster]

Bonjour;

J'ai un ptit soucis pour la manipulation d'un fichier ini.
voila j'ai une clé qui s'écrit comme ceci:
cle1 = TitreLivre1;Prix1;Edition1

je souhaite dans mon programme récupérer le titre du livre, le prix du livre ainsi que l'édition dans trois variables différentes.

j'ai donc récupèré la valeur de la cle dans une variable et je manipule cette variable pour essayer d'extraire chacune de ses données.
Pour le titre du livre y a pas de problème puisque j'écris:

Code :

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

1
2
 
   sTitreLivre := Copy(Clef, Pos('=', clef)+1;Pos(';', clef)-1);

et ca ca marche nickel. Le problème survient pour le reste car impossible d'écrire:

Code :

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

1
2
 
  sPrixLivre := Copy(Clef, Pos(';', clef)+1;Pos(';', clef)-1);

parce que le programme est perdu

Quelqun voit il une méthode....

[slimjoe]

Est-ce que tu as regardé l'aide relativement à la classe TIniFile ?

[denokan]

si tu souhaites vraiement utiliser un fichier .INI, tu devrais plutôt le construire sur ce modèle :
[cle1]
Titre=Titre1
Auteur=Auteur1
Edition=Edition1
[cle2]
Titre=Titre2
Auteur=Auteur2
Edition=Edition2

si tu souhaites conserver la structure que tu donnes en modèle, alors n'utilise pas l'extension .INI, choisis plutot dat ou txt ou ce que tu veux.

[ryko]

Bonjour,

je te propose 2 approches :

1. tu as en charge la création du fichier ini. Dans ce cas tu utilises 3 clés pour accéder à tes 3 variables

ou

2. tu lis ta ligne dans une variable temporaire (genre cletemp)
tu affectes la première partie de cette variable dans ta variable sTitreLivre
tu utilises DELETE pour supprimer la partie que tu viens de lire dans cletemp
et tu continues ainsi jusqu'à la fin de ta ligne

[vanquish]

Bonjour,

Je te conseille de télécharger StrMan sur cette page :
http://www.geocities.com/ericdelphi/StrMan.html

C'est une librairie ultra-complète de gestion de chaine, avec des morceaux d'assembleur dedans (optionnel) pour plus de performance.

Pour ton pb tu écrirais (seule la ligne en gras compte réellement, le reste est explicatif) :

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
var
   ts : TStrings ;
   titre, prix, edition: string ;
begin
   ts := sm.ExtractWords( sm.After('=', Clef) , nil, [';'] ) ;
   if ts.count <> 3 then
      ShowMessage('erreur dans le format de chaine')
   else begin
      titre := ts.Strings[0] ;
      prix  := ts.Strings[1] ;
      edition:= ts.Strings[2] ;
   end ;
   ts.Free ; 
end ;

Tu l'auras compris, sm.After( '=' , clef ) retourne tout ce qu'il y a après le signe '='.
Le resultat est découpé en utilisant le séparateurs ';' (en fait, il peut y avoir plusieurs séparateurs) et chaque élément sera ajouté à ts.

Donc, en sortie, chaque token de ta chaine (titre, prix, livre) se retrouve dans un élément différent de ts.

depuis que j'utilise StrMan, je ne pense pas avoir fait un seul, pos( ) ou le moindre for i:=1 to length(x)

Par exemple pour n'obtenir que l'édition, avec StrMan tu ferais :

edition := sm.AfterRev( ';' , clef )
ce qui revient à prendre ce qu'il y a après le premier ';' en partant de la fin (donc le dernier ';' ).

Maintenant, je rejoins ce que dit denokan. Utiliser un format comme celui proposé sera plus souple le jour ou tu voudras ajouter un éléments (comme le nombre de pages ou autre).

Cordialement
Vanquish
----
Ceci est une fausse copie de la Joconde. Donc c'est la vrai.

[Jayceblaster]

en faite la solution du delete me concient bien merci...
Juste encore une question. Pourquoi quand j'écris ca:

Code :

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

1
2
3
4
5
6
7
 
var
   sPhrase : string;
begin
   sPhrase := 'Salut! Tu vas bien?';
   sPhrase := Copy ( sPhrase, Pos('!', sPhrase)+1, Pos('?', sPhrase) -1));
end;

j'obtiens ca
sPhrase := Tu vas bien?

Alors que je m'attend a avoir ca:
sPhrase := Tu vas bien

Qu'est ce que je fais mal???

[ryko]

bonjour,

c'est parce que la fonction copy utilise en 3ème paramètre une longueur et pas une position. Dans ton cas, tu dois mettre pos(?)-pos(!)-1