Fórum Função para exportação #392424
14/12/2010
0
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
Curtir tópico
+ 0Posts
14/12/2010
Leonardo Xavier
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
14/12/2010
Huelbert Oliveira
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
14/12/2010
Leonardo Xavier
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)