Problema con condiciones

[Anel Hernandez]

Hola,

estoy haciendo una busqueda de ficheros y luego de encontrado un fichero especifico realizar diversas operaciones con el.

cuando hago

Código Delphi [-]
if  RightStr(SR.Name,4)='.inp' then calcular;

funciona perfectamente.

cuando hago

Código Delphi [-]
if  LeftStr(SR.Name,6)='CALMET' then calcular;

funciona perfectamente.

pero cuando las combino:

Código Delphi [-]
if  (RightStr(SR.Name,4)='.inp') and (LeftStr(SR.Name,6)='CALMET') then calcular;

la primera condicion me da falso en ficheros de extension '.inp'. Lo he debugueado y no se porque.

pudieran ayudarme?

gracias

[[newtron]]

Hola.

¿Será por las mayúsculas/minúsculas?

Saludos

[Anel Hernandez]

ya probe eso y nada. ademas funcionan independientemente, por separado, pero cuando las combino, no.

[Anel Hernandez]

Hola,

pues si, era problema de mayúsculas/minúsculas! Disculpen haberlos hecho perder tiempo y romperse la cabeza.

Gracias

[[Al González]]

Empezado por Anel Hernandez

pues si, era problema de mayúsculas/minúsculas!

No comentas cómo lo resolviste, pero siendo un problema de mayúsculas y minúsculas lo puedes controlar de esta forma:

Código Delphi [-]
If ANSIStartsText ('CALMET', SR.Name) And ANSIEndsText ('.inp', SR.Name) Then

Saludos.

[Anel Hernandez]

Cierto! aki va:

Código Delphi [-]
if  (LowerCase(RightStr(SR.Name,4))='.inp') and (LowerCase(LeftStr(SR.Name,6))='calmet') then calcular;

[[oscarac]]

Empezado por Anel Hernandez

Cierto! aki va:


Código Delphi [-]if (LowerCase(RightStr(SR.Name,4))='.inp') and (LowerCase(LeftStr(SR.Name,6))='calmet') then calcular;

te hago una pregunta.....
y que pasaria si el archivo cambia de nombre? por uno mas largo o por uno mas corto?

[Anel Hernandez]

hola,

Los ficheros son generados por un programa que siempre pondria como mascara del nombre una palabra predefinica que es la que leo, luego pudieran agregarsele numeros etc. Por eso con comprobar que la cadena inicial es igual a la predefinida me vale.

gracias