상담문의

ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 다시 질문드려요~
글쓴이  정혜성작성일 2005-04-28조회수 432
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

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




 



 




 



혹시나 제가 잘못 코딩한걸까요?^^;;

댓글쓰기 :
이전글 FAQ에 오류에 대한 설명이 있습니다.
다음글 문제가 안 풀려여..ㅠ.ㅠ
고객지원센터

02-556-3650

평일 9:00~18:00

일요일 공휴일 휴무

계좌번호안내

농협은행 724-01-173541

국민은행 633601-04-044665

예금주 (주)조은캠프

상호명 : (주)조은캠프 ㅣ 대표이사 : 이유락 ㅣ 대구광역시 북구 대학로80 경북대학교 IT융합산업빌딩 11층
사업자번호 : 504-81-62507 ㅣ 본사 : 053-954-0030 ㅣ 기술지원 : 070-7019-1144 ㅣ 팩스 : 050-7711-2200 ㅣ 
원격평생교육시설13호 ㅣ 출판사 : 345-2005-00013 ㅣ 통신판매업 : 2005-대구북구-00158 ㅣ 정보보호책임자 : 김창연  
기사친구는 SSL보안방식의 암호화구간을 적용하여 사이트를 안전하게 이용하실 수 있습니다.
COPYRIGHT 2005 (주)조은캠프 ALL RIGHTS RESERVED.관리자에게 메일보내기