Visual Basic - URGENTE AYUDA CON ARCHIVO TEXTO

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE AYUDA CON ARCHIVO TEXTO

Publicado por marcela (6 intervenciones) el 25/08/2005 18:38:45
HOLA TODOOOOS!!!

Necesito algo de codigo para abrir un archivo texto y colocarlo en un MSFlexGrid, que esta separado por comas y colocar cada campo en una columna; asi como uno importa en excel un archivo texto y lo coloca en cada celda como texto

Ayudaaaaaaaaaa!!

URGENTEEEEE!!!
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:URGENTE AYUDA CON ARCHIVO TEXTO

Publicado por ivan ramirez (463 intervenciones) el 25/08/2005 19:00:25
Vete de volada al foro de Visual Vasic Avanzado.... vi algo parecido de cómo pasar un archivo txt, delimitado por "comas"... a un archivo Access o algo asi.... visítalo a ver si acaso entiendes lo que ponen ahí... y si no pregúntale a quien lo puso...

Es más... te voy a poner el link...

http://lawebdelprogramador.com/news/mostrar_new.php?id=96&texto=Visual+Basic+Avanzado&n1=313447&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Espero no seas tan exigente como el tal gustavo... suerte....
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:URGENTE AYUDA CON ARCHIVO TEXTO

Publicado por marcelar (6 intervenciones) el 25/08/2005 19:19:42
ACABO DE REVISARLO PERO NO ENTIENDO COMO COLOCA CADA CAMPO EN MI FILA COLUMNA DE MI FLEX GRID

VEO EL SIGUIENTE CODIGO:

For j=LBound(Columnas) To UBound(Columnas)
' Codigo para cargar cada valor en tu tabla.
Next j

PERO TODAVIA NO ME UBICO

ALGUN OTRO CODIGOOOO???
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:URGENTE AYUDA CON ARCHIVO TEXTO

Publicado por Cecilia Colalongo (3116 intervenciones) el 25/08/2005 19:48:58
Ese código era para base de datos, tendrías que adaptarlo para usarlo en un FlexGrid. Fijate con esto:

Dim Lineas As Variant, i As Integer

Lineas = Split(FileToString(App.Path & "\MiArchivo.txt"), vbCrLf)

MSFlexGrid1.Clear
MSFlexGrid1.Rows = UBound(Lineas) + 1

Columnas = Split(Lineas(LBound(Lineas)), ",")
MSFlexGrid1.Cols = UBound(Columnas) + 2

For i = LBound(Lineas) To UBound(Lineas)

Columnas = Split(Lineas(i), ",")

For j = LBound(Columnas) To UBound(Columnas)
MSFlexGrid1.Row = i + 1
MSFlexGrid1.Col = j + 1
MSFlexGrid1.Text = Columnas(j)
Next j

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:GRACIAS NENES Y A TI CECILIA MUY BUENA AYUDA

Publicado por marcela (6 intervenciones) el 26/08/2005 02:09:23
GRACIAS ESTE ULTIMO CODIGO ME AYUDO A RESOLVER MI PROBLEMAAA!!
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