FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
IF THEN con datos sacados de un txt
hola gente del foro, tenía ya bastante tiempo de no postear una consulta, es por que de hace tiempo que no he metido mano en delphi, solo lo hacía esporádicamente y por hobbie, además que no se mucho de programación como ustedes.
He vuelto a retomar un viejo proyecto que tenía creado y se me ha presentado cierto inconveniente con algo que quiero realizar, les explico: tengo una cadena que incluye lo siguiente al final de la misma: '#algo' por ejemplo 'esta es mi cadena #blabla' tengo que detectar lo que dice despues de # y en base a eso dar una respuesta especifica Con ExtractStrings separo la cadena en 2 por medio del separador que uso, en mi caso es el signo '#'. Una vez separada tengo en cadena[0] el texto en si y en cadena[1] el dato que debo evaluar Dependiendo del dato que tenga cadena[1] es la respuesta que voy a dar. Cuando ya tengo el dato lo evalúo con IF THEN para hacer algo dependiendo de dicho valor
Ahora lo que necesito es poder tener la condición a evaluar y la respuesta almacenada en un archivo, por ejemplo en un txt de la siguiente manera: (contenido del archivo) Cita:
Actualmente si quiero agregar condiciones tengo que hacerlo directamente en el codigo y volver a compilar pero lo que deseo es sacar esos datos de un archivo, por ejemplo un txt como dije anteriormente. asi podria agregar o modificar datos al archivo cuando yo quisiera sin tener que tocar el codigo. Cita:
Lo que se me ocurre por ahora es hacerlo por medio de un bucle, por ejemplo leo el archivo, lo recorro linea a linea y por cada linea separo su contenido para obtener el dato a comprarar con lo que extraje de la cadena 'texto' y la respuesta que deba dar. No se si sea la mejor forma de hacerlo. Espero sus comentarios. Si algo no ha quedado claro no duden en consultar y tratare de explicarlo mejor, Saludos
__________________
Greco - Principiante |
#2
|
||||
|
||||
Personalmente no lo veo muy complicado, a menos que no te haya entendido bien, pero si de lo que se trata es de saber exactamente que es un determinada "Cosa"(persona, animal o cosa) pues tranquilamente puedes hacerte una Funcion que te busque dicha Cosa en tu archivo y te devuelva "lo que és", en un string mas o menos asi:
Con eso solucionas tu problema. Un ejemplo de uso sería: Por demás está decirte que tu archivo donde guardarás la definiciones debe tener el formato adecuado.. Espero te sea de Ayuda. Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Última edición por rgstuamigo fecha: 23-06-2010 a las 22:38:19. |
#3
|
|||
|
|||
Hola,
TStringList tiene la propiedad Values, que hace exactamente lo que ha codificado rtgs. Echale un vistazo a la ayuda de delphi. Un saludo. |
#4
|
||||
|
||||
Hola Greco, te sería mas facil utilizar la propiedad Values como te indica Coso, ejemplo:
El separador por defecto es el igual, si quisieras cambiarlo puedes utilizar la propiedad NameValueSeparator. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#5
|
||||
|
||||
hola, gracias a todos por las respuestas, no habia podido responder antes por que a los días de haber posteado después no pude acceder a la página por el famoso mensaje de virus y los siguientes días no tuve tiempo.
Probé las dos soluciones, la que indica rgstuamigo y la de Coso (ampliada por Caro), las dos funcionaron y realizaron lo que necesitaba pero al final implementé la que utiliza la opción Values por requerir menos lineas de código. Lo metí en una función y puedo hacer lo que necesito. Gracias a todos por su ayuda. Saludos
__________________
Greco - Principiante |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Crear base de datos y cargar datos desde delphi | Albano | MySQL | 4 | 17-05-2007 20:01:18 |
Herramienta case para diccionario de datos de base de datos firebird | mcalmanovici | Firebird e Interbase | 1 | 11-02-2007 15:17:37 |
Como pasar datos de una hoja de Excel a Bases de Datos de Paradox | Goyo | OOP | 1 | 06-02-2007 01:57:20 |
ubicar archivo, con datos sacados de base de datos | Giniromero | Varios | 19 | 20-10-2005 16:23:02 |
Reto Para Expertos En Base De Datos Y Tipos De Datos.... (blob) | frankmch | Conexión con bases de datos | 2 | 08-09-2003 19:44:52 |
|