ALTERAR TXT
Boa tarde pessoal, alguem sabe como alterar o conteudo de uma determinada linha de um arquivo txt, emplo:
teste.txt:
A
B
C
S
Sei q o txt tem 4 linhas porem conta-se apartir da linha 0 entao:
Open [Ô]C: este.txt[Ô] For Append As #2
For i = 0 To 3
If i = 1 Then
Print #2, [Ô]10/10/2011[Ô]
End If
next
Close #2
Assim ele escreve no final do arquivo, e o q preciso é troca o testo da linha 1 que é [Ô]B[Ô] por outro valor.
Alguem sabe?
teste.txt:
A
B
C
S
Sei q o txt tem 4 linhas porem conta-se apartir da linha 0 entao:
Open [Ô]C: este.txt[Ô] For Append As #2
For i = 0 To 3
If i = 1 Then
Print #2, [Ô]10/10/2011[Ô]
End If
next
Close #2
Assim ele escreve no final do arquivo, e o q preciso é troca o testo da linha 1 que é [Ô]B[Ô] por outro valor.
Alguem sabe?
é assim que funciona
para usar é simples batsa colocar em um botão
veja se te serve
Sub AlterarLinha(ByVal PathName As String, ByVal LineToAlter As String, ByVal noLinha As Integer)
[ô]
Dim F As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String
Dim ContaLinha As Integer
ContaLinha = 0
FName2 = Drive & Path & Format(Time, [Ô]hhnnss[Ô]) & [Ô].TMP[Ô] [ô]cria um arquivo temporário
F = FreeFile
Open PathName For Input As #F
F2 = FreeFile
Open FName2 For Output As #F2
Do While Not EOF(F)
ContaLinha = ContaLinha + 1
Line Input #F, InLine
If ContaLinha = noLinha Then [ô]alterar a linha como solicitado
Print #F2, LineToAlter
Else
Print #F2, InLine
End If
Loop
Close #F
Close #F2
[ô]
[ô] Troca o arquivo antigo pelo novo
[ô]
Kill PathName
Name FName2 As PathName
End Subpara usar é simples batsa colocar em um botão
Private Sub Command1_Click()
[txt-color=#007100][ô] AlterarLinha caminho do banco, novo texto da linha, numero da linha a ser alterada
[ô] ex:[/txt-color]
AlterarLinha [Ô]c: este.txt[Ô], [Ô]marcelo[Ô], 2
End Subveja se te serve
Tópico encerrado , respostas não são mais permitidas