Visual Basic - Archivos de Texto

Life is soft - evento anual de software empresarial
 
Vista:

Archivos de Texto

Publicado por marce.lo (46 intervenciones) el 09/02/2005 02:01:09
Amigos, tengo informacion en Blok de Notas y deseo seleccionar algunas filas particulares de este y que las despliegue en un textBox.
Si alguien tiene una idea estare muy agradecido.
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:Archivos de Texto

Publicado por Benjo (679 intervenciones) el 09/02/2005 11:55:45
Marcelo, presumo que estas refiriendote a un archivo de texto .txt
Lo que podrías hacer es usar el Objeto FileSystemObjetc y cargar todo el txt para luego separarlo en una matriz y seleccionar así la fila que quieras.
Este sería un código que lee el archivo Autoexec.bat , lo transforma en una matriz y así te permite acceder a la fila solicitada.

Private Sub Command1_Click()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\Autoexec.bat", 1)
Dim TextoCompleto As String
TextoCompleto = f.ReadAll
Dim spliter
spliter = Split(TextoCompleto, Chr(13))
Debug.Print spliter(4) 'en realidad estarás vindo la línea 5 del
'Autoexec,bat, dado que las matrices son Base 0
' y por lo tanto la línea 1 se encuentra en la matriz
' (0)

End Sub

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:Archivos de Texto

Publicado por marcelo (46 intervenciones) el 09/02/2005 17:09:58
Gracias a tus datos he podido elejir las filas deseadas pero ahora el problema que tengo es que los datos en cada fila estan separados por comas y deseo verlos por separado en diferentes cuadros de texto¿se puede esto hacer?
Te lo agradecere mucho
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:Archivos de Texto

Publicado por Benjo (679 intervenciones) el 09/02/2005 20:40:50
Usa nuevamene la función Split, para eso sirve esa Función
Dim spliter , partes
spliter = Split(TextoCompleto, Chr(13))
partes= Split(spliter(0), ",")
debug.print partes(0)
debug.print partes(1)

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:Archivos de Texto

Publicado por Gracias (46 intervenciones) el 10/02/2005 12:14:46
Te pasaste por tu tiempo, todo me ha funcionado super bien.Gracias de nuevo
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