Para leer un archivo de texto puedes usar las siguientes instrucciones:
Dim nCanal As Integer
Dim nLen As Long
Dim Lineas() As String
Dim Texto As String
nCanal = FreeFile
Open TuArchivo.Txt For Binary As #nCanal
nLen = LOF(nCanal)
Texto$ = Space$(nLen)
Get #nCanal, , Texto$
Close #nCanal
Lineas = Split(Texto, vbCrLf)
Con eso ya tienes dentro del arreglo de Lineas todo tu archivo de texto cargado linea por linea. Si lo quieres modificar tendrias que modificar la linea que desees con cualquier funcion de manejo de cadenas. Ahora para escribir en un archivo de texto puedes usar lo siguiente:
Dim nCanal As Integer
nCanal = FreeFile
Open "OTROARCHIVO.TXT" For Output As #nCanal
Write #nCanal, "Lo que quieras escribir"
Close #nCanal
Y eso es todo. Ahora que si lo que quieres es hacer un edito de texto. Eso si es otra cosa, pero a mi entender mas simple, porque lo unico que harias seria cargar el archivo de texto dentro de un RichTextBox ( si le quieres dar formato ) o en un simple TextBox ( con multiline en true ). Muestras el control que hallas utilizado y al final grabas con las instrucciones para grabar que te he dado los cambios realizados. Y listo !!!
Registrado: Aug 03, 2005 Mensajes: 30 Ubicación: Lima
Publicado: 04/10/2005 10:40:08 pmAsunto:
Hola Aud:
Para leer un archivo de texto puedes usar las siguientes instrucciones:
Dim nCanal As Integer
Dim nLen As Long
Dim Lineas() As String
Dim Texto As String
nCanal = FreeFile
Open TuArchivo.Txt For Binary As #nCanal
nLen = LOF(nCanal)
Texto$ = Space$(nLen)
Get #nCanal, , Texto$
Close #nCanal
Lineas = Split(Texto, vbCrLf)
Con eso ya tienes dentro del arreglo de Lineas todo tu archivo de texto cargado linea por linea. Si lo quieres modificar tendrias que modificar la linea que desees con cualquier funcion de manejo de cadenas. Ahora para escribir en un archivo de texto puedes usar lo siguiente:
Dim nCanal As Integer
nCanal = FreeFile
Open "OTROARCHIVO.TXT" For Output As #nCanal
Write #nCanal, "Lo que quieras escribir"
Close #nCanal
Y eso es todo. Ahora que si lo que quieres es hacer un edito de texto. Eso si es otra cosa, pero a mi entender mas simple, porque lo unico que harias seria cargar el archivo de texto dentro de un RichTextBox ( si le quieres dar formato ) o en un simple TextBox ( con multiline en true ). Muestras el control que hallas utilizado y al final grabas con las instrucciones para grabar que te he dado los cambios realizados. Y listo !!!
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
FAQ
Buscar
Grupos de Usuarios
Perfil
Entre para ver sus mensajes privados
Login
