 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Sex Ago 16, 2019 2:59 pm Assunto: Capturar parte texto entre string |
 |
|
To tentado pega apenas a palavra LISTAGEM deste texto
c:\pasta\listagem.csv
| Código: | function PegaNomeArquivo(texto, sini, sfim: string): string;
begin
result := copy(texto, pos(sini, texto) + length(sini),
pos(sfim, texto) - pos(sini, texto) - length(sini));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(PegaNomeArquivo('c:\pasta\listagem.csv', '\', '.'));
end; |
mais o result
pasta\listagem
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Sex Ago 16, 2019 3:44 pm Assunto: |
|
|
Boa tarde,
Experimente fazer uns testes utilizando as funções nativas ExtractFileName e ChangeFileExt:
| Código: | | ShowMessage(ChangeFileExt(ExtractFileName('c:\pasta\listagem.csv'), '')); |
Espero que ajude
_________________
Assinatura: https://www.imoveisemexposicao.com.br
Editado pela última vez por imex em Qui Fev 23, 2023 10:23 am, num total de 1 vez |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Sex Ago 16, 2019 4:16 pm Assunto: |
|
|
| Sim, se for para pegar o nome do arquivo e trocar a extensão, seja ela qual for, para '.csv'. |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
