SUBSTITUIR TEXTO EM ARQUIVO
Bom dia Pessoal.
Como faço para substituir uma linha em um arquivo texto, por exemplo trata-se da 3° linha de um arquivo.
Desde já agradeço.
Luis Henrique Valadares
Como faço para substituir uma linha em um arquivo texto, por exemplo trata-se da 3° linha de um arquivo.
Desde já agradeço.
Luis Henrique Valadares
para o que pretendendes não dará para fazeres do tipo dos ficheiros .ini
O arquivo é extensão .txt.
abri um arquivo de texto para um textbox eliminando a terceira linha
Dim LÃneaTexto As String, contano As Double, numerolinha As Double
numerolinha = 3 [ô] numero da linha que vc quer excluir
Text1.Text = [Ô][Ô]
contano = 0
Open [Ô]C:\arquivoparateste.txt[Ô] For Input As #1 [ô] abertura do seu arquivo
Do While Not EOF(1)
contano = contano + 1
Line Input #1, LÃneaTexto
If contano <> numerolinha Then Text1.Text = Text1.Text & LÃneaTexto & vbNewLine [ô] grava em textbox
Loop
Close #1
salvei com um outro nome
Open [Ô]C:\saidaarquivoparateste.txt[Ô] For Output As #1 [ô] salva com outro nome
Print #1, Text1.Text
Close #1
espero que ajude
Dim LÃneaTexto As String, contano As Double, numerolinha As Double
numerolinha = 3 [ô] numero da linha que vc quer excluir
Text1.Text = [Ô][Ô]
contano = 0
Open [Ô]C:\arquivoparateste.txt[Ô] For Input As #1 [ô] abertura do seu arquivo
Do While Not EOF(1)
contano = contano + 1
Line Input #1, LÃneaTexto
If contano <> numerolinha Then Text1.Text = Text1.Text & LÃneaTexto & vbNewLine [ô] grava em textbox
Loop
Close #1
salvei com um outro nome
Open [Ô]C:\saidaarquivoparateste.txt[Ô] For Output As #1 [ô] salva com outro nome
Print #1, Text1.Text
Close #1
espero que ajude
GERARDA.
Explicando um pouco melhor.
Tenho um arquivo com 3 linhas.
Toda vez que inicio meu aplicativo preciso alterar a 3° linha pela informação que possuo.
Seria isso.
Obrigado pela atenção.
Explicando um pouco melhor.
Tenho um arquivo com 3 linhas.
Toda vez que inicio meu aplicativo preciso alterar a 3° linha pela informação que possuo.
Seria isso.
Obrigado pela atenção.
dá pra usar o exemplo que eu fiz !
mas talvez tenha outro jeito de fazer
mas talvez tenha outro jeito de fazer
use esta função que fiz pra vc
Function AlteraLinha(ArquivoAtual As String, Linha As Long, NovaLinha As String)
Dim Cont As Integer
Dim f As Integer
Dim F2 As Integer
Dim ArquivoTemp As String
Dim InLine As String
ArquivoTemp = App.Path & Format(Time, [Ô]hhnnss[Ô]) & [Ô].TMP[Ô]
f = FreeFile
Open ArquivoAtual For Input As #f
F2 = FreeFile
Open ArquivoTemp For Output As #F2
Do While Not EOF(f)
Cont = Cont + 1
Line Input #f, InLine
If Cont = Linha Then
Print #F2, NovaLinha
Else
Print #F2, InLine
End If
Loop
Close #f
Close #F2
[txt-color=#007100][ô]
[ô] Troca o arquivo antigo pelo novo
[ô][/txt-color]
Kill ArquivoAtual
Name ArquivoTemp As ArquivoAtual
End FunctionPrivate Sub Command1_Click()
[txt-color=#007100][ô] AlteraLinha Caminho_do_Arquivo, Linha_a_ser_alterada, novo_texto[/txt-color]
AlteraLinha [Ô]c: este.txt[Ô], 3, [Ô]novo texto[Ô]
End Sub
Gerarda desculpe, não tinha visto sua resposta, realmente é a mesma coisa, desculpe mesmo, foi sem querer.
bom fica ai pra ver se aproveita, mas se der certo o primeiro a responder foi o gerarda, ponto pra ele
bom fica ai pra ver se aproveita, mas se der certo o primeiro a responder foi o gerarda, ponto pra ele
gostei da funçaõ
o importante não é pontuação
é colaboração
marcelo foi mal desculpe
o importante não é pontuação
é colaboração
marcelo foi mal desculpe
Tópico encerrado , respostas não são mais permitidas