| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
spiritrg45
Novato
Registrado: Sexta-Feira, 4 de Março de 2016
Mensagens: 3
|
 Enviada: Sex Mar 04, 2016 3:23 pm Assunto: Copiar string até um determinada string |
 |
|
Boa tarde, tudo bem meus colegas?
Gostaria de uma ajuda de como copiar uma string até uma determinada string.
Tenho um Memo1 com várias linhas:
177.130.112.0-177.130.127.255-4096-06/02/13-
177.130.128.0-177.130.159.255-8192-02/02/12-
177.130.160.0-177.130.191.255-8192-26/11/12-
177.130.192.0-177.130.223.255-8192-03/02/12-
Gostaria de copiar tudo antes do 5-
e jogar o resultados no memo2.
Já agradeço a ajuda de todos. |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Mar 04, 2016 3:31 pm Assunto: |
|
|
Teste:
| Código: | var
i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
Memo2.Lines.Add(Copy(Memo1.Lines[i], 1, 30));
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
spiritrg45
Novato
Registrado: Sexta-Feira, 4 de Março de 2016
Mensagens: 3
|
| Enviada: Sex Mar 04, 2016 3:47 pm Assunto: |
|
|
| natanbh1 escreveu: | Teste:
| Código: | var
i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
Memo2.Lines.Add(Copy(Memo1.Lines[i], 1, 30));
end; |
|
Natan, o resultado foi:
177.20.240.0-177.20.255.255-40
177.21.0.0-177.21.31.255-8192-
177.21.32.0-177.21.47.255-4096
177.21.48.0-177.21.63.255-4096
177.21.64.0-177.21.79.255-4096
tem que ser tudo antes do 5- desse caractere. |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Mar 04, 2016 3:59 pm Assunto: |
|
|
O 5- não tem posição fixa?
Se não, precisa-se de usar também o pos.
| Código: | var
i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
Memo2.Lines.Add(Copy(Memo1.Lines[i], 1, Pos('5-', Memo1.Lines[i])));
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
spiritrg45
Novato
Registrado: Sexta-Feira, 4 de Março de 2016
Mensagens: 3
|
| Enviada: Sex Mar 04, 2016 4:25 pm Assunto: |
|
|
| natanbh1 escreveu: | O 5- não tem posição fixa?
Se não, precisa-se de usar também o pos.
| Código: | var
i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
Memo2.Lines.Add(Copy(Memo1.Lines[i], 1, Pos('5-', Memo1.Lines[i])));
end; |
|
Muito obrigado Natan, deu certinho! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
