Arquivo texto

[Bravanet 0]

Pessoal, bom dia!Pessoal sou novato no visual basic e estou precisando ler um arquivo texto e ir alterando linha por linha através do replace e em seguida salvar este arquivo com o mesmo nome mais não estou conseguindo. Alguém poderia me ensinar como fazer isso no vb?Este código abaixo contém ERROS, mais estou colocando para vocês entenderem o que eu estou querendoSet jr = CreateObject("Scripting.FileSystemObject")Set j = jr.OpenTextFile(strFile, ForAppending, TristateFalse)Set r = jr.getfile(strFile)strFileNamer = r.NameFor i = 0 'não sei terminar o forfLine = f.readlinefLine = Replace(fLine, "\n\n\n", "\n")NextPor favor, me ajudem!Obrigado!

[Graymalkin 0]

Bom, eu faria assim:

 

n = freefile()open strFile for input as #ntexto = input(lof(n), n)close #nlinhas = split(texto, vbCrLf)n = freefile()open strFile for output as #nfor each linha in linhas	? #n, replace(linha, "\n\n\n", "\n")next linhaclose #n

Certo? ;)

 

Graymalkin