Título: Texto a arrays [SOLUCIONADO] Publicado por: rob1104 en 5 Abril 2011, 18:20 pm Hola a todos, necesito un poco de orientación en un proceso que no puedo solucionar.
Resulta que tengo un archivo de texto con miles de lineas con el siguiente formato (este lo genera un sistema que no puedo cambiar): Citar 00304-001 1042X250X131MM(150)51B/CK *750 84-0070 00304-001 1,440 1 600 2 300 1,740 00304-002 507X257X131(150)51 B/C K *450 84-0061 00304-002 0 4 1,050 1 150 900 00304-003 507X252X258MM (150)51BCK *450 84-0020 00304-003 1,200 0 0 2 300 900 00304-006 1042X507X256(75)51 B/C K *225 84-0058 00304-006 402 0 0 0 0 402 00304-012 1500X793 (200) 32 C K *400 84-0146 00304-012 730 0 0 1 200 530 La idea es pasarlos a un listview para luego trabajar con los datos. El detalle es que no logro separar cada linea en las 9 columnas, ya que la separación no es un tab, si no que son espacios variables, por lo tanto split() no me sirvió. Este es el codigo que tengo, pero me lo carga todo en una sola columna, ya que no me respeta el split: Código
Y esta es la salida: (http://img820.imageshack.us/img820/110/dibujojq.jpg) (http://img820.imageshack.us/i/dibujojq.jpg/) Saludos Título: Re: Texto a arrays Publicado por: Psyke1 en 5 Abril 2011, 19:08 pm *Una forma sería usando [Bucle + Replace()] en cada linea para que te quede todo separado por un solo espacio.
*Otra sería usando RegExp, con algo así, si no me equivoco: Código: \s*(\S+)\s* A parte de eso, usas mal el Split(), si te fijas, no pusiste delimitador. :rolleyes: DoEvents! :P Título: Re: Texto a arrays Publicado por: rob1104 en 5 Abril 2011, 19:28 pm Gracias por responder, intentaré lo de las Exp Reg que no se me habia ocurrido.
Lo del split(), lo use de diferentes formas, pero al ultimo lo deje asi al copiar el codigo. Pero de la forma que lo tenia era: division = Split(linea,vbTab) Bueno, probaré y les cuento. Gracias Título: Re: Texto a arrays Publicado por: seba123neo en 6 Abril 2011, 01:42 am esto es facil, el archivo tiene definido un largo fijo para cada campo, con un Mid() lo solucionas, o sea desde la posicion 0 a la 13 tenes el codigo, de la 14 a la 25 la descripcion etc...con eso ya lo tenes.
saludos. Título: Re: Texto a arrays Publicado por: Sanlegas en 6 Abril 2011, 02:34 am Primero elimina los dobles espacios :P
Código
Título: Re: Texto a arrays Publicado por: rob1104 en 6 Abril 2011, 17:28 pm Muchas gracias a todos.
Logré solucionarlo gracias a la idea de seba123neo. Al final el codigo quedó asi: Código
Saludos |