ficheros ini en vs 2005

[jocormix]

hola a todos:

alguien podria aclararme una duda:

Private Sub Form_Load()
Dim I As Integer
Dim Est As String
Est = space(50)
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
If I > 0 Then
MsgBox("Tu Nombre es: " & Est)
End If
End Sub

¿donde pone ejemplo que es lo que hay que poner?
y ¿donde pone nombre?
...........

podria alguien escribirme esta frase con un ejemplo claro:

I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")

muchas gracias.
un saludo a todos.

[David]

Código:

 
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")

Cuando ejecutas ese código se lee lo que está en el archivo Ejemplo.ini, cuyo contenido sería:

Código:

 
[Ejemplo]
Nombre=David

En ese caso la función devolvería David...

[jocormix]

ok, pero una cosilla al final se pone el nombre del fichero, donde tiene que estar, en la carpeta del programa, en la unidad 'c' o donde.

gracias por la informacion anterior.

[David]

Iniciado por jocormix

ok, pero una cosilla al final se pone el nombre del fichero, donde tiene que estar, en la carpeta del programa, en la unidad 'c' o donde.

gracias por la informacion anterior.

Lo mejor es que le especifiques la ruta completa del archivo...

[jocormix]

hola david:

gracias por la ayuda anterior.
cuando ejecuto mi programa me aparece un msgbox que dice: "tu nombre es:", pero sigue sin ponerme el nombre.

este es mi codigo:

Module Module1
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 Long, ByVal lpFileName As String) As Long

Sub Main()
Dim I As Long
Dim Est As String
Est = Space(50)
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "C:\Apl.ini")
If I > 0 Then
MsgBox("Tu Nombre es: " & Est)
End If
End Sub

End Module

y este es fi fichero .ini:

[Ejemplo]
Nombre = jose

gracias.
un saludo.

[David]

No sé por qué no te funciona, a mí me funcionó sin problema. Intenta ejecutar paso a paso a ver qué pasa...

[jocormix]

al ejecutarlopaso a paso lo que pasa es que la cadena EST sigue vacia todo el rato.
¿por que puede ser?

gracias David

[David]

Iniciado por jocormix

al ejecutarlopaso a paso lo que pasa es que la cadena EST sigue vacia todo el rato.
¿por que puede ser?

gracias David

¿Qué valor te devuelve GetPrivateProfileString?

[jocormix]

el valor de I es un long int y en EST me crea el espacio para introducir el nombre pero no lo introduce.

¿que puede ser?
gracias. un saludo.

[David]

Iniciado por jocormix

el valor de I es un long int y en EST me crea el espacio para introducir el nombre pero no lo introduce.

¿que puede ser?
gracias. un saludo.

Me refería a si te devuelve valor 0 o no. Otra cosa, debes asegurarte que exista el archivo *.ini que le estás indicando.
No sé qué pueda ser, pues como te mencioné, en mi caso funciona.

[jocormix]

devuelve un valor largo asi como:23475857......

el fichero ini existe en la ruta indicada.

porcierto en esta parte del codigo:

I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "C:\Apl.ini")

¿en las comillas q estan vacias no hay que poner nada?

muchas gracias.
un saludo.

[Avellaneda]

No, el problema no es el tercer parámetro, puede ir en blanco o "Default", pero dá lo mismo.

Mira, abre el archivo Apl.ini con cualquier editor de texto y copia aquí a continuación, todo lo que está escrito.

[jocormix]

este es el fichero:

[Ejemplo]
Nombre = jose

[Avellaneda]

intenta cambiando el código de asignación a la variable "Est":

Est = New String(Chr(0), 255)

Por lo demás todo parece estar bien.

[jocormix]

aunque ponga eso, pasa lo mismo.
aparece un mensaje en el que pone:

su nombre es:

pero no pone el nombre.
muchas gracias por todo.
si alguien tiene una idea y puede echarme una mano se lo agradeceria.

un saludo.

[Avellaneda]

Hola de nuevo,

dándole vueltas al tema me encontré con que hay que declarar dos veces la misma función, solamente cambiando la asignación del parámetro "lpKeyName". Y lo curioso es que una vez ejecutado el proyecto, puedes borrar la segunda declaración y funciona igual.

MS no dá información sobre el tema (al menos yo no encontré nada), pero creo que debe ser porque "GetPrivateProfileString" está en uso solamente por compatibilidad con 16 bits.

Bueno, te pongo el ejemplo que a mi me ha funcionado (yo lo puse en la clase del Form1).

Código:

Public Class Form1
    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
    ' La siguiente declaración la puedes eliminar una vez que hayas ejecutado el proyecto
    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
    
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Est As String = New String(Chr(0), 255)
        Dim i As Long = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "C:\test.ini")
        If i > 0 Then
            MsgBox("Tu Nombre es: " & Est)
        End If
    End Sub
End Class

Espero que te sirva.

[jocormix]

muchas gracias avellaneda.

ya funciona.

asta otra.

un saludo.