premetto che il file #1 ha molte righe ma io mi salvo nel mio #5 solo quelle contenute tra
[#<POINT] e [#POINT>]


If Check8.Value = 1 Then
If Dir(path + "\progetti\preventivi\temporaneo.txt") <> "" Then
Kill path + "\progetti\preventivi\temporaneo.txt"
End If
filetemp = path + "\progetti\preventivi\temporaneo.txt"
Open filetemp For Output As #5
Open FileTesto For Input As #1
leggi = True
Conta1 = 0
Do
Line Input #1, riga
If riga = "[#<POINT]" Then
Conta1 = Conta1 + 1
Line Input #1, riga
End If
If riga = "[#POINT>]" Then
Conta1 = 0
End If
If Conta1 = 1 Then
Print #5, riga
Else
leggi = False
End If

Loop Until leggi = False

Close #1
Close #5
FileTesto = filetemp
End If