Visual Basic - Introduciendo un txt en varias variables

Pues eso, aver si alguien save como hago para que el archivo.txt se divida en varias variables para luego poder enviarlas por serparado. Un beso

Hola.

Te puedo ayudar de esta forma, no sé si es lo que estas pidiendo, pero es lo que entendí, tienes un TXT con N datos, obviamente estos N datos deberían estar separados por algún separador (valga la redundancía), ejemplo:

nombre:apellido:direccion:pais:telefono:etc1:etc2
el archivo debería estar en la carpeta donde se esta creando la aplicación y el nombre es "tuarchivo.txt"
-----------------------------------------------------------------
Dim matx() As String
dim linea as string

Open App.Path & "\tuarchivo.txt" For Input As #1 '<-- puedes cambiar el nombre
Line Input #1, linea ' empresa
Close #1
sep = ":" '<--- puedes cambiar el valor del separador
c = 0
For i = 1 To Len(linea)
pact = Mid(linea, i, 1)
If pact = sep Then
ReDim Preserve matx(c)
matx(c) = npar
npar = ""
c = c + 1
Else
npar = npar & pact
End If
Next i
ReDim Preserve matx(c)
matx(c) = npar
For i = 0 To c
If i = 0 Then
msg = " campos separados del archivo : " _
& vbCrLf & matx(i)
Else
msg = msg _
& vbCrLf & matx(i)
End If
Next i
MsgBox msg

Espero te sea util.
Saludos.

No era eso... pero por el codigo que as puesto seguro que si te explico bien saves.

La cosa es enviar a un servidor un txt pero por partes.


txt(100)= var1(50) var2(50)
Aver si asi me e explicado mejor.
Tambien me sirve sacar y enviar linea a linea del txt
lo de enviar nada, pan comido.

Esto carga en un array cada linea del txt

Dim s As String, a() As String
Open "Unidad:\Directorio\Achivo.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)

Para leer el array:

Dim i As Integer
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next i

Private Sub Command1_Click()
'Esto carga en un array cada linea del txt

Dim s As String, a() As String
Open "c:\analisis.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)
End Sub

Asta aqui todo bien... pero ahora.

Private Sub Command2_Click()
'Para leer el array:
Dim i As Integer
......................For i = LBound(a) To UBound(a).......Aqui da error
List1.AddItem a(i)
Next i

End Sub

Me puedes explicar esa parte del codigo?. Nunca e trabajado con el ubound.
Asi arreglo el fallo yo mismo. La parte de arriva esta perfecta, pero me gustaria saver como averiguar cuantas variables se crearon.

Muchas gracias CAMPEON

Ya esta todo solucionado. Muchas gracias conejo e Ivan

Inútiles he visto muchos en esta vida, pero como tu ninguno

¿No te das cuenta que está declarando la variable array dentro de un procedimiento y no a nivel de módulo?

No sé si todos sois iguales, pero los que nos vienen aquí.. ni te hablo

Un amigo mio dice "sudakas de merda" (es gallego) ¿y es posible que tenga razón?

Amigo conejo:
este codigo para importar texto:

Dim matx() As String
dim linea as string
Open App.Path & "\tuarchivo.txt" For Input As #1 '<-- puedes cambiar el nombre
Line Input #1, l........................etc, etc

Me parece bien, pero quisiera extraer esos datos separados con coma o dospuntos , cada fila en un TextBox, que me muestre en el formulario..

por ejmplo el TXT contiene -pablo,1000,haber-, "pablo" debe estar en un TextBox, "1000" en otro TextBox y "haber" en otro TextBox.

como seria la modificacion del codigo?

Saludos