>>
음 제가보기엔 코딩이 잘못된거 같은데요ㅡㅡㅡㅡ
단가 = Val(Mid( 버퍼,12, 3))
이익포인트 = Val(Mid( 버퍼,20, 3))
거래포인트 = Val(Mid( 버퍼,27, 3))
이렇게 되야하지 않을까요?
실수하셨나보네요... 다른건 보지않아서 모르겠네요..질문하신 부분만 보면...
해석해보면 버퍼안의 27번쨰부터 3번쨰까지 추출하라....그러니 괄호가...
혹시 그래도 모르시겠으면 문법강의 한번 더보세요...
Sub main()
>>
''''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant
>>
''''핵심변수선언
Dim 단가, 이익포인트, 거래포인트, 합계(1000), p, temp, num As Variant
>>
''''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
>>
''''입력파일처리
Open "c:\c_it\data\abc0001.txt" For Input As #1
>>
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then
''''변수저장
단가 = Val(Mid, 버퍼(12, 3))
이익포인트 = Val(Mid, 버퍼(20, 3))
거래포인트 = Val(Mid, 버퍼(27, 3))
''''합계구하기
If 단가 >= 50 Then
num = num + 1
합계(num) = 이익포인트 + 거래포인트
End If
End If
Next k
''''정렬(내림차순)
For k = 1 To num
For p = k To num
If 합계(k) < 합계(p) Then
temp = 합계(k)
합계(k) = 합계(p)
합계(p) = temp
End If
Next p
Next k
Close #1
>>
''''출력파일처리
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(5)
Close #2
>>
End Sub
변수저장에서 단가에 mid에 표시가 되더니
선택적 인수가 아닙니다. 라는 오류가 나네요
이건 무슨 말인가요?
아..어렵다...
|
이전글
다음글
