Discussion :

[Touny]

Bonjour,

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

Code :

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

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) ,

[pc75]

Bonjour,

Regarde les fonctions InStr() et Mid()

[ProgElecT]

Salut

Et/ou

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
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

[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

[Touny]

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

Je met ce thread en résolu !!