Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/06/2003, 10:56
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses
Puntos: 4
Exclamación archivos de texto y arreglos

saludos


estoy leyendo un archivo de texto que tiene este formato:


Código:
02/08/03 09:47AM   101 01 8830590                        00:00'24               
02/08/03 09:51AM   108 01 6645374                        00:01'20               
02/08/03 09:54AM   110 04 033104134025                   00:00'24               
02/08/03 09:56AM   110 04 033104137025                   00:01'02               

  Date     Time    Ext CO          Dial Number           Duration  Acc code  CD 
--------------------------------------------------------------------------------
02/08/03 09:57AM   110 04 6824177                        00:01'17               
02/08/03 09:58AM   110 04 033155412442                   00:00'28               
02/08/03 09:59AM   110 04 6645374                        00:00'35               
02/08/03 10:02AM   114 04 6645374                        00:02'46

lo estoy haciendo con este codigo:

Código:
Do While oFichero.AtEndOfStream <> True

sContenido = oFichero.readline

arreglo=split(sContenido," ")
for i=lbound(arreglo) to ubound(arreglo)
next


lo que deseo hacer es que me guarde cada linea del archivo en una variable y luego con el split lo convierto en un vector para asi manipular cada cadena como una posicion de el vector..
como ven en el split coloco como separador el espacio (" ") pero el problema es que hay varias partes en donde hay mas de un espacio y el vector cambia de dimensiones.. me gustaria hacer que se disminuyan todos los espacios que hay en cada linea a solo uno..


yo manipulo los datos del vector asi:
response.write arreglo(0)
response.write arreglo(1)
response.write arreglo(4)
response.write arreglo(5)
response.write arreglo(6)
response.write arreglo(30)

como ven a veces me toca meter la posicion 30, aveces esa misma posicion es la 25, lo ideal es que siempre fuera la misma para poder manipularla, esto pasa por la cantidad de espacios(deberian ser solo uno por cada cadena) y quedar asi:

response.write arreglo(0)
response.write arreglo(1)
response.write arreglo(2)
response.write arreglo(3)
response.write arreglo(4)
response.write arreglo(5)


por otro lado solo me interesa leer los datos que contienen fechas, horas, telefonos etc...
no las lineas que dicen:


Código:
  Date     Time    Ext CO          Dial Number           Duration  Acc code  CD 
--------------------------------------------------------------------------------

me gustaria que omitiera estas lineas y siguiera con las siguientes o cuando encuentre una linea vacia tambien la omita, intente con skipline pero no me funciona correctamente..
espero me puedan echar una mano en alguno de mis problemas..

gracias..
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com