comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Leer y escribir un fichero Ini

  • 0 Respuestas
  • 1395 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5336
  • Actividad:
    23.33%
  • Reputación 30
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 10:33:06 am »
Declaraciones generales en un módulo:

Código: Visual Basic
  1. Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
  2. (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As _
  3. String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  4. Declare Function WritePrivateProfileString Lib "kernel32" Alias _
  5. "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
  6. Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  7. 'Leer en "Ejemplo.Ini":
  8. Private Sub Form_Load()
  9.         Dim I As Integer
  10.         Dim Est As String
  11.         Est = String$(50, " ")
  12.         I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
  13.         If I > 0 Then
  14.                 MsgBox "Tu Nombre es: " & Est
  15.         End If
  16. End Sub
  17. 'Escribir en "Prueba.Ini":
  18. Private Sub Form_Unload(Cancel As Integer)
  19.         Dim I As Integer
  20.         Dim Est As String
  21.         Est = "Ejemplo - Apartado"
  22.         I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
  23. End Sub
  24. 'Leer en "Ejemplo.Ini":
  25. Private Sub Form_Load()
  26.         Dim I As Integer
  27.         Dim Est As String
  28.         Est = String$(50, " ")
  29.         I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
  30.         If I > 0 Then
  31.                 MsgBox "Tu Nombre es: " & Est
  32.         End If
  33. End Sub
  34. 'Escribir en "Prueba.Ini":
  35. Private Sub Form_Unload(Cancel As Integer)
  36.         Dim I As Integer
  37.         Dim Est As String
  38.         Est = "Ejemplo - Apartado"
  39.         I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
  40. End Sub

(Nota: si I=0 quiere decir que no existe información en la línea de fichero Ini a la
que hacemos referencia. El fichero "Ejemplo.Ini" se creará automáticamente).
« Última modificación: Julio 08, 2011, 10:06:58 am por ANTRAX »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1353
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
[m][PEB] Leer cadenas interesantes del PEB (Ruta, CommandLine y más)

Iniciado por Karcrack

Respuestas: 0
Vistas: 1417
Último mensaje Junio 16, 2013, 06:28:38 pm
por Karcrack
Leer Archivo mediante Api

Iniciado por Juan

Respuestas: 0
Vistas: 1460
Último mensaje Agosto 30, 2010, 06:36:33 pm
por Juan
Leer un Tag de un código HTML

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1137
Último mensaje Julio 26, 2010, 01:54:51 pm
por ANTRAX
Como verificar si un fichero existe

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1402
Último mensaje Julio 26, 2010, 10:24:01 am
por ANTRAX