Dim V(0 To 9) As String
Dim W(0 To 9) As String
Dim X(0 To 9) As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Open "e:\pacientes.dat" For Input As #1
i = 0
Do While EOF(1) = False
Input #1, V(i), W(i), X(i)
i = i + 1
Loop
Close #1
verificar()
For j = 0 To i
List1.AddItem V(j) & " " & W(j)
Next
End Sub
Private Sub verificar()
Open "e:\errados.dat" For Output As #1
For j = 0 To i
For k = 0 To Len(V(j))
If IsNumeric(V(j, k)) Then
Print #1, V(j), ",", W(j), ",", X(j)
End If
Next
For k = 0 To Len(W(j))
If IsNumeric(W(j, k)) Then
Print #1, V(j), ",", W(j), ",", X(j)
End If
Next
Next
End Sub
Private Sub FIN_click()
End
End Sub