Postada em 18/03/2011 10:43 hs
olá amigos...
Estou tentando alterar dados em um arquivo texto, onde eu primeiro localizo a linha e depois tento alterar. Só que esta apagandio todo o arquivo..
IntArq = FreeFile
Open Cmh For Output As #IntArq
i = 0
While Not EOF(IntArq)
Line Input #IntArq, Linha
'pego o nome da linha e comparo com o selecionato no text
If UCase(Mid$(Linha, 11)) = UCase(Text2.Text) Then fi = True
'caso positivo abro uma variavel e a matenho como true até que todas as linhas sejam alteradas
If fi = True Then
Write #IntArq, "Mid$(txt(0).Text, 11)"
If i = 11 Then fi = False
i = i + 1
End If
Wend
Close #IntArq
' onde tô errando???
Grande abraço
|
