7월 22일 오늘 오전
3번 문제 고급형이요~~

Option Explicit

    Sub main()
   
    ''''필수변수선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
   
    ''''핵심변수선언
   
    Dim 배달여부, 예약수량, 예약금액, 일련번호, 최대값, 최대일련번호 As Variant
   
    ''''인수지정
   
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
   
    ''''입력파일처리
   
    Open "c:\c_it\data\abc001.txt" For Input As #1
    
    ''''최대값 초기화
      최대값=0
      최대일련번호=0

        For k = 1 To 인수2
            Line Input #1, 버퍼
           
                If k >= 인수1 Then
               
               
                    ''''변수저장
                    배달여부 = Trim(Mid(버퍼, 93, 2))
                    예약수량 = Val(Mid(버퍼, 18, 5))
                    예약금액 = Val(Mid(버퍼, 23, 10))
                    일련번호 = Trim(Mid(버퍼, 1, 7))
                    
                    
                    ''''최대일련번호 구하기
                   
                    If 배달여부 <> "OK" And 배달여부 <> "no" Then
                   
                        If 최대값 < 예약수량 * 예약금액 Or (최대값 = 예약수량 * 예약금액 And 최대일련번호 < 일련번호) Then
                   
                        최대값 = 예약수량 * 예약금액
                        최대일련번호 = 일련번호
                   
                        End If
                    End If
                   
               
               
               
                End If
               
        Next k
               
   
   
   
    Close #1
   
    ''''출력파일처리
     Open "c:\c_it\data\ans3.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 최대일련번호
       
    
     Close #2
    
   
    End Sub