Ver Mensaje Individual
  #7 (permalink)  
Antiguo 06/08/2002, 12:10
sdnsdlm
 
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.