EXCLUIR LINHAS DE UM ARQUIVO TXT
Boa tarde pessoal!
Preciso de uma ajudinha, sou novo no VB.net e estou apanhando bastante.. vamos a questão!
Preciso ler um arquivo txt, ler as 12 primeiras linhas e gravar essas linhas em um outro arquivo txt (até aqui eu consegui fazer), mas agora eu preciso excluir essas 12 linhas do primeiro arquivo. Alguém tem alguma sugestão de como fazer isso? Aqui embaixo segue o meu código:
Public Sub ContarLinhas()
Dim leitura As StreamReader
Dim valor As StreamWriter
Dim linha As String
Dim qtdLinha As Integer
leitura = New StreamReader([Ô]C:211-202 12oz (Cerveja).dat[Ô])
valor = New StreamWriter([Ô]C:211-metal.dat[Ô], True)
Do
linha = leitura.ReadLine()
If linha <> [Ô][Ô] Then
qtdLinha += 1
End If
If Not qtdLinha > 12 Then
valor.WriteLine(linha)
End If
Loop Until linha Is Nothing
leitura.Close()
valor.Close()
MsgBox(qtdLinha)
End Sub
Agradeço desde já a ajuda!
Preciso de uma ajudinha, sou novo no VB.net e estou apanhando bastante.. vamos a questão!
Preciso ler um arquivo txt, ler as 12 primeiras linhas e gravar essas linhas em um outro arquivo txt (até aqui eu consegui fazer), mas agora eu preciso excluir essas 12 linhas do primeiro arquivo. Alguém tem alguma sugestão de como fazer isso? Aqui embaixo segue o meu código:
Public Sub ContarLinhas()
Dim leitura As StreamReader
Dim valor As StreamWriter
Dim linha As String
Dim qtdLinha As Integer
leitura = New StreamReader([Ô]C:211-202 12oz (Cerveja).dat[Ô])
valor = New StreamWriter([Ô]C:211-metal.dat[Ô], True)
Do
linha = leitura.ReadLine()
If linha <> [Ô][Ô] Then
qtdLinha += 1
End If
If Not qtdLinha > 12 Then
valor.WriteLine(linha)
End If
Loop Until linha Is Nothing
leitura.Close()
valor.Close()
MsgBox(qtdLinha)
End Sub
Agradeço desde já a ajuda!
Não tem como excluir linhas de um arquivo, você tem que regravar ele inteiro sem estas linhas
Public Function EXCLUI_LINHA(ByVal V_ID As String)
Dim pArquivo As String = Application.StartupPath & [Ô]\sql_geral.txt[Ô]
Dim Arquivo As StreamWriter
Dim Linhas As New List(Of String)
Using SR As New StreamReader(pArquivo)
Linhas.AddRange(System.IO.File.ReadAllLines(pArquivo.ToString))
SR.Dispose()
SR.Close()
End Using
Arquivo = New StreamWriter(pArquivo)
For Each Linha As String In Linhas.ToArray
If Not Linha.Contains(V_ID) Then
Arquivo.WriteLine(Linha)
End If
Next
Arquivo.Close()
End Function
[ô]não esqueça de declarar
Imports System.IO
Dim pArquivo As String = Application.StartupPath & [Ô]\sql_geral.txt[Ô]
Dim Arquivo As StreamWriter
Dim Linhas As New List(Of String)
Using SR As New StreamReader(pArquivo)
Linhas.AddRange(System.IO.File.ReadAllLines(pArquivo.ToString))
SR.Dispose()
SR.Close()
End Using
Arquivo = New StreamWriter(pArquivo)
For Each Linha As String In Linhas.ToArray
If Not Linha.Contains(V_ID) Then
Arquivo.WriteLine(Linha)
End If
Next
Arquivo.Close()
End Function
[ô]não esqueça de declarar
Imports System.IO
Tópico encerrado , respostas não são mais permitidas