Hola a todos
Tengo
aLista1:=Directory("C:\DATA*.DBF")
aLista2:=Directory("C:\DATA*.CDX")
Como unir ambas o con directory se puede sacar las dos lista en una sola tabla
Gracias por la ayuda
Saludos
Adhemar
Saludos,
Adhemar Cu茅llar
Board index FiveWin para Harbour/xHarbour C贸mo unir 2 tablas?
Hola:
la funci贸n directory() devuelve una array con los siguientes campos:
cNombre
cTama帽o
dFecha
cHora
cAtributo
osea aLista1[1,1] ser铆a el nombre del primer fichero DBF
aLista1[1,2] ser铆a el tama帽o que tiene
aLista1[1,3] ser铆a la fecha de la ultima modificaci贸n del archivo
aLista1[1,4] ser铆a la hora de la ultima modificaci贸n
aLista1[1,5] ser铆a el atributo que posee el archivo
entonces si quieres unir aLista1 y aLista2 yo lo har铆a de la siguiente manera:
despu茅s de esto tienes aLista3 con los 2 arrays juntos.
espero que te sirva y sea lo que necesitas.
saludos desde Chile
la funci贸n directory() devuelve una array con los siguientes campos:
cNombre
cTama帽o
dFecha
cHora
cAtributo
osea aLista1[1,1] ser铆a el nombre del primer fichero DBF
aLista1[1,2] ser铆a el tama帽o que tiene
aLista1[1,3] ser铆a la fecha de la ultima modificaci贸n del archivo
aLista1[1,4] ser铆a la hora de la ultima modificaci贸n
aLista1[1,5] ser铆a el atributo que posee el archivo
entonces si quieres unir aLista1 y aLista2 yo lo har铆a de la siguiente manera:
aLista3 := {}
FOR k:=1 TO LEN(aLista1)
FOR y:=1 TO 5
AADD(aLista3, aLista1[k,y])
NEXT
NEXT
FOR k:=1 TO LEN(aLista2)
FOR y:=1 TO 5
AADD(aLista3, aLista2[k,y])
NEXT
NEXTdespu茅s de esto tienes aLista3 con los 2 arrays juntos.
espero que te sirva y sea lo que necesitas.
saludos desde Chile
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
Mail: armando.lagunas@gmail.com
Disculpad mi intromisi贸n, no ser铆a m谩s sencillo as铆:
Un saludo
Jos茅 Luis
FOR i:=1 TO LEN(aLista2)
AADD(aLista1, aLista2[i])
NEXTUn saludo
Jos茅 Luis
Gracias, amigos
Funcion贸 perfecto
Saludos
Adhemar
Saludos,
Adhemar Cu茅llar