Function FindData(학번 As String) As Integer

Dim i As Integer

' 전체 학번/이름 데이타에서 콤보박스 내용과 일치되는 내용을 찾는다
For i = 1 To 전체데이타갯수

If 전체데이타(i).학번 = 학번 Then

FindData = i
Exit Function

End If

Next i

FindData = -1

End Function

' ===================================================================
' 학번이름이 담긴 파일이름로부터 데이타를 읽어들여 전체데이타에 저장한다.
' ===================================================================
Sub LoadfromFile(fileName As String)

' 현재 프로그램의 실행경로와 인자(Argument)로 넘겨받은 파일이름을 결합하여 Path를 설정한다.
Dim curPath As String
curPath = App.Path & "\" & fileName

#As #학번 #Dim #End #데이타 #If #curPath #FindData #Function #전체데이타