Portos67
Messages postés72Date d'inscriptionvendredi 25 février 2005StatutMembreDernière intervention14 janvier 2013
-
30 mars 2009 à 17:48
Portos67
Messages postés72Date d'inscriptionvendredi 25 février 2005StatutMembreDernière intervention14 janvier 2013
-
30 mars 2009 à 23:36
Bonjour,
J'ai un soucis pour la lecture d'un fichier ini. J'ai tout le temps un message d'erreur qui m'indique une erreur de mémoire tampon avec StringBuilder, voici le code, si quelqu'un voit ou j'ai foiré merci !
...
Dim chemin_salm = "C:\WINDOWS\salm.ini"
If File.Exists(chemin_salm) = True Then
LitDansFichierIni("PATH", "INSITUPATH", chemin_salm)
TextBox111.Text = Strings.Left(sbstring, Len(sbstring) - 1)
'LitDansFichierIni("PATH", "JPEGPATH", chemin_salm) <===== l'erreur est à cette endroit
'TextBox112.Text = Strings.Left(sbstring, Len(sbstring) - 19)
....
.....
....
Private Function LitDansFichierIni(ByVal Section As String, ByVal Cle As String, ByVal Fichier As String, _
Optional ByVal ValeurParDefaut As String = "") As String
Dim sb As New StringBuilder
GetPrivateProfileString(Section, Cle, "", sb, 255, Fichier)
sbstring = sb.ToString
End Function
Et dans un module j'ai ceci :
Public Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Merci mille fois d'avance, car vous avez toujours su me dépatouiller