Visual Basic - Introduciendo un txt en varias variables

Life is soft - evento anual de software empresarial
   
Vista:

Introduciendo un txt en varias variables

Publicado por Sara (1 intervención) el 11/11/2007 02:28:24
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Introduciendo un txt en varias variables

Publicado por El conejo (124 intervenciones) el 11/11/2007 02:55:17
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Introduciendo un txt en varias variables

Publicado por Toni (13 intervenciones) el 11/11/2007 03:05:44
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Introduciendo un txt en varias variables

Publicado por ivan (1041 intervenciones) el 11/11/2007 07:32:00
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Introduciendo un txt en varias variables

Publicado por Toni (13 intervenciones) el 11/11/2007 11:47:16
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Introduciendo un txt en varias variables

Publicado por Toni (13 intervenciones) el 11/11/2007 12:32:44
Ya esta todo solucionado. Muchas gracias conejo e Ivan
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Introduciendo un txt en varias variables

Publicado por Juan Español (47 intervenciones) el 11/11/2007 21:25:57
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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Harry

RE:Introduciendo un txt en varias variables

Publicado por Harry (9 intervenciones) el 21/11/2007 04:56:21
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar