| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
RegisSantos
Novato
Registrado: Domingo, 13 de Mai de 2012
Mensagens: 78
|
 Enviada: Qui Set 26, 2013 9:01 pm Assunto: Separar a Linha |
 |
|
Olá amigos eu novamente aqui... bom gostaria que verificasse linha por linha e após a linha com a palavra *CVV ele quebrasse uma linha, Exemplo:
| Código: | *Nome................: Regis Santos
*Numero.............: 4444 4444 4444 4444
*Validade............: 12/13
*CVV..................: 123
*Nome................: Marcelo Souza
*Numero.............: 9999 9999 9999 9999
*Validade............: 12/13
*CVV..................: 666
*Nome................: Regis Santos
*Numero.............: 1234 1234 1234 1234
*Validade............: 12/13
*CVV..................: 111 |
No caso o programa iria deixar assim
| Código: | *Nome................: Regis Santos
*Numero.............: 4444 4444 4444 4444
*Validade............: 12/13
*CVV..................: 123
*Nome................: Marcelo Souza
*Numero.............: 9999 9999 9999 9999
*Validade............: 12/13
*CVV..................: 666
*Nome................: Regis Santos
*Numero.............: 1234 1234 1234 1234
*Validade............: 12/13
*CVV..................: 111 |
Com uma quebra de Linha após o *CVV |
|
| Voltar ao Topo |
|
 |
magnolima
Novato
Registrado: Segunda-Feira, 16 de Setembro de 2013
Mensagens: 53
|
| Enviada: Qui Set 26, 2013 10:32 pm Assunto: |
|
|
Supondo que esteja num arquivo, tenta esse codigo aí:
| Código: | procedure quebralinha();
var arq_in,arq_out:TStringList;
i:integer;
begin
arq_in := TStrlingList.Create;
arq_in.LoadFromFile('arquivo.txt')
arq_out := TStrlingList.Create;
for i:=0 to arq_in.Count-1 do
begin
// inclui a sua linha em branco, menos na primeira linha
if (i>0) and (Pos('*Nome',arq_in[i])>0)
arq_out.Add('');
arq_out.Add( arq_in[i] );
end;
arq_in.Free;
// agora salva
arq_out.SaveToFile('saida.txt');
arq_out.Free;
end;
|
Abraços! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
