Visual Basic - Campo texto lee archivo .txt

Life is soft - evento anual de software empresarial
 
Vista:

Campo texto lee archivo .txt

Publicado por Don Pepito (2 intervenciones) el 10/07/2002 14:12:19
Hola, mi pregunta es:

¿Cómo puedo hacer para que un campo de texto lea (o contenga) el contenido de un archivo de texto (con extensión .txt por ejemplo)?

Gracias de antemano.
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:Campo texto lee archivo .txt

Publicado por POLA (522 intervenciones) el 10/07/2002 15:10:25
Contestada en el foro Visual-Basic
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:Campo texto lee archivo .txt

Publicado por Leonargi (6 intervenciones) el 10/07/2002 23:02:37
Private Sub Command1_Click()
Dim valores() As Variant, nombre as string 'nombre es la dirreccion del ' txt
Open NOMBRE For Input As #1
valores() = importar(NOMBRE, ",")
End Sub

Function importar(NOMBRE As String, _
Optional delimitador As String = vbTab) As Variant()
Dim lineas() As String, i As Long
lineas() = Split(leer(NOMBRE), vbCrLf)
For i = 0 To UBound(lineas)
If Len(lineas(i)) = 0 Then lineas(i) = vbNullChar
Next
lineas() = Filter(lineas(), vbNullChar, False)
ReDim valores(0 To UBound(lineas)) As Variant
For i = 0 To UBound(lineas)
valores(i) = Split(lineas(i), delimitador)
Next
importar = valores()
End Function

Function leer(NOMBRE As String) As String
leer = Input(LOF(1), 1)
End Function

espero que esto te ayude.
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