Mudança De Uma Linha No Arquivo De Texto

[Janio]

E ae amigos,

como consigo mudar uma palavra ou uma linha em um arquivo txt, que tenha mais de uma linha. Por exemplo:

O arquivo txt tem 3 linhas e a primeira está escrito "teste". Eu quero mudar essa linha para "Texto" e manter as outras duas linhas inalteradas.

Lembrando que a função: open "arquivo teste.txt" for output #1, deleta todas as linhas do arquivo que foram salvas.

alguém sabe como???

[PASP]

Dim sLinha As String
Dim iARQ As Integer

iARQ = FreeFile
arquivo = "Arquivo.txt"
Open arquivo For Input As iARQ
'vai rodar pelo txt
Do While Not EOF(iARQ)
    'Pega o conteúdo da linha
    Line Input #iARQ, sLinha
    If sLinha <> "text" Then
        Print #iARQ, "Texto"
    end if
Loop
'Fecha o arquivo
Close iARQ

Testa ai brother não tenha certeza se funciona, se não funcionar, posta o erro!

Um Abraço!

[Janio]

Amigao,

o problema é que o metodo input no "open arquivo for input..." é somente para leitura, ou seja, não permite alterar valores nas linhas....

[jb207]

Uma sujestão:

já que o arquivo é pequeno, crie uma variavel array de texto.

Jogue o conteudo de cada linha para cada array de variavel, toque o que for necessario e depois grave denovo no arquivo.

Espero ter ajudado.