Função para exportação

Delphi

14/12/2010

Galera

To criando uma exportação de arquivo da seguinte maneira.

TABELA=|CAMPO1|CAMPO2|CAMPO3|...

Irei verificar em que tabela vou adicionar o registro e os valores derespectivos de cada campo.

Exemplo:

CLIENTE=|1|CLIENTE TESTE|11111111111|...

A cada | "pipeling" temos o valor de cada campo.

Quero criar uma função que me retorna separadamente cada campo.

funcao>retorna "1"
funcao>retorna "CLIENTE TESTE"
funcao>retorna "11111111111"

Quem puder me ajudar.

Ate
Huelbert Oliveira

Huelbert Oliveira

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

14/12/2010

se a estrutura de seus dados é esta:

CLIENTE=|1|CLIENTE TESTE|11111111111|


tente assim:

.
.
//procedure.....
var
a,b,c:string;

begin
//primeiro item que vc quer separar
a:=cliente;
Delete(a,1,1);
Delete(a,2,2);

//segundo item que você quer separar
b:=cliente;
Delete(b,1,3);
Delete(b,13,26);

//terceiro dado
c:=Cliente;
Delete(c,1,13);
Delete(c,12,12);

//isso para o nome cliente Teste ai você terá que fazer uma funçao ou uma porcedure que te retorne o lenght de cada campo e ai manipula-lo desta forma ai. Abraços 

end;

GOSTEI 0
Huelbert Oliveira

Huelbert Oliveira

14/12/2010

queria tipo assim

funcao retorna_valor (string: string; pipeling: integer) :string;
begin
    // aqui a funcao pegando a string e procura o pipeling
end;

retorna_valor('CLIENTE=|1|CLIENTE TESTE|11111111111|...',1);
// iria me retornar retorna_valor = '1'

retorna_valor('CLIENTE=|1|CLIENTE TESTE|11111111111|...',1);
// iria me retornar retorna_valor = 'CLIENTE TESTE'

retorna_valor('CLIENTE=|1|CLIENTE TESTE|11111111111|...',1);
// iria me retornar retorna_valor = '11111111111'

assim por diante



GOSTEI 0
Leonardo Xavier

Leonardo Xavier

14/12/2010

Você sabe criar funções, se nao souber sem problemas?
GOSTEI 0
POSTAR