USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Apaga uma linha (denominada LineToDelete) em um arquivo de texto
Postada em 2/9/2004 por Vaughyman            
Sub FDeleteLine(ByVal PathName As String, ByVal LineToDelete As String)
'
' Apaga uma linha (denominada LineToDelete) em um arquivo de texto
' Deve haver coincidência exata.  Se não encontrada a linha, a função não retorna um erro.
'
Dim f As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String, filename As String, Ext As String
  FParsePath PathName, Drive, Path, filename, Ext
  FName2 = Drive & Path & Format(Time, "hhnnss") & ".TMP"
  f = FreeFile
  Open PathName For Input As #f
  F2 = FreeFile
  Open FName2 For Output As #F2
  Do While Not EOF(f)
    Line Input #f, InLine
    If InLine <> LineToDelete Then
      Print #F2, InLine
    End If
  Loop
  Close #f
  Close #F2
'
' Troca o arquivo antigo pelo novo
'
  Kill PathName
  Name FName2 As PathName
End Sub


Fuiiiii!
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página