Problema con split

[Thaorius]

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

[Crack_X]

Puedes usar vbnewline o vbcrlf si no quieres usar el char(13).

[NYlOn]

No se si es esto lo q buscas:

Código [Seleccionar] Expandir


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.

[Thaorius]

Hasta hay todo bien, pero como cargo el txt en una variable?
Se como cargar el txt a un txtbox pero no queda, tiene que ser una variable.

Saludos

[NYlOn]

Variable = Text1.Text ???

[Thaorius]

No, yo digo como cargo los datos del ARCHIVO.txt en una variable, sin el txtbox.

Saludos

[NYlOn]

Código [Seleccionar] Expandir


    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.

[Slasher-K]

Código [Seleccionar] Expandir


            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.

[Thaorius]

Gracias a los 2, lla funciona.

Saludos