Im my program I have a list box containing selections made by the user. I need to compare these selections to lines in a text file and fill in the missing information.
EX. the list box contains:
the text file has
368.44 SIDE VISION LOSS
368.10 DEPTH PERCEPTION POOR
871.4 CORNEAL LACERATION
i need these lines witht he number to print.
here is the code im using but it doesn't function. all i get is blank
EX. the list box contains:
- side vision loss
- depth perception poor
- corneal laceration
the text file has
368.44 SIDE VISION LOSS
368.10 DEPTH PERCEPTION POOR
871.4 CORNEAL LACERATION
i need these lines witht he number to print.
here is the code im using but it doesn't function. all i get is blank
Code:
Print #2, "<hr>"
Print #2, "Reason(s) for Consultation:"
For i = 0 To List2.ListCount - 1
Dim cace As String
Open "c:\med\dxtext.txt" For Input As #7
Do While Not EOF(7)
Line Input #7, cace
If Mid(cace, 8) = i Then
Print #2, cace
End If
Loop
Next i
Print #2, "<hr>"