ME AJUDEM COM ARQUIVO DE TEXTO

USUARIO.EXCLUIDOS 06/07/2007 14:43:32
#225039
Gostaria de saber como posso alterar um determinada letra de um arquivo de texto.
por exemplo: tenho um arquivo de texto com a seguinte informação.

aaaaasaeeesdffssdsffgggd
dssssssssssdddsssssssssa
jjjdddkkkdddllllddddaaaa
dtudddddddddpddddddddsss
sssssssssssddddddddddddd

quero alterar a letra P da 4 linha que sempre vai estar nesta posição.
alguem pode me ajudar com isso?
USUARIO.EXCLUIDOS 06/07/2007 15:12:48
#225053 Resposta escolhida


Novo = Replace(Linha, "P", "X")

isso resolverá
USUARIO.EXCLUIDOS 06/07/2007 15:21:20
#225058

Completando ...

Onde o Linha vc consegue uma função de ler arquivos de Texto

se quiser..pega aí tudo pronto, no caso

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String
  Dim ContaLinha as integer

Contalinha = 1
  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)

    Line Input #iARQ, sLinha
    If ContaLinha = 4 then
         sLinha= Replace(sLinha, "P", "X")
    End if
    
    sResult = sResult + Chr(13) & Chr(10) + sLinha

    ContaLinha = ContaLinha + 1
  Loop

'Dái, pra gerar o arquivo txt alterado fazemos isso
 Open "C:\Novo.Txt" for OutPut #1
    Print #1, sResult
 Close #1

Close iARQ

End Function


Para usar:
Text1.Text = AbreArquivo("C:\Texto.TXT")

boa sorte
USUARIO.EXCLUIDOS 06/07/2007 16:13:08
#225067
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar