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 |
Personalmente no lo veo muy complicado, a menos :rolleyes: 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...:) |
Hola,
TStringList tiene la propiedad Values, que hace exactamente lo que ha codificado rtgs. Echale un vistazo a la ayuda de delphi. Un saludo. |
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 |
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 |
La franja horaria es GMT +2. Ahora son las 15:20:14. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi