Récupérer valeurs entre signe "="

Version imprimable

Bonjour,

dans un fichier .ini, j'ai des valeurs de type :
Code:

1 2 3 4 5 6 7 caNet=C.A. net nbArticle=Nombre d'articles nbTicketCA=Nombre de tickets (avec C.A.) nbTicketAnnu=Nombre de tickets annulés mntTicketAnnu=Montant tickets annulés nbTicketAband=Nombre de tickets abandonnés mntTicketAband=Montant tickets abandonnés
Je voulais savoir comment faire pour récupérer la valeur à gauche du "=" et la chaîne de caractère à droite du "=" pour chaque ligne ?

Merci pour votre aide (comme toujours) :) ,

04/07/2011, 12h42
pc75

Bonjour,

Regarde les fonctions InStr() et Mid()

Salut

Et/ou

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option explicit
 
Dim LeTexte, T
Dim ContLigne, ContCol
'Pour l'exemple, reconstitution du fichier .INI
LeTexte = "caNet=C.A. net" & vbNewLine _
& "nbArticle=Nombre d'articles" & vbNewLine _
& "nbTicketCA=Nombre de tickets (avec C.A.)" & vbNewLine _
& "nbTicketAnnu=Nombre de tickets annulés" & vbNewLine _
& "mntTicketAnnu=Montant tickets annulés" & vbNewLine _
& "nbTicketAband=Nombre de tickets abandonnés" & vbNewLine _
& "mntTicketAband=Montant tickets abandonnés"
 
ContLigne = Split(LeTexte, vbNewLine)
For T = 0 To UBound(ContLigne)
        ContCol = Split(ContLigne(T), "=")
        MsgBox "Partie Gauche: " & ContCol(0) & "      /      Partie Droite: " & ContCol(1)
Next

04/07/2011, 16h13
Touny

Merci beaucoup !! J'arrivais au même code sauf que j'arrivais pas à afficher les colonnes ! Encore merci.

Un autre p'tit detaille : Lorsque j'affiche "nbTicketAnnu=Nombre de tickets annulés" qui est dans mon fichier .ini, la msgbox m'affiche "Nombre de tickets annulÃ©s"! Je suppose que cela doit venir d'un problème d'encodage mais je n'arrive pas à résoudre ce problème :(

Des idées ?

merci :)
04/07/2011, 16h50
Touny

J'ai résolu mon problème grâce à notepad++ qui permet de choisir l'encodage :)

Je met ce thread en résolu !!