AJUDA COM COMANDO REPLACE

CARALEA 21/02/2010 02:04:39
#334940
Estou tentando subistituir uma linha em um .txt.
Eu faço o comando:

Private Sub Command1_Click()
Texto = [Ô]oi.txt[Ô]
Texto = Replace(Texto, [Ô].[Ô], [Ô],[Ô])
End Sub

Ai eu crio um oi.txt, e escrevo algo como [Ô]Blz.Tudobem.[Ô], o programa deveria subistituir o . por , que no caso ficaria assim [Ô]Blz,Tudobem[Ô].
Só que não está lendo esse [Ô]oi.txt[Ô], Gostaria de saber se tem como fazer ele ler o txt e subistituir o que eu quero la dentro.
TECLA 21/02/2010 09:47:55
#334944
1. Rotina para ABRIR O ARQUIVO e passar o seu conteúdo para um TEXTBOX:
Dim l As String, t As String
Open [Ô]c:\oi.txt[Ô] For Input As #1
Do While Not EOF(1)
    Line Input #1, l
    t = t & l
Loop
Text1 = t
Close #1


2. Em seguida, faça o REPLACE na variável [Ô]t[Ô] ou no conteúdo do [Ô]Text1[Ô]. Exemplo:
t = Replace(t, [Ô].[Ô], [Ô],[Ô])


3. Por fim, salve o conteúdo de [Ô]t[Ô] ou do [Ô]Text1[Ô] no arquivo. Exemplo:
Open [Ô]c:\oi.txt[Ô] For Output As #1
Print #1, t
Close #1


Se não entendeu, é só postar.
CARALEA 21/02/2010 13:39:36
#334960
Deu certo
Só que o oi.txt tem varias coisas escritas, como em varias linhas exemplo:
Olá
Blz.
Vlw.
Como Vai?

Se eu colocar para alterar o [Ô]Blz.[Ô] por [Ô]Oi.[Ô], ele altera e grava no oi.txt assim:
OláOi.Vlw.Como Vai?
Ele não salva do jeito que estava no oi.txt.
Tem como colocar para salvar do jeito que está no oi.txt?
Obs: eu coloquei o Text1.Text com Mult Line, e mesmo assim não deu.
TECLA 21/02/2010 14:49:48
#334963
Posta o conteúdo completo do arquivo para teste.
CARALEA 21/02/2010 15:25:45
#334964
Private Sub Command1_Click()
Dim l As String, t As String
Open [Ô]oi.txt[Ô] For Input As #1
Do While Not EOF(1)
Line Input #1, l
t = t & l
Loop
Text1 = t
Close #1
t = Replace(t, [Ô].[Ô], [Ô],[Ô])
Open [Ô]oi.txt[Ô] For Output As #1
Print #1, t
Close #1
End Sub

------------------------

No meu arquivo oi.txt está escrito isso:

Oi.....
Blz.....
ComoVai?......

Logo que eu clico para o programa alterar o [Ô].[Ô] por [Ô],[Ô] ele altera e salva no [Ô]oi.txt[Ô] isso:

Oi,,,,,Blz,,,,,ComoVai?,,,,,,

Eu gostaria que salvasse assim:
Oi,,,,,
Blz,,,,
ComoVai?,,,,,,
Tópico encerrado , respostas não são mais permitidas
Voltar