FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
Leer fichero ini
Teniendo puesto el lógico include (#include <inifiles.hpp>), tengo este fichero ini:
Cita:
Código:
TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini")); fIni->WriteString("Datos", "Entorno", "C:\DatAfi21\\DatAfi21\\Gia.ini"); fIni->WriteString("Datos", "Acceso" , "C:\DatAfi21\\DatAfi21\\Acceso"); fIni->WriteString("Datos", "Tablas" , "C:\DatAfi21\\DatAfi21\\Tablas"); delete fIni; Código:
TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini")); cEntorno = fIni->ReadString("Datos", "Entorno", cEntorno); cAcceso = fIni->ReadString("Datos", "Acceso" , cAcceso); cTablas = fIni->ReadString("Datos", "Tablas" , cTablas); delete fIni; |
#2
|
||||
|
||||
No tengo mucha experiencia con C, pero:
Veo que la primera barra separadora de carpetas es simple (una sola) y esto puede que C lo considere como terminador de cadena. Código:
fIni->WriteString("Datos", "Entorno", "C:\DatAfi21\\DatAfi21\\Gia.ini"); |
#3
|
||||
|
||||
Ha sido una erra al copiar; están puestas las barras dobles. De hecho, esa primera parte (C:\DatAfi21) está guardada en una variable que capturo a través de un SHBrowseForFolder.
|
#4
|
||||
|
||||
¿El fichero ini está bien? Si está mal es que no lo grabas bien. Si está bien es que no lo lees bien.
Sigue con el depurador paso a paso hasta llegar hasta esa línea y mira el contenido de la variable. |
#5
|
||||
|
||||
Gracias por la respuesta. Centrándome en que ya estoy probando sólo con Builder XE3.
La grabación es la que he puesto antes y lo hago con el primer trozo de código que puse, de lo que deduzco que está bien hecho. En la segunda parte, cuando intento leerlo, incializo las variables (por si acaso) Código:
cAcceso = ""; cEntorno = ""; cTablas = ""; Código:
TStringList *slIniFile = new TStringList(); TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini")); fIni->ReadSectionValues(UnicodeString("DATOS"), slIniFile); cAux = slIniFile->Text; Cita:
Código:
cEntorno = slIniFile->Strings[0]; |
#6
|
||||
|
||||
Ángel, antes de probar la lectura, debes asegurarte, no solamente deducir, que se han grabado bien los datos.
Lo mínimo a probar es buscar el fichero ini en el disco y abrirlo con cualquier editor de textos para ver si está correcto. Luego, si está bien, es cuando hay que seguir con el problema de la lectura. |
#7
|
||||
|
||||
Hola Angel.
Estuve probando, básicamente con tu código y no tengo ningún problema, te adjunto el código: Código PHP:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#8
|
||||
|
||||
Cita:
Cita:
Lo he probado yo también en un proyecto vacío y efectivamente funciona; ¿por qué demonios no me funciona a mi un código que como dices es en lo esencial igual? Seguiré probando. |
#9
|
||||
|
||||
¿No limpiarás las variables antes de volver a leerlas?
|
#10
|
||||
|
||||
No. Las inicializo al principio de la función. No quería extenderme en exceso proque hay llamadas a funciones externas y demás, pero este es el código completo que estoy usando:
Código:
void __fastcall TfPersona::FormCreate(TObject *Sender) { BROWSEINFO bi; int nDirectorio = 0; LPITEMIDLIST ItemID; TStringList *slIniFile = new TStringList(); UnicodeString cInicio; wchar_t WDir[MAX_PATH], FolderName[MAX_PATH]; UnicodeString cAcceso = ""; UnicodeString cEntorno = ""; UnicodeString cTablas = ""; cAux = ChangeFileExt(Application->ExeName, ".ini"); if (!FileExists(cAux)) { slBotones->Clear(); slBotones->Text = "Buscar\r\nCancelar"; if (Mensaje(this, String("Instalación"), String("Indique la situación de la base de datos"), tdiShield, slBotones) == mrCancel) { slBotones->Text = "Abandonar"; Mensaje(this, String("Instalación"), String("No puede iniciarse la sesión.\r\nDesconozco la situación de los ficheros."), tdiError, slBotones); Application->Terminate(); return; } while (nDirectorio == 0) { memset(&bi, 0, sizeof(BROWSEINFO)); memset(WDir, 0, MAX_PATH); bi.hwndOwner = NULL; bi.pszDisplayName = FolderName; bi.lpszTitle = String("Seleccione la situación de la base de datos").c_str(); ItemID = SHBrowseForFolder(&bi); SHGetPathFromIDList(ItemID, WDir); GlobalFreePtr(ItemID); cInicio = String(WDir); if (cInicio == "") { slBotones->Text = "Abandonar"; Mensaje(this, String("Instalación"), String("No puede iniciarse la sesión.\r\nDesconozco la situación de los ficheros."), tdiError, slBotones); Application->Terminate(); return; } if (cInicio[1] > 'B') { if (cInicio.LastDelimiter("\\") == cInicio.Length()) cInicio = cInicio.SubString(1, cInicio.LastDelimiter("\\") - 1); cAux = "La base de datos de afiliados se "; if (DirectoryExists(cInicio + "\\DatAfi21")) cAux = cAux + "encuentra"; else cAux = cAux + "creará"; cAux = cAux + " en:\r\n\r\n" + cInicio + "\\DatAfi21\r\n\r\n¿Es correcta la elección?"; slBotones->Text = "Es correcta\r\nCambiar ubicación"; if (Mensaje(this, String("Instalación"), cAux, tdiNone, slBotones) == 100) { nDirectorio = 1; try { System::ChDir(cInicio); } catch(...) { slBotones->Text = "Volver"; Mensaje(this, String("Instalación"), String("La vía seleccionada no está accesible.\r\nRevise su elección, por favor."), tdiError, slBotones); nDirectorio = 0; } } } else { slBotones->Text = "Volver"; Mensaje(this, String("Instalación"), String("La vía seleccionada no está accesible.\r\nRevise su elección, por favor."), tdiError, slBotones); nDirectorio = 0; } } TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini")); fIni->WriteString("DATOS", "Entorno", cInicio + "\\DatAfi21\\Gia.ini"); fIni->WriteString("DATOS", "Acceso" , cInicio + "\\DatAfi21\\Acceso"); fIni->WriteString("DATOS", "Tablas" , cInicio + "\\DatAfi21\\Tablas"); delete fIni; } TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini")); fIni->ReadSectionValues(UnicodeString("DATOS"), slIniFile); cEntorno = UnicodeString(fIni->ReadString(UnicodeString("DATOS"), "Entorno", cEntorno)); cAcceso = UnicodeString(fIni->ReadString(UnicodeString("DATOS"), "Acceso" , cAcceso)); cTablas = UnicodeString(fIni->ReadString(UnicodeString("DATOS"), "Tablas" , cTablas)); delete fIni; } |
#11
|
||||
|
||||
Después de toda la mañana dando vueltas y probando diferentes códigos he encontardo, más o menos. una solución.
Código:
TIniFile *fIni = new TIniFile(cIniFile); TStringList *Entorno = new TStringList(); fIni->ReadSectionValues("Datos", Entorno); Entorno->Strings[0] = Entorno->Strings[0].SubString(Entorno->Strings[0].Pos("=") + 1, Entorno->Strings[0].Length()); Entorno->Strings[1] = Entorno->Strings[1].SubString(Entorno->Strings[1].Pos("=") + 1, Entorno->Strings[1].Length()); Entorno->Strings[2] = Entorno->Strings[2].SubString(Entorno->Strings[2].Pos("=") + 1, Entorno->Strings[2].Length()); delete fIni; Código:
UnicodeString cEntorno = Entorno->Strings[0].SubString(Entorno->Strings[0].Pos("=") + 1, Entorno->Strings[0].Length()); |
#12
|
|||||
|
|||||
Hola Angel.Matilla
Cita:
Cita:
En resumen, tal como ya te comente en el mensaje #7, en C++ Builder 6 ambos casos funcionan. Cita:
La forma que expones es correcta, aunque podes ahorrar un poco de código usando un ciclo: Código PHP:
Cita:
Sobre si C++ Builder XE3 o el comportamiento de la función UnicodeString varían de algún modo el resultado lo ignoro, ya que mi versión de C++ Builder no la incluye. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#13
|
||||
|
||||
Buenas tardes,
La verdad hace mucho que no programo en C, pero se que la sintaxis para ReadString es la misma tanto en C como en Delphi. La sintaxis es la siguiente: Delphi
C++ virtual System::UnicodeString __fastcall ReadString(const System::UnicodeString Section, const System::UnicodeString Ident, const System::UnicodeString Default); Section= La sección del archivo INI que vamos a leer. Ident= La clave que estamos buscando. Default= Al valor que va a tomar en casi de que no exista la clave. En tu caso tienes asignado la misma valor en donde va "default": Código PHP:
Código PHP:
__________________
Kiranov (Alberto Vega) Chihuahua, Mexico. --------------------------------------------------------------------------------- "El hardware es lo que hace a una máquina rápida; el software es lo que hace que una máquina rápida se vuelva lenta." Craig Bruce en 1990 --------------------------------------------------------------------------------- Última edición por nlsgarcia fecha: 22-04-2015 a las 00:15:11. Razón: Sintaxis CBuilder |
#14
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Leer fichero XML | itsi | Internet | 1 | 23-10-2008 22:50:15 |
Leer parte de un fichero .RTf | Tonio | Varios | 2 | 27-03-2008 11:25:53 |
leer de fichero | machingol | Varios | 7 | 09-05-2007 17:22:42 |
Leer fichero | rocio84 | Varios | 1 | 21-05-2006 10:45:06 |
Leer un fichero .ini | oesteve | OOP | 6 | 16-06-2003 16:40:20 |
|