¿Saben leer y escribir....?

[NRLABS]

Hi friends!, la pregunta esta incompleta, la pregunta completa es:

¿saben leer y escribir fichiros INI?

Necesito hacer lo siguiente:

En unos cuadros RichTextBox tengo un texto defualt, cuando se ejecuta la aplicacion y yo quiero un boton que diga "recordar textos" con un Checkbox y claro, cree automaticam,ente un fichero ini en el mismo lugar donde esta el exe y el usuario modifique y haga lo que se le antoje en los richtextbox y al cerrar la aplicacion , los textos que modifico esten el el .ini al al volver a ejecutar se muestren esos textos.

se entiende?

Gracias por su ayuda!

[NRLABS]

por favor es urgenteeeeeeeeee

[NRLABS]

ayuda please!!!!

[sdnsdlm]

A ver si te he entendido bien, ¿toda la problemática que tienes se reduce a crear un fichero con los datos que luego van a ser leídos por la aplicación y que a su vez van a completar los RTB's?, o por el contrario buscas funciones API que lean y escriban en un fichero .INI. Respecto a lo primero no creo que ofrezca demasiado problema (lectura y escritura de un fichero, da igual que sea .ini que sea .txt, si esa es tu duda coméntalo y te diremos como hacerlo), respecto a lo segundo yo tengo una dll bastante bien elaborada que usa las siguientes:

- GetPrivateProfileSectionNames
- GetPrivateProfileSecion
- GetPrivateProfileString
- WritePrivateProfileString

Y con eso rulo bien por los .ini.

Saludos.

[NRLABS]

Has dado en en clavo amigo, eso es lo que necesito.

Salu2

[jgonzale]

sdns.., podrìas explicar mejor el funcionamiento de esas dll????

Como se utilizan, documentación y si puedes, un ejemplo....

gracias ...

Jean Joel

[sdnsdlm]

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.

[NRLABS]

amigo, me puedes pasar la dll??

**

[jgonzale]

Gracias sdnsdlm, aún tengo dudas, pero con lo que dices puedo empezar...

Jean Joel

[sdnsdlm]

Joder tío, no te quedes con dudas, pregunta que para eso están los foros.

Saludos.

[NRLABS]

hi friend! 0me puedes explicar mejor ; o si no me dices de donde sacaste esa info.

Gracias!

[sdnsdlm]

De donde la saqué te prometo que no me acuerdo, de veras, pero sí que recuerdo que me bajé una clase que me sirvió de base para adaptarla luego a lo que yo quería. Buscando se encuentra de fijo. Estar está, pero no recuerdo donde.

[NRLABS]

:(

[henryzs]

Hola:

Para leer y escribir una .ini se accede directo al API de windows y puedes usar la dll que te dieron arriba (tambien lo puedes encontrar en internet colocando en cualquier buscador "leer archivo ini").

En visual basic 6 existen los metodos para leer y escribir un archivo .ini, lo malo es que te lo guarda en un directorio especifico del regedit.

saludos!!

[henryzs]

Hola:

Correccion a mi comentario anterior, los metodos para leer y guardar son para el registro de windows y no para .ini.

Con la dll es suficiente.

saludos.

[sdnsdlm]

NRLABS,

Te la envío por mail a lo largo del día de hoy.

Saludos.

[NRLABS]

te lo agradeceria realmente. Gracias.

[noelricardo]

Utilicen esto para escribir en un archivo, yo lo uso para llenar un log

numero = FreeFile
archivo = "c\prueba.txt"
texto = "hola"

Open archivo For Append As #numero
'Imprime el texto
Print #numero, Time & " " & texto
'Cierra el archivo
Close #numero