Postada em 06/05/2008 15:51 hs
Dim iARQ As Integer
Dim sLinha As String
Dim sResult, sResult1, sResult2 As String
iARQ = FreeFile
Open sArquivo For Input As iARQ
Do While Not EOF(iARQ)
'Pega o conteúdo da linha
Line Input #iARQ, sLinha
If Mid(sLinha, 1, 1) = "D" Then
sResult1 = sLinha
Else
sResult2 = sLinha
sResult = sResult1 + " " + sResult2 + Chr(13) + Chr(10)
End If
Loop
'Fecha o arquivo
Close iARQ
Só implementar a gravação no banco de dados.
|
