|
Título: Problema con split Publicado por: Thaorius en 27 Noviembre 2005, 19:56 pm Hola!
Tengo un problema con split al leer un archivo de texto. O mejor dicho no un problema, sino una duda que no se como solucionar(sencilla). Es simple, en el archivo de texto los datos se guara nen este formato: 15-683 35-356 54-572 Siendo el primer numero el valor X y el segundo el valor Y. L oque yo no se es como avanzar con split o mejor dicho dividir en un array la cadena separada por 1 linea y a su vez separada por los -. La idea es separar primero por lineas, un elemento del array por linea y despues que cada uno de esos elementos sea subdividido en el mismo array(tabla()()) para porder usar estos datos. No pido el trabajo echo solo nesecito saber si como puedo insertar el caracter ASCII del salto de linea en la funcion split(si mal no recuerdo es el 13). Saludos Título: Re: Problema con split Publicado por: Crack_X en 27 Noviembre 2005, 20:06 pm Puedes usar vbnewline o vbcrlf si no quieres usar el char(13).
Título: Re: Problema con split Publicado por: NYlOn en 27 Noviembre 2005, 20:10 pm No se si es esto lo q buscas:
Código: XY = Split(Variable, vbNewLine) Eso lo q hace es tomar como limite el salto de linea (vbNewLine) ESpero q sea lo q buscabas Un saludo. Título: Re: Problema con split Publicado por: Thaorius en 27 Noviembre 2005, 20:39 pm Hasta hay todo bien, pero como cargo el txt en una variable? :P
Se como cargar el txt a un txtbox pero no queda, tiene que ser una variable. Saludos Título: Re: Problema con split Publicado por: NYlOn en 27 Noviembre 2005, 20:44 pm Variable = Text1.Text ???
Título: Re: Problema con split Publicado por: Thaorius en 27 Noviembre 2005, 20:46 pm No, yo digo como cargo los datos del ARCHIVO.txt en una variable, sin el txtbox.
Saludos Título: Re: Problema con split Publicado por: NYlOn en 27 Noviembre 2005, 21:03 pm Código: Open "C:\Archivo.txt" For Input As #1 Do While Not EOF(1) Line Input #1, Buffer Var = Var & vbNewLine & Buffer Loop Close #1 MsgBox Var 'esta es la variable con el Archivo.txt Saludos. Título: Re: Problema con split Publicado por: Slasher-K en 29 Noviembre 2005, 09:12 am Código: Dim sBuffer$, hFile% hFile = FreeFile Open "C:\Archivo.txt" For Binary As #hFile sBuffer = String$(LOF(hFile), 0) Get #hFile,1,sBuffer Close #hFile Otra alternativa es esa. Saludos. Título: Re: Problema con split Publicado por: Thaorius en 29 Noviembre 2005, 22:29 pm Gracias a los 2, lla funciona.
Saludos |