I have a series of strings that need to be arranged by date with the latest first
for example with this code:
i get the output:
01-05-10 MOXIFLOXACIN (AVELOX) 400MG-1 QD-#10-1 Refill i 041.9
01-12-10 AUGMENTIN 875 MG BID WITH FOOD #20 041.9
01-12-10 METRONIDAZOLE 250MG-1 TID-#30-1 Refill 041.9
05-24-10 VANCOMYCIN 250 MG 1 PO QID #40 041.9
01-07-11 PEN VK 500MG PO BID #20 NO REFILLS 041.9
as you can see the order is ascending by date. i need it reversed to be accepted.
Thanks in advance.
for example with this code:
Code:
Open "c:\test\scripts.txt" For Input As #1
Do Until EOF(1)
Line Input #1, LineOfText
If Mid(LineOfText, 63, 1) = "A" Then
Print #2, Mid(LineOfText, 1, 60); " "; Mid(LineOfText, 65)
End If
Loop
Close #1Quote:
01-05-10 MOXIFLOXACIN (AVELOX) 400MG-1 QD-#10-1 Refill i 041.9
01-12-10 AUGMENTIN 875 MG BID WITH FOOD #20 041.9
01-12-10 METRONIDAZOLE 250MG-1 TID-#30-1 Refill 041.9
05-24-10 VANCOMYCIN 250 MG 1 PO QID #40 041.9
01-07-11 PEN VK 500MG PO BID #20 NO REFILLS 041.9
Thanks in advance.