| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jrman
Novato
Registrado: Sexta-Feira, 24 de Fevereiro de 2017
Mensagens: 80
|
 Enviada: Ter Out 22, 2019 10:05 am Assunto: Obter String depois de caracter [RESOLVIDO] |
 |
|
Olá pessoal, nessa string:
'64645b - 4333$ - 76575oa - campo logradouro inválido'
Preciso obter o texto sempre após o terceiro (-) traço, suponho que preciso contar os traços, obter a posição do terceiro e usar o copy, mas não estou conseguindo, alguém com mais experiência pode me ajudar?
Obrigado
Editado pela última vez por jrman em Ter Out 22, 2019 10:44 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11380
|
| Enviada: Ter Out 22, 2019 10:32 am Assunto: |
|
|
Bom dia,
Segue sugestão de código para testes caso você não esteja utilizando uma versão antiga do Delphi:
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var
Lista: TStringList;
begin
Lista := TStringList.Create;
try
Lista.Delimiter := '-';
Lista.StrictDelimiter := true;
Lista.DelimitedText := '64645b - 4333$ - 76575oa - campo logradouro inválido';
if Lista.Count >= 4 then
ShowMessage( Trim(Lista[3]) );
finally
Lista.Free;
end;
end; |
Espero que ajude
_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-apartamento |
|
| Voltar ao Topo |
|
|
jrman
Novato
Registrado: Sexta-Feira, 24 de Fevereiro de 2017
Mensagens: 80
|
| Enviada: Ter Out 22, 2019 10:43 am Assunto: |
|
|
| Obrigado Imex, era isso! |
|
| Voltar ao Topo |
|
|
jheckson
Novato
Registrado: Domingo, 30 de Outubro de 2016
Mensagens: 23
|
| Enviada: Qui Out 24, 2019 8:57 am Assunto: |
|
|
| jrman escreveu: | | Obrigado Imex, era isso! |
Ou vc pode fazer assim!
| Código: |
function GetLogradouro(const AString: String): String;
begin
Result:= Copy(AString, PosEx('-', AString, 24) + 1, Length(AString)) ;
end; |
Tem que adicionar na Uses, StrUtils. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
