Administración de archivos INI

Librerías finalizadas programadas por usuarios entusiastas

Administración de archivos INI

Notapor PowerDeath » Vie Jul 18, 2014 9:32 am

Les dejo esta librería que permite la administración básica de ficheros INI.
La subo ahora porque no la voy a seguir ampliando ya que creo que así esta bien.

Código: Seleccionar todo
Importar "Cadena.prp"
Importar "Win.prp"

Privado:
'VARIABLES
Var c_RutaFile:Cadena

'APIS
Proc GetPrivateProfileString(lpApplicationName,lpKeyName,lpDefault:Cadena,Referencia lpReturnedString:Cadena,nSize:Entero,lpFileName:Cadena):Entero, "Kernel32.dll" "GetPrivateProfileStringA"
Proc WritePrivateProfileString(lpApplicationName,lpKeyName,lpString,lpFileName:Cadena):Entero, "Kernel32.dll" "WritePrivateProfileStringA"
Proc GetPrivateProfileSectionNames(Referencia lpszReturnBuffer:Cadena,nSize:Entero,lpFileName:Cadena):Entero, "Kernel32.dll" "GetPrivateProfileSectionNamesA"
Público:

Proc INIAbrir(l_Ruta:Cadena):Booleano
Si ExisteArchivo(l_Ruta)
   c_RutaFile = l_Ruta
   Devolver Verd
SiNo
   l_Ruta = ""
   Devolver Falso
FinSi
FinProc

Proc INISecciónes(Opcional Archivo:Cadena = "Defecto"):Cadena[]
Var lp_String,Matriz[],Str:Cadena,lp_Result:Entero
lp_String = RepCarac(32,MAX_PATH * 2) + Null + Null
lp_Result = GetPrivateProfileSectionNames(lp_String,CadLong(lp_String),>Archivo = "Defecto"?c_RutaFile:Archivo)
Si lp_Result
   Str = Null
   lp_String = IzquierdaCad(lp_String,lp_Result)
   Matriz = Separar(lp_String,Str)
SiNo
   Salir
FinSi
Resultado = Matriz
FinProc


Proc INILeer(Sección,Clave:Cadena,Opcional Defecto:Cadena = "",Opcional Archivo:Cadena = "Defecto"):Cadena
Var Texto:Cadena
Texto = RepCarac(0,3155)
Si GetPrivateProfileString(Sección,Clave,Defecto,Texto,CadLong(Texto),>Archivo = "Defecto"?c_RutaFile:Archivo) Devolver Texto
FinProc


Proc INIEscribir(Sección,Clave,Texto:Cadena,Opcional Archivo:Cadena = "Defecto"):Booleano
Resultado = WritePrivateProfileString(Sección,Clave,Texto,>Archivo = "Defecto"?c_RutaFile:Archivo)
FinProc
Imagen
PowerDeath
 
Mensajes: 160
Registrado: Sab Ago 11, 2012 5:29 am

Sponsor


Volver a Librerias

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron