Una alternativa muy frecuente para almacenar algunos datos de tu aplicación son los archivo INIs ... aquí tienes la forma de leer las entradas de estos archivos.
Para el ejemplo crea un archivo INI llamado "archivo.ini" en c: y agrégale los siguientes datos:
[RUTADB]
Directorio =C:MiProgramaDB
Ahora si desde VFP quisiéramos conocer el valor almacenado en la entrada Directorio deberíamos hacerlo así:
? LeerIni("RutaDB","Directorio","c:archivo.ini")
Function LeerIni(cSection, cEntry, cINIFile)
LOCAL cDefault, cRetVal, nRetLen
cDefault = ""
cRetVal = Space(255)
nRetLen = LEN(cRetVal)
DECLARE integer GetPrivateProfileString IN WIN32API ;
STRING cSection, String
cEntry, ;
STRING cDefault, STRING @cRetVal, ;
INTEGER nRetLen, STRING cINIFile
nRet = GetPrivateProfileString(cSection, cEntry, cDefault, ;
@cRetVal, nRetLen, cINIFile)
Return Left(cRetVal, nRetLen)
EndFunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
