
06/08/2002, 12:10
|
| | Fecha de Ingreso: abril-2002
Mensajes: 438
Antigüedad: 22 años, 11 meses Puntos: 2 | |
Re: ¿Saben leer y escribir....? Por supuesto que sí,
La dll usa las API's que he listado anteriormente, así por ejemplo tienes lo siguiente:
Public Function coneguirDato(ByVal fName As String, ByVal aName As String, _
ByVal kName As String, _
Optional ByVal vDefault As Variant)
As String
'
' Donde:
' fName: path fichero INI
' aName: La sección que suele estar entre corchetes
' kName: Clave
' vDefault: Valor opcional que devolverá si no se encuentra la clave.
'
Dim ValLongTemp As Long
Dim res As String
If IsMissing(vDefault) Then vDefault = ""
res = String$(255, 0)
ValLongTemp = GetPrivateProfileString(aName, kName, vDefault, res, Len(res), fName)
If ValLongTemp = 0 Then
IniGet = vDefault
Else
IniGet = Left(res, ValLongTemp)
End If
End Function
Así luego yo la uso en las aplicaciones de la siguiente manera:
eldato = NombreObjeto.conseguirDato("el path", "la seccion", "la clave")
Igualmente tengo las funciones escribirDato y borrarDato.
Por ahí van los tiros (busca por Internet que seguro que encuentras algo parecido).
Saludos. |