Comment concaténer des chaînes issues d'un fichier ini ?

Version imprimable

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:

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 ?

26/09/2006, 13h19
Invité

tu devrais peut être ajouter la ligne suivant:

Dim Str_Concatenation as String ;
26/09/2006, 13h25
Neit_Sabes

Heu... oui je l'ai pas écrit dans le code d'exemple mais toutes mes variables sont déclarées.
26/09/2006, 15h08
0xYg3n3

Citation:

Envoyé par Neit_Sabes

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 ?
26/09/2006, 15h50
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
26/09/2006, 17h08
0xYg3n3

Essaye de connaître la valeur de Str_valeur2, pour un peu elle ne contient rien du tout :roll:
27/09/2006, 07h30
Neit_Sabes

j'ai vérifié en débogant, toutes les variables sont bien affectées. :(
27/09/2006, 08h29
Neit_Sabes

Pistes

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:

Str_Variable="valeur"

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

Code:

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 .... 8O
27/09/2006, 09h08
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...

Je viens de trouver un exemple en VB

Code:

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

27/09/2006, 09h28
Neit_Sabes

J'ai trouvé :yaisse2:

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.