Problème dans la lecture fichier.iniRésolu

Question

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

cs_casy · Accepted Answer

Dim sb As New StringBuilder(255)
        GetPrivateProfileString(Section, Cle, "", sb, 255, Fichier)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Portos67 · Answer

Et voila comme d'habitude, une réponse accepté, un grand merci au Marsipulami et a casy !!!!!

Problème dans la lecture fichier.ini

2 réponses

Votre réponse

Discussions similaires