 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
benkoms
Novato
Registrado: Terça-Feira, 1 de Novembro de 2011
Mensagens: 1
|
 Enviada: Ter Nov 01, 2011 7:28 pm Assunto: Filtro com arquivo txt e LixtBox |
 |
|
Salve Salve galera! Boa noite a todos.
Estou com a seguinte necessidade:
Eu tenho um arquivo de texto mais ou menos com esse conteudo:
180383 informação1
180383 informação2
180383 informação3
Como podem reparar, a sequencia de números que começa a linha nunca muda, porem o que vem posterior sim.
Eu preciso carregar esse arquivo de texto em um listbox, porem não quero que apareça a sequencia de números, apenas as informações posteriores.
Porem, todavia, contudo....Na hora de salvar esse arquivo de texto, eu qro que salve tambem com a sequencia numeral.
Eu não consigo fazer o filtro nem a forma para salvar posteriormente.
Conto com a ajuda de todos.
Grato |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Nov 01, 2011 7:57 pm Assunto: |
|
|
Boa noite
Para copiar a parte da linha que vem após o espaço em branco você pode utilizar o código abaixo:
| Código: | var
s: string;
i: integer;
Anterior: string;
Posterior: string;
begin
s := '121212 informacao1';
i := Pos(' ', s);
if i > 0 then
begin
Anterior := Copy(s, 1, i - 1);
Posterior := Copy(s, i + 1, Length(s) - i);
end
else
begin
Anterior := EmptyStr;
Posterior := EmptyStr;
end;
ShowMessage(Anterior + sLineBreak + Posterior); |
Para gravar a parte posterior com o número você pode utilizar o sinal de mais para concatenar as strings. Ex:
| Código: | var
Anterior: string;
Posterior: string;
begin
Anterior := '180383';
Posterior := 'informação1';
ShowMessage(Anterior + ' ' + Posterior); |
Espero que ajude.
_________________
Assinatura: Imoveis em Guarulhos a venda |
|
| 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
