| Type inrec 사원번호 As String * 6 부서코드 As String * 1 호봉 As String * 2 이메일 As String * 10 본봉 As String * 3 상여금 As String * 3 공제액 As String * 3 월매출액 As String * 3 매출포인트 As String * 3 인사고과 As String * 1 근무지 As String * 1 End Type dim outrec as inrec sub main() open "c:\_it\data\abc.txt" for random as #1 len = len(outrec) + 2 open "c:\_it\data\ans1.txt" for output as #2 a = val(left(command, instr(command, " "))) b = val(mid(command, instr(command, " "))) 최대값=0 get #1, i, outrec 계산 = val(outrec.상여금) - val(outrec.공제액) if 최대값 < 계산 then 최대값 = 계산 출력 = outrec.사원번호 elself 최대값 = 계산 and 출력 > outrec.사원번호 then 출력 = outrec.사원번호 end if next debug. print a, b, 출력 print #2, trim(a), b, 출력 colse #1, #2 end sub |
다음검색