EDITAR ARQUIVO TEXTO

SARAGIOTTO 08/10/2010 12:47:17
#354701
BOA TARDE
ESTOU COM UMA DUVIDA CRUEL
TENHO UM ARQUIVO TEXTO E PRECISO CRIAR UMA ROTINA EM VB6 PARA QUE EU POSSA LOCALIZAR UM DETERMINADO TEXTO E ALTERA-LO,
COMO QUE EU FAÇO ISSO?
EVSAR3 08/10/2010 12:56:37
#354702 Resposta escolhida
Tente o seguinte:

Open sArquivo For Input As #1
While Not EOF(1)
Line Input #1, sLinhaAtual
sTextoDoArquivo = sTextoDoArquivo & vbCrLf & sLinhaAtual
Wend
Close #1

sTextoDoArquivo = Replace(sTextoDoArquivo, [Ô]TextoBuscado[Ô], [Ô]TextoParaSubstituir[Ô])

Open sArquivo For Output As #1
Print #1, sTextoDoArquivo
Close #1


Espero que tenha ajudado. Se houver algum erro aí você da uma corrigida rápida, é que eu nao testei. Mas a sistemática é essa.
Abraço.
EVSAR3 13/10/2010 19:58:26
#355028
--
Odeio quando não voltam para explicar o que aconteceu.
SARAGIOTTO 14/10/2010 00:41:15
#355037
MARAVILHAA, FUNCIONOU PERFEITAMENTE,
MTO OBRIGADO MESMO!!
TECLA 14/10/2010 08:13:20
#355040
Problema resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar