Extrair extenção dos arquivos
Bom pessoal eu estou precisando de mais uma força de vocês...
Eu necessito que quando eu puchar um arquivo qualquer eu separasse o nome e sua extenção e deixar cadastrado separadamente tipo assim:
Insert into anexos (codanexos, arquivo, extencao) values (1,meuarquivo,doc)
Este seria um arquivo do WORD que iria cadastrar.
Beleza...
Atenciosamente
Anderson Cristian da Silva
Programador - Administrador de Rede e Banco de Dados
[b:01bd01f699]Linux na Cabeça!!!![/b:01bd01f699]
Eu necessito que quando eu puchar um arquivo qualquer eu separasse o nome e sua extenção e deixar cadastrado separadamente tipo assim:
Insert into anexos (codanexos, arquivo, extencao) values (1,meuarquivo,doc)
Este seria um arquivo do WORD que iria cadastrar.
Beleza...
Atenciosamente
Anderson Cristian da Silva
Programador - Administrador de Rede e Banco de Dados
[b:01bd01f699]Linux na Cabeça!!!![/b:01bd01f699]
Andercrist
Curtidas 0
Respostas
Wbb
26/08/2003
Você pode por exemplo, pegar o nome inteiro do arquivo e em seguida extrair apenas os últimos três cacteres através da função RightStr:
Var MeuArquivo:
begin
MeuArquivo := ´C:\Temp\Arquivo1.DOC´;
Edit1.Text := RightStr(MeuArquivo, 3); // Edit1.Text = DOC
end;
Para que a função seja válida, você deverá incluir a biblioteca [b:d4881cd658]StrUtils [/b:d4881cd658]na lista Unit.
wbb
Var MeuArquivo:
begin
MeuArquivo := ´C:\Temp\Arquivo1.DOC´;
Edit1.Text := RightStr(MeuArquivo, 3); // Edit1.Text = DOC
end;
Para que a função seja válida, você deverá incluir a biblioteca [b:d4881cd658]StrUtils [/b:d4881cd658]na lista Unit.
wbb
GOSTEI 0
Adriano Santos
26/08/2003
ExtractFileExt(´C:\temp\arquivo.doc´);
GOSTEI 0
Rodrigo Bergmann
26/08/2003
Dê uma olhada na função ExtractFileExt()
Com RightStr funciona perfeitamente, mas você pode ter problemas caso a extensão tenha menos que 3 caracteres, ou não tenha extensão.
Com RightStr funciona perfeitamente, mas você pode ter problemas caso a extensão tenha menos que 3 caracteres, ou não tenha extensão.
GOSTEI 0
David
26/08/2003
:)))
GOSTEI 0