33강에서요...입력파일을 자료실에서 다운받아서 data폴더 안에 저장했거든요..?
근데..제가 저장 방법이 잘못되서 그런지 계속 53런타임 오류가 발생하네요..
파일을 찾을수 없다고 하면서...소스는 정확한거 같은데...
죄송한데요..
자료실에서 입력파일을 data폴더로 저장 시키는 방법좀...설명해 주세요..
그리고..
제가 시험이 토요일 오전이라서 33강 중급까지만 듣고 고급은 넘기고 바로 특강을 들으려고 하는데..그래도 합격할 수 있을까요??
빠른 답변 부탁드립니다..
p.s 쉽게 설명해 주셔서...빠른시간안에 나름대로(?) 이해할수 있었던거 같아요~ 꼭 합격해야 할텐데...^^;;
Sub main() ''''필수 변수 선언 Dim 인수1, 인수2, i, 버퍼 As Variant ''''핵심 변수 선언 Dim 예약실구분코드, 투숙기간, 누적점수, 할인금액, 합계(1000), 숙박요금(1000), 예약번호(1000), j, Temp, Num As Variant ''''인수 처리 인수1 = Val(Left(Command, InStr(Command, " "))) 인수2 = Val(Mid(Command, InStr(Command, " "))) ''''입력 파일 처리 Open "C:\c_it\data\abc0002.txt" For Input As #1 For i = 1 To 인수2 Line Input #1, 버퍼 If i >= 인수1 Then ''''변수 저장 예약실구분코드 = Trim(Mid(버퍼, 38, 2)) 투숙기간 = Val(Mid(버퍼, 15, 2)) 누적점수 = Val(Mid(버퍼, 40, 5)) 할인금액 = Val(Mid(버퍼, 30, 4)) ''''합계구하기 If 예약실구분코드 = "WA" Or 투숙기간 <= 13 Then Num = Num + 1 합계(Num) = 누적점수 + 할인금액 숙박요금(Num) = Val(Mid(버퍼, 19, 6)) 예약번호(Num) = Val(Mid(버퍼, 1, 6)) End If End If Next i ''''정렬(합계 내림차순 or(합계 같음 and 예약번호 오름차순)) For i = 1 To Num For j = i To Num If 합계(i) < 합계(j) Or (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then Temp = 합계(i) 합계(i) = 합계(j) 합계(j) = Temp Temp = 숙박요금(i) 숙박요금(i) = 숙박요금(j) 숙박요금(j) = Temp Temp = 예약번호(i) 예약번호(i) = 예약번호(j) 예약번호(j) = Temp End If Next j Next i Close #1 ''''출력 파일 처리 Open "C:\c_it\data\ans1.txt" For Output As #2 Print #2, 인수1, 인수2, 숙박요금(4) Close #2 End Sub
혹시나 제가 잘못 코딩한걸까요?^^;;
|