Arquivo Txt

[Guest Quanttumm]

Preciso ler a linha de um txt alterar parte dela e gravar neste txt

obrigado

[Garcia]

Tente assim:

Dim sValor As Variant

Dim i As Integer, j As Integer

Open "C:\Arquivo.txt" For Input As #1

ReDim sValor(0)

Do While Not EOF(1)

----i = i + 1

----ReDim Preserve sValor(i)

----'Armazena cada linha em uma ocorrencia de sValor

----'Ex.: Linha 1 está em sValor(1)

----Input #1, sValor(i)

Loop

Close #1

If i >= 10 Then

----sValor(10) = "Essa é a linha 10"

ElseIf i > 1 Then

----sValor(1) = "Seu arquivo não tem 10 linhas"

End If

Open "C:\Arquivo.txt" For Output As #1

For j = 1 To i

----Print #1, sValor(j)

Next j

Close #1

P.S.: Substitua o traço (-) por espaço em branco

Funcionou ?

Abraço,

Garcia