Declare Function GetPrivateProfileStringByKeyName& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByRef lpApplicationName$, ByRef lpszKey$, ByRef lpszDefault$, _
ByRef lpszReturnBuffer$, ByRef cchReturnBuffer&, ByRef lpszFile$)
Function VBGetPrivateProfileString(Section$, Key$, File$) As String
'====================================================================
'Récupère la chaine d'une rubrique ou clé
'd'une section donné d'un fichier *.Ini donné
'section$ : Section.
'key$ : Clé ou rubrique.
'File$ : Finchier *.INI.
'====================================================================
Dim KeyValue$
Di aviosm characters As Long
KeyValue$ = StrDup(128, Chr(0))
characters = GetPrivateProfileStringByKeyName(Section$, Key$, "", KeyValue$, 127, File$)
KeyValue$ = Microsoft.VisualBasic.Left(KeyValue$, CInt(characters))
VBGetPrivateProfileString = KeyValue$
End Function
Dim toto As String = New String("0"c, 10) Dim tata As String = "Retourne la partie droite de ce texte".Substring(19)
J'observe enfin qu'il n'a pas typé la fonction utilisée !
Dim Keyvalue As StringBuilder
Keyvalue = New StringBuilder(128)
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (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
Function VBGetPrivateProfileString(Section as string, Key as string, File as string) As String
Dim mon_buffer As StringBuilder
mon_buffer = New StringBuilder(128)
Dim characters As Integer
resultat = GetPrivateProfileString("Section, Key, "", mon_buffer, mon_buffer.Capacity,File)
VBGetPrivateProfileString =mon_buffer.ToString()
End Function
Imports System.Runtime.InteropServices
Imports System.Text
J'avoue utiliser le typage implicite par suffixe de VB6, et VB.Net semble le tolérer
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question