34강 회원별예약관리(고급)1번문제

Option Explicit
Sub main()
''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심변수 선언
Dim 회원구분, 예약수량, 예약금액, 예약번호(1000), 합계(1000), j, Temp, Num As Variant

''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력처리
Open "c:\c_it\data\abc03.txt" For Input As #1

    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
       
            ''변수 처리
            회원구분 = Trim(Mid(버퍼, 33, 1))
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
               
                If 회원구분 = "0" Or 회원구분 = "1" Then
                    Num = Num + 1
                    합계(Num) = 예약수량 * 예약금액
                    예약번호(Num) = Trim(Mid(버퍼, 1, 7))
                   
                End If
       
       
        End If
    Next i
       
                ''정렬(합계를 오름차순 정렬(or 합계중복시 예약번호오름차순정렬)
                For i = 1 To Num
                    For j = i To Num
                        If 합계(i) > 합계(j) Or (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then
                            Temp = 합계(i)
                            합계(i) = 합계(j)
                            Temp = 합계(j)
                           
                            Temp = 예약번호(i)
                            예약번호(i) = 예약번호(j)
                            Temp = 예약번호(j)
                       
                        End If
                    Next j
                Next i
           

Close #1

''출력처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 예약번호(10)
Close #2

End Sub