Visual Basic - Abrir y mostrar texto separados con comas

Life is soft - evento anual de software empresarial
 
Vista:

Abrir y mostrar texto separados con comas

Publicado por Leandro (1 intervención) el 27/04/2006 21:30:52
Hola, necesitaria abrir desde el visual basic 6.0 un notepad con texto separados con comas y enters ej.

hola, como, les, va
necesito, ayuda, por, favor

tengo la idea de como hacerlo pero no se como codificarlo...

abrir (el archivo)
leer registro (seria el renglon)
mientras no sea EOF (archivo)
pongo el contenido del campo en una celda de una flexgrid
leo el proximo regsitro
cierro el archivo

desde ya muchas gracias
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:Abrir y mostrar texto separados con comas

Publicado por LLE (2 intervenciones) el 28/04/2006 00:26:37
Hola una idea:

Dim l As String, datos() As String, i As Integer

Open App.Path & "\datos.txt" For Input As #1

While Not EOF(1)

Line Input #1, linea

datos = Split(linea, ",")

For i = LBound(datos) To UBound(datos)
If linea <> "" Then
MsgBox Trim$(datos(i))
End If
Next

Wend

Close

Salu2
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