buenas...
supongamos que en un archivo txt tenemos este contenido:
# Biblioteca de sonidos creada: 04/24/2016 19:09:04.137
maria:/home/user10/Escritorio/restar.ogg:NO
jose:/home/user10/Escritorio/tiro.ogg:NO <----------------------------linea a modificar
maria66:/home/user10/Escritorio/restar.ogg:NO
como se hace para ubicar esta linea y modificarla o eliminarla y añadir la linea modificada al final?
seek es útil para esto? si es así como se utiliza?
ejemplos?
comentarios?
Hallar Línea De Un Archivo Txt Y Modificarla?[Resuelto]
Objetivo: Hallar Línea De Un Archivo Txt Y Modificarla?[Resuelto]
última edición por v3ctor el Lunes, 25 Abril 2016, 00:54; editado 2 veces
última edición por v3ctor el Lunes, 25 Abril 2016, 00:54; editado 2 veces
Objetivo: Re: Hayar Linea De Un Archivo Txt Y Modificarla?
Siendo aquel archivo, un archivo de texto, puedes usar un array y la función Split():
Public Sub Main()
Dim s As String
Dim ss As String[]
' Cargo el contenido del archivo en una variable de tipo String:
s = File.Load("/ruta/del/archivo/de/texto")
' Separo las rayas poniéndole cada una en un elemento de un variable array de tipo String:
ss = Split(s, "\n")
' Elimino la 3^ raya (index = 2):
ss.Remove(2, 1)
' Reconstituo el texto en una variable de tipo String, garantizando al final de cada raya el carácter escape "\n":
s = ss.Join("\n", Null)
' Guardo el nuevo archivo ahora falto de la originaria tercera raya:
File.Save("/ruta/del/nuevo/archivo/de/texto", s)
End
Dim s As String
Dim ss As String[]
' Cargo el contenido del archivo en una variable de tipo String:
s = File.Load("/ruta/del/archivo/de/texto")
' Separo las rayas poniéndole cada una en un elemento de un variable array de tipo String:
ss = Split(s, "\n")
' Elimino la 3^ raya (index = 2):
ss.Remove(2, 1)
' Reconstituo el texto en una variable de tipo String, garantizando al final de cada raya el carácter escape "\n":
s = ss.Join("\n", Null)
' Guardo el nuevo archivo ahora falto de la originaria tercera raya:
File.Save("/ruta/del/nuevo/archivo/de/texto", s)
End
Objetivo: Re: Hayar Linea De Un Archivo Txt Y Modificarla?
cierto no lo había pensado....
probare a ver que sale, gracias vuott
probare a ver que sale, gracias vuott
Objetivo: Re: Hayar Linea De Un Archivo Txt Y Modificarla?
funciona perfecto.
Public Sub EliminarSonido(nombre As String)
Dim Archivo As File
Dim Parrafo As String
Dim Parrafos As New String[]
Dim TresPartes As New String[]
Dim NuevoArchivo As String
Archivo = Open $RutaRegistro For Read
While Not Eof(Archivo)
TresPartes = New String[]
Line Input #Archivo, Parrafo
TresPartes = Split(Parrafo, SEPARADOR)
If nombre <> TresPartes[0] Then Parrafos.Add(Parrafo)
Wend
Archivo.Close
NuevoArchivo = Parrafos.Join("\n", Null)
File.Save($RutaRegistro, NuevoArchivo)
End
Dim Archivo As File
Dim Parrafo As String
Dim Parrafos As New String[]
Dim TresPartes As New String[]
Dim NuevoArchivo As String
Archivo = Open $RutaRegistro For Read
While Not Eof(Archivo)
TresPartes = New String[]
Line Input #Archivo, Parrafo
TresPartes = Split(Parrafo, SEPARADOR)
If nombre <> TresPartes[0] Then Parrafos.Add(Parrafo)
Wend
Archivo.Close
NuevoArchivo = Parrafos.Join("\n", Null)
File.Save($RutaRegistro, NuevoArchivo)
End
Objetivo: Re: Hayar Linea De Un Archivo Txt Y Modificarla?[Resuelto]
última edición por vuott el Lunes, 25 Abril 2016, 01:26; editado 2 veces
última edición por vuott el Lunes, 25 Abril 2016, 01:26; editado 2 veces
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4497s (PHP: -81% SQL: 181%)
Consultas SQL: 46 - Debug off - GZIP Activado