|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Insere uma linha em um arquivo de texto após uma linha especificada
|
 |
|
|
|
Postada em 2/9/2004 por Vaughyman
Sub FInsertLine(ByVal PathName As String, ByVal LineToAdd As String, ByVal LineToAddAfter As String)
'
' Insere uma linha em um arquivo de texto após uma linha especificada.
' Se LineToAddAfter está em branco, então adiciona no início do arquivo.
'
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
'
' testa para ver se adiciona no início do arquivo
'
If LineToAddAfter = "" Then
Print #F2, LineToAdd
End If
'
' Copia o arquivo linha por linha
'
Do While Not EOF(f)
Line Input #f, InLine
Print #2, InLine
If LineToAddAfter <> "" Then ' testa se a linha já foi adicionada
If InLine = LineToAddAfter Then ' verifica se chegou à linha fornecida
Print #F2, LineToAdd ' Adiciona a linha
LineToAddAfter = "" ' Previne a adição da linha por várias vezes
End If
End If
Loop
Close #f
Close #F2
'
' Troca o arquivo antigo pelo novo
'
Kill PathName
Name FName2 As PathName
End Sub
|
|
|
|
|
