Fazer uma busca dentro de um TXT

[Rodrigo Defende 0]

Presciso abrir o txt e fazer uma busca em todas as linhas e caso a quantidade de linhas ultrapasse o limite estipulado eu quero apagar a primeira linha e escrever ali o conteudo de um textbox.Abrir, contar e comparar eu sei mas nao to sabendo eh apagar a primeira linha e escrever na primeira linha o texto da textbox caso a contagem seja execedida.Quem puder ajudar..... :o

[Luizgrs 0]

Você está usando fso?

[Rodrigo Defende 0]

Pra mim tanto faz se for FSO ou direto pelo Open do VB mesmo, eu sei das duas maneiras.

Acredito que pelo FSO seja mais maleavel - tanto faz. http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[Luizgrs 0]

Com FSO você pode fazer dessa maneira:

Dim fso As New FileSystemObjectDim txt As TextStreamSet txt = fso.OpenTextFile("C:\windows\desktop\adicionar.txt", ForReading)texto = txt.ReadAll 'pega todo conteúdo do arquivotexto = Mid(texto, InStr(1, texto, vbCrLf), Len(texto)) ' tira a primeira linha do conteúdo do arquivotxt.Closetexto = nova_primeira_linha & texto 'adiciona a nova primeira linhaSet txt = fso.OpenTextFile("C:\windows\desktop\adicionar.txt", ForWriting)txt.Write texto 'e susbtitui o conteúdo pelo novo alterado

[Rodrigo Defende 0]

Valeu - era isso ai.

Agora eh soh implementar com o resto aqui

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Rodrigo Defende 0]

Soh pra incrementar um pouco mais - como ficaria para eu retirar a ULTIMA linha??

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Luizgrs 0]

Seria assim:

texto = Mid(texto, 1, InStrRev(texto, vbCrLf) - 1) ' tira a primeira linha do conteúdo do arquivo

E caso você forcolocar uma nova linha ñ esqueça do vbrlf

[Rodrigo Defende 0]

Valeu de novo cara.

Com estas infos ai eu montei um sistema de menu onde mostra os arquivos abertos recentemente, tipo o Word e tantos outros mas sem usar arquivo INI ou registro.

 

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif