Archivos .ini

UTILIZA ESTA API.

<DllImport("user32.dll")> _
Public Function SetKeyboardState(ByVal keys As Byte) As Boolean
End Function

<DllImport("user32.dll")> _
Public Function GetKeyboardState(ByVal keys As Byte) As Boolean
End Function

Private Declare Function GetPrivateProfileSectionNames Lib
"kernel32" _
Alias "GetPrivateProfileSectionNamesA" ( _
ByVal lpszReturnBuffer As String, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer

' Leer una sección completa
Private Declare Function GetPrivateProfileSection Lib "kernel32" _
Alias "GetPrivateProfileSectionA" ( _
ByVal lpAppName As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer

' Leer una clave de un fichero INI
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Integer, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer

' Escribir una clave de un fichero INI (también para borrar claves
y secciones)
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Integer
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As Integer, _
ByVal lpFileName As String) As Integer
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Integer, _
ByVal lpString As Integer, _
ByVal lpFileName As String) As Integer



Y luego lees con este método


Public Function LeerIniFile(ByVal cFile As String, ByVal sSection As
String, ByVal sKey As String) As String
Dim cValue As String
Dim nRet As Long
Dim strKey As String
cValue = Space$(255)
If File.Exists(cFile) Then
nRet = GetPrivateProfileString(sSection, sKey, "?", cValue,
254, cFile)
strKey = Left$(cValue, nRet)
Return strKey
Exit Function
End If
Return ""
End Function

cFile=rutadearchivo .ini, lo demas creo que se entiende bien

Espero sirva de algo.

Sócrates Benaute Laiza.
TRUJILLO - PERU


viejo ha escrito:

Hola, quisiera saber com puedo leer archivos de un archivo ini, desde
.net. Gracias