Discussion :

[soso78]

Salut,

Un problème sur un fichier INI.

J'ai ce code récupérer dans la faq :

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
19
20
'Lit toutes les clés d'une section
Public Sub ReadKey(ByVal strINIFileName As String, ByVal strSection As String, aKey() As String)
Dim strReturn As String
 
  On Error GoTo ErrReadKey
 
  strReturn = String(8192, 0)
 
  GetPrivateProfileSection strSection, strReturn, 8192, strINIFileName
 
  aKey = Split(Left(strReturn, InStr(1, strReturn, vbNullChar & vbNullChar) - 1), vbNullChar)
 
ExitReadKey:
  Exit Sub
 
ErrReadKey:
  MsgBox "Impossible de lire les clés du fichier INI.", _
         vbCritical + vbOKOnly, ctAppName
  Resume ExitReadKey
End Sub

Le problème, c'est que j'ai un fichier qui contient un grand nombre de sections ini, d'une longueur supérieur à 255.

Or, le tableau aKey ne me retourne que les 11 premiers éléments, alors que j'ai 18 section dans ce fichier.

J'ai bien essayé de monter le strreturn à 8192 (vu quelque part), mais pour le reste ?

Comment arriver à lire l'ensemble des sections de mon fichier ini ?

[Delbeke]

Commence par augmenter la taille du buffer

Code :

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

1
2
  strReturn = String(32565, 0)  
  GetPrivateProfileSection strSection, strReturn, len(strReturn), strINIFileName