PC Toledo

Enviado: **03 Jun 2007 01:36**

Pessoal, desculpem a falta de memoria mas me deu um branco e fiz busca pelo assunto e naum houve retorno entaum......peço ajuda.

tipo: tenho um campo no DBF_A->CAMPO1/Caracter/82 e um campo no DBF_B->CAMPO2/Numerico/15/0

entaum preciso do seguinte, preciso coletar os primeiros 15 caracteres da esquerda do campo1(C/82) e grava-los no campo2(N/15/0)

agradeço a lembrança.

abraços

Enviado: **03 Jun 2007 08:38**

Matrix,
Se vc tem certeza que os 15 primeiros elementos à esquerda do "campo1" são caracteres numéricos (0 a 9) e/ou espaços contíguos, é só fazer o seguinte, considerando que os 2 DBFs têm o mesmo número de registros:

Código: Selecionar todos

use dbf_a excl new
use dbf_b excl new
sele dbf_b
do whil !eof()
  repl campo2 with val(left(dbf_a->campo1,15)) // <----
  sele dbf_a
  skip
  sele dbf_b
  skip
endd
quit

PC Toledo

Importar de DBF para DBF.........

Importar de DBF para DBF.........