Leer ini

Acabo de probar el código que te pasé (lo escribí directamente, asi que
tenia haber cometido algun error), y si me funciono.

Por cierto, el archivo Ejemplo.ini debería estar en la carpeta C:\Windows.

Haz la prueba poniendo la ruta completa del archivo "Ejemplo.ini".

Si todavia tienes problemas, me avisas y te paso el código completo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:

he intentado hacerlo de las dos maneas pero ninguna me funciona. Con el
post de pedro solo recibo el valor por defecto. existe alguna otra manera?
gracias a los dos

yo le paso una ruta absoluta del archivo, lo tengo en el directorio de la
aplicacion y le paso application.startuppath & "\Ejemplo.ini" y solo me pasa
el parametro por defecto e incluso e probado a ponerle la ruta letra a letra
y tampoco.

"Pedro Luna Montalvo, [MVP VB.NET]"
escribió en el mensaje news:

Acabo de probar el código que te pasé (lo escribí directamente, asi que
tenia haber cometido algun error), y si me funciono.

Por cierto, el archivo Ejemplo.ini debería estar en la carpeta C:\Windows.

Haz la prueba poniendo la ruta completa del archivo "Ejemplo.ini".

Si todavia tienes problemas, me avisas y te paso el código completo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:

he intentado hacerlo de las dos maneas pero ninguna me funciona. Con el
post de pedro solo recibo el valor por defecto. existe alguna otra
manera?
gracias a los dos

Con este codigo probe lo que postee antes:

Imports System
Imports System.IO
Imports System.Text

Module ModuloPruebaIni

' Declaracion del API
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" ( _
ByVal lpAppName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer

Public Sub Main()
' Determino una ruta para el archivo de pruebas
Dim sRutaIni As String = Environment.CurrentDirectory & "\Ejemplo.ini"

' Creo el archivo con algunos datos para probar
Dim oStream As New StreamWriter(sRutaIni, False, Encoding.Default)
oStream.WriteLine("[Ejemplo]")
oStream.WriteLine("Nombre=ValorDePrueba")
oStream.Close()

' Codigo para recuperar el valor
Dim n As Integer
Dim oValor As New StringBuilder(50)

n = GetPrivateProfileString("Ejemplo", "Nombre", "Predeterminado", oValor,
50, sRutaIni)
If n > 0 Then
Console.WriteLine("Tu Nombre es: " & oValor.ToString())
End If
End Sub

End Module


Esto me imprime: "Tu Nombre es: ValorDePrueba", que es lo que correctamente
esta en el archivo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:%

yo le paso una ruta absoluta del archivo, lo tengo en el directorio de la
aplicacion y le paso application.startuppath & "\Ejemplo.ini" y solo me
pasa el parametro por defecto e incluso e probado a ponerle la ruta letra
a letra y tampoco.

"Pedro Luna Montalvo, [MVP VB.NET]"
escribió en el mensaje news:

Acabo de probar el código que te pasé (lo escribí directamente, asi que
tenia haber cometido algun error), y si me funciono.

Por cierto, el archivo Ejemplo.ini debería estar en la carpeta
C:\Windows.

Haz la prueba poniendo la ruta completa del archivo "Ejemplo.ini".

Si todavia tienes problemas, me avisas y te paso el código completo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:

he intentado hacerlo de las dos maneas pero ninguna me funciona. Con el
post de pedro solo recibo el valor por defecto. existe alguna otra
manera?
gracias a los dos

muchas gracias pedro, funciona todo correcto. Yo tenia un pequeño error.
GRACIAS me estaba volviendo loco
"Pedro Luna Montalvo, [MVP VB.NET]"
escribió en el mensaje news:%

Con este codigo probe lo que postee antes:

Imports System
Imports System.IO
Imports System.Text

Module ModuloPruebaIni

' Declaracion del API
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" ( _
ByVal lpAppName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer

Public Sub Main()
' Determino una ruta para el archivo de pruebas
Dim sRutaIni As String = Environment.CurrentDirectory & "\Ejemplo.ini"

' Creo el archivo con algunos datos para probar
Dim oStream As New StreamWriter(sRutaIni, False, Encoding.Default)
oStream.WriteLine("[Ejemplo]")
oStream.WriteLine("Nombre=ValorDePrueba")
oStream.Close()

' Codigo para recuperar el valor
Dim n As Integer
Dim oValor As New StringBuilder(50)

n = GetPrivateProfileString("Ejemplo", "Nombre", "Predeterminado",
oValor, 50, sRutaIni)
If n > 0 Then
Console.WriteLine("Tu Nombre es: " & oValor.ToString())
End If
End Sub

End Module


Esto me imprime: "Tu Nombre es: ValorDePrueba", que es lo que
correctamente esta en el archivo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:%

yo le paso una ruta absoluta del archivo, lo tengo en el directorio de la
aplicacion y le paso application.startuppath & "\Ejemplo.ini" y solo me
pasa el parametro por defecto e incluso e probado a ponerle la ruta letra
a letra y tampoco.

"Pedro Luna Montalvo, [MVP VB.NET]"
escribió en el mensaje news:

Acabo de probar el código que te pasé (lo escribí directamente, asi que
tenia haber cometido algun error), y si me funciono.

Por cierto, el archivo Ejemplo.ini debería estar en la carpeta
C:\Windows.

Haz la prueba poniendo la ruta completa del archivo "Ejemplo.ini".

Si todavia tienes problemas, me avisas y te paso el código completo.


Saludos,
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"José Mª Toro Bermejo" escribió en el mensaje
news:

he intentado hacerlo de las dos maneas pero ninguna me funciona. Con el
post de pedro solo recibo el valor por defecto. existe alguna otra
manera?
gracias a los dos