|
|
|
|
|
|
|
|
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!
|
|
|
|
|
