ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Capturar parte texto entre string

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Sex Ago 16, 2019 2:59 pm    Assunto: Capturar parte texto entre string Responder com Citação
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
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
MensagemEnviada: Sex Ago 16, 2019 3:44 pm    Assunto: Responder com Citação
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

Editado pela última vez por imex em Qui Jan 30, 2025 4:59 pm, num total de 2 vezes
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Sex Ago 16, 2019 4:02 pm    Assunto: Responder com Citação
imex escreveu:
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


Nossa, não conhecia este recurso

Se eu quiser trazer com a extensão csv é só fazer desta forma então?
Código:
ShowMessage(ChangeFileExt(ExtractFileName('c:\pasta\listagem.csv'), '.csv'));

_________________
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
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
MensagemEnviada: Sex Ago 16, 2019 4:16 pm    Assunto: Responder com Citação
Sim, se for para pegar o nome do arquivo e trocar a extensão, seja ela qual for, para '.csv'.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Sex Ago 16, 2019 4:18 pm    Assunto: Responder com Citação
imex escreveu:
Sim, se for para pegar o nome do arquivo e trocar a extensão, seja ela qual for, para '.csv'.


Muito bom, obrigado Imex, deu certo.
_________________
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
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB