Discussion :

[Neit_Sabes]

Bonjour,

Je n'arrive pas à concaténer des chaînes de caractères récupérées dans un fichier .ini. J'utilise la fonction GetPrivateProfileString (kernell32.dll) pour récupérer les valeurs et si jessaie par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Str_valeur1 As String
Dim Str_valeur2 As String
 
Str_valeur1 = Space(255)
Int_Lecteur = GetPrivateProfileString	(Str_Rubrique, Str_Clef, Str_ValeurParDefaut, Str_Valeur1, 255, Str_Localisation)
Str_valeur1 = Trim(Str_Valeur)
 
Str_valeur2 = Space(255)
Int_Lecteur = GetPrivateProfileString	(Str_Rubrique, Str_Clef, Str_ValeurParDefaut, Str_Valeur2, 255, Str_Localisation)
Str_valeur2 = Trim(Str_Valeur)
 
Str_Concatenation = Str_valeur1 & " test " & Str_valeur2

la chaine Str_valeur2 n'est pas concaténée. Les variables Str_Valeur1 et Str_Valeur2 contiennent bien les bonnes valeurs.
Pourquoi ? Comment résoudre le problème ?

[Invité]

tu devrais peut être ajouter la ligne suivant:

Dim Str_Concatenation as String ;

[Neit_Sabes]

Heu... oui je l'ai pas écrit dans le code d'exemple mais toutes mes variables sont déclarées.

[0xYg3n3]

la chaine Str_valeur2 n'est pas concaténée. Les variables Str_Valeur1 et Str_Valeur2 contiennent bien les bonnes valeurs.
Pourquoi ? Comment résoudre le problème ?

J'ai rien compris sur ce passage...
Que contient Str_Concatenation ?

[Neit_Sabes]

Str_concatenation devrait contenir la concatenation des trois chaines :
Str_valeur1, " test ", Str_valeur2.
Mais j'obtiens comme résultat la concaténation de Str_valeur1 et " test " seulement

[0xYg3n3]

Essaye de connaître la valeur de Str_valeur2, pour un peu elle ne contient rien du tout

[Neit_Sabes]

j'ai vérifié en débogant, toutes les variables sont bien affectées.

[Neit_Sabes]

J'ai un début de piste mais pas encore de solution.
1) En déboguant je m'apercois que les variables de type String sont décrites ainsi :

Code :

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

Str_Variable="valeur"

alors que mes variables posant problème sont décrites ainsi :

Code :

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

Str_Variable="valeur

pas de " à la fin. Qu'est-ce que cela signifie ?

2) De plus, si j'affecte la variable à un composant d'une forme et que je récupère ensuite la valeur Text du composant pour la concaténation (suis-je bien clair ?) alors il n'y a plus de problème ....

[0xYg3n3]

A mon avis ta méthode GetProfile machin chose ne doit pas terminer la chaine correctement.
En C++ une chaine se termine par un '\0'.
Essaye de rajouter ce caratère a ta chaine qui pose problème...

[0xYg3n3]

Je viens de trouver un exemple en VB

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BtnWriteReadINI_Click()
Dim Ret As String, NC As Long
'Ecrit le paramètre dans le fichier ini (c:\MonApplication.ini) sous Setup -> User
WritePrivateProfileString "Setup", "User", "CarSoftAja", "c:\MonApplication.ini"
'Crée un tampon
Ret = String(255, 0)
'Retrouve le paramètre dans le fichier ini
NC = GetPrivateProfileString("Setup", "User", "Default", Ret, 255, "C:\MonApplication.ini")
'NC est le nombre de caractères copié dans le tampon
If NC <> 0 Then Ret = left$(Ret, NC)
'Visualise le paramètre lu dans le fichier ini
MsgBox Ret
'Efface le fichier
Kill "c:\MonApplication.ini"

Regarde le test qui est fait sur le GetPrivateProfilString.
Si la fonction a récupéré quelque chose alors la chaine = left quelque chose.

Le problème doit se situer ici.
Bonne chance

[Neit_Sabes]

J'ai trouvé

En fait il y avait un caractère à la fin de la chaine du genre retour chariot ou autre. En enlevant le dernier caractère tout fonctionne.