Como faço para gravar dados no meio de um arquivo txt, sem apagar o que já esta lá.

 

Ex:DEUS

    É

    JUSTO

    E

    FIEL.

 

Eu gostaria que ficasse assim depois que eu mandasse gravar:

    

  DEUS

  É

  JUSTO

  MARAVILHOSO

  E

  FIEL

 

Como eu poderia fazer isso?

 

Atenciosamante

Rodrigo Porto.

Amigo, eu coloquei um textbox, mudei a propriedade multiline para true e scrollBars para vertical e então escrevi o texto exatamente como você colocou ai, dai eu coloquei um botão de comando e no evento "Click" dele eu coloquei uma função replace

Text1.Text = Replace(Text1.Text, "JUSTO", "JUSTO" & vbCrLf & "    MARAVILHOSO")

 

onde disse que text1.text = replace("Todo o seu texto","A palavra anterior ou conjunto de palavras para servir de referencia","Texto a ser incluido")

vbcrlf = "Quebra de linha"

 

Espero te-lo ajudado amigo, qualquer coisa to a disposição.
T+

Olá outra vez amigo.
Tirando a falta de educação de nosso amigo acima e mudando de assunto para não me rebaixar a certas bobagens peço desculpas por ter entendido mau.
Então por favor faça algumas alterações no código que lhe enviei acima.

Coloque em seu projeto um modulo e inclua esses códigos abaixo.

'...............................................................................................................

Dim ArrayNum As Integer
Global Filename As String
Const MB_YESNO = 4, MB_ICONQUESTION = 32, IDNO = 7, MB_DEFBUTTON2 = 256

Sub OpenFile(Filename As String)
On Error GoTo uhoh
Dim F As Integer
F = FreeFile
Open Filename For Input As F
Form1!Text1.Text = Input$(LOF(F), F)
Close F
Exit Sub

uhoh:
Exit Sub
End Sub

Sub DoUnLoadPreCheck(unloadmode As Integer)
If unloadmode = 0 Or unloadmode = 3 Then
Unload Form1
End If
End Sub

Sub CloseFile(Filename As String)
Dim F As Integer
On Error GoTo CloseError
' If Dir(Filename) <> "" Then
' response = MsgBox("Já existe um arquivo de mesmo nome, deseja sobrescrevê-lo?", MB_YESNO + MB_QUESTION + MB_DEFBUTTON2, "Erro")
' If response = IDNO Then Exit Sub
' End If
F = FreeFile
Open Filename For Output As F
Print #F, Form1!Text1.Text
Close F
Filename = "Sem Título"
Exit Sub

CloseError:
MsgBox "Ocorreu um erro durante salvamento do arquivo, refaça a operação.", 48, "Erro"
Exit Sub
End Sub
'..............................................................................................................

 

Depois no evento clique do seu botão de comando você pode colocar.

 

OpenFile (App.Path & "Teste.txt")
Text1.Text = Replace(Text1.Text, "JUSTO", "JUSTO" & vbCrLf & "    MARAVILHOSO")

Filename = App.Path & "Teste.txt"
CloseFile (App.Path & "Teste.txt")

Onde você irá abrir o arquivo txt "app.path & "Teste.txt"
incluir as expressões desejadas passar o local para o seu novo arquivo onde no meu caso coloquei o mesmo para substituir o arquivo existente e fechei e salvei o arquivo txt.

Espero desta vez te-lo ajudado melhor.
Agora tem outras formas de fazer, você pode implementar um comondialog para abrir e salvar em locais escolhidos pelo usuário, e pode facilitar essa abertura do arquivo com um componente ocx  "Microsoft Rich Textbox Control 6.0 (SP4)

 

onde é só colocar o nome do arquivo e mandar dar um loadfile.
Mas se quiser fazer de outras formas é só perguntar que esplico na maior "boa" :oD
Dessa forma que passei acima funciona muito bem e bem rápido.
Testei aqui.

T+
Abraços....