Postada em 20/10/2008 16:59 hs
Private Sub Command1_Click()
SL_Arq "C: este.txt", "C:final.txt"
End Sub
Private Sub SL_Arq(Arq As String, Arq2 As String)
Dim Linha As String
Dim Aux As Long
Dim Texto As String
'
Open Arq For Input Access Read As #1
Aux = 0
'
Do While Not EOF(1)
Line Input #1, Linha
'
If Aux = 0 Then
Texto = Linha
Else
If InStr(1, Linha, ";") = 1 Then
Texto = Texto & Linha
Else
Texto = Texto & vbCrLf & Linha
End If
End If
'
Aux = Aux + 1
Loop
'
Close #1
'
Open Arq2 For Output As #1
Print #1, Texto
Close #1
'
End Sub
Acho que da pra entender tranquilo. Testei e funcionou.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
