GARANTIR DESCONTO

Fórum Nome de arquivo .txt #275143

01/04/2005

0

Delphi

Como posso fazer uma comparacao de um arquivo .txt

por ex.:

OpenDialog1.Execute;
AssignFile ( arq,OpenDialog1.FileName);
Reset ( arq );
ReadLn ( arq, linha );

como posso verificar se o nome do arquivo que estou tratando é por ex.:

arquivo_empresa1.txt

pois se for arquivo_empresa2.txt deve abortar o processo.


obrigado.


Augustoctavares

Augustoctavares

Responder

Posts

01/04/2005

Motta

¿¿??

OpenDialog1.Execute;
if OpenDialog1.FileName = ´naoquero.txt´ then
begin
raise ......
end
else
begin
AssignFile ( arq,OpenDialog1.FileName);
Reset ( arq );
ReadLn ( arq, linha );
end;


Responder

Gostei + 0

01/04/2005

Augustoctavares

Quando efetuo essa comparacao:

if OpenDialog1.FileName = ´naoquero.txt´ then


o opendialog1.filename vem com os seguintes parametros c:\arquivos\naoquero.txt

daí ele tá comparando incorretamente...

tem alguma ideia de como tratar isso??

[]´s


Responder

Gostei + 0

01/04/2005

Ariovaldo

Augusto existe uma função extractFileName, porém não tenho a sintaxe dela aqui, tenta procurar no forum por esta funcão, pois a mesma te retorna o nome do arquivo só


Responder

Gostei + 0

01/04/2005

Massuda

Além do que o Ariovaldo escreveu, você precisa também fazer a comparação sem considerar maiúsculas/minúculas...
if AnsiCompareFileName(ExtractFileName(OpenDialog1.FileName), ´naoquero.txt´) = 0 then ...



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar