Nome de arquivo .txt
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.
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
Curtidas 0
Respostas
Motta
01/04/2005
¿¿??
OpenDialog1.Execute;
if OpenDialog1.FileName = ´naoquero.txt´ then
begin
raise ......
end
else
begin
AssignFile ( arq,OpenDialog1.FileName);
Reset ( arq );
ReadLn ( arq, linha );
end;
OpenDialog1.Execute;
if OpenDialog1.FileName = ´naoquero.txt´ then
begin
raise ......
end
else
begin
AssignFile ( arq,OpenDialog1.FileName);
Reset ( arq );
ReadLn ( arq, linha );
end;
GOSTEI 0
Augustoctavares
01/04/2005
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
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
GOSTEI 0
Ariovaldo
01/04/2005
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ó
GOSTEI 0
Massuda
01/04/2005
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 ...
GOSTEI 0