Input# Statement

열린 순차 파일에서 데이터를 읽습니다.

구문:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

매개 변수:

FileNumber: 읽을 데이터가 포함된 파일의 번호입니다. 파일은 Open 문에서 INPUT 키워드를 사용하여 열어야 합니다.

var: 열린 파일에서 읽은 값을 할당한 숫자 또는 문자열 변수입니다.

Input# 문은 열린 파일에서 숫자 값 또는 문자열을 읽은 다음 데이터를 하나 이상의 변수에 할당합니다. 숫자 변수는 첫 번째 캐리지 리턴(Asc=13), 줄 바꿈(Asc=10), 공백 또는 쉼표까지 읽습니다. 문자열 변수는 첫 번째 캐리지 리턴(Asc=13), 줄 바꿈(Asc=10) 또는 쉼표까지 읽습니다.

열린 파일의 데이터 및 데이터 형식은 "var" 매개 변수에서 전달되는 변수와 동일한 순서로 나타나야 합니다. 숫자가 아닌 값을 숫자 변수에 할당할 경우 "var"에 값 "0"이 할당됩니다.

쉼표로 구분된 레코드는 문자열 변수에 할당할 수 없습니다. 또한 파일의 따옴표(")도 무시됩니다. 이러한 문자를 파일에서 읽으려면 Line Input# 문을 사용하여 인쇄 가능 문자만 포함된 순수 텍스트 파일을 줄 단위로 읽습니다.

데이터 요소를 읽는 동안 파일 끝에 도달할 경우 오류가 발생하고 프로세스가 중단됩니다.

예:

Sub ExampleWorkWithAFile

Dim iCount As Integer

Dim sName As String

Dim sValue As Integer

Dim sFileName As String

sFileName = "c:\data.txt"

iCount = Freefile

' Write data ( which we will read later with Input ) to file

Open sFileName For Output As iCount

sName = "Hamburg"

sValue = 200

Write #iCount, sName, sValue

sName = "New York"

sValue = 300

Write #iCount, sName, sValue

sName = "Miami"

sValue = 459

Write #iCount, sName, sValue

Close #iCount

iCount = Freefile

' Read data file using Input

Open sFileName For Input As iCount

Input #iCount; sName, sValue

MsgBox sName & " " & sValue

Input #iCount; sName, sValue

MsgBox sName & " " & sValue

Input #iCount; sName, sValue

MsgBox sName & " " & sValue

Close #iCount

End Sub