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
Puedes usar vbnewline o vbcrlf si no quieres usar el char(13).
No se si es esto lo q buscas:
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.
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
Variable = Text1.Text ???
No, yo digo como cargo los datos del ARCHIVO.txt en una variable, sin el txtbox.
Saludos
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.
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.
Gracias a los 2, lla funciona.
Saludos