PROCURAR E GRAVAR NO TXT

VILANOVA 13/11/2012 11:33:46
#414109
Pessoal, estou precisando fazeer uma coisa que vai ser fichinha para voces.. estou precisando pegar um arquivo txt , LER ele e onde tiver por exemplo.. uma string como [Ô]UPCXD[Ô] trocar esse conjunto de caracteres para [Ô]LINHA[Ô] , como eu faço isso de forma pratica ? tenho que abrir, procurar , trocar o caractere e gravar de novo? desde ja agradeço a atençao.
MARCELO.TREZE 13/11/2012 13:12:33
#414125
assim

crie esta sub 

Sub AlterarLinha(ByVal CaminhoDoArquivo As String, TextoAtual As String, ByVal Alteracao As String)
Dim F As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String
  FName2 = Drive & Path & Format(Time, [Ô]hhnnss[Ô]) & [Ô].TMP[Ô] [ô]cria um arquivo temporário
  F = FreeFile
  Open CaminhoDoArquivo For Input As #F
  F2 = FreeFile
  Open FName2 For Output As #F2
  Do While Not EOF(F)
    Line Input #F, InLine
    If InStr(1, InLine, TextoAtual) <> 0 Then          [txt-color=#007100] [ô]se encontrar o texto (UPCXD)[/txt-color]
    Alteracao = Replace(InLine, TextoAtual, Alteracao)  [txt-color=#007100][ô]Altera para (LINHA)[/txt-color]
      Print #F2, Alteracao
   Else
     Print #F2, InLine
    End If
  Loop
  Close #F
  Close #F2
[txt-color=#007100][ô]
[ô] Troca o arquivo antigo pelo novo, com a alteração
[ô][/txt-color]
  Kill CaminhoDoArquivo
  Name FName2 As CaminhoDoArquivo
End Sub


e ultilize assim

Private Sub Command1_Click()
[txt-color=#007100][ô] AlterarLinha caminho do banco, texto_a_ser_alterado, alteração[/txt-color]
AlterarLinha [Ô]c:    estelinhas.txt[Ô], [Ô]UPCXD[Ô], [Ô]LINHA[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar