[VB6] 파일(File) 다루기

파일(File) 다루기

[이전강좌] Array 의 사용

File 만들기( 쓰기 )

Open "fileName" For Output As #fileNumber

   VB Statements

   Print #fileNumber, Contents

   VB Statements

Close #fileNumber

#fileNumber 라는 구문을 통해 Open 과 Close 사이에서는 

해당 fileNumber 를 통해 file 에 접근할 수 있다.

nested file open & close 도 가능한데, 여러개의 file 을 다룰 때 fileNumber 가 중요하다.

File 읽기

Open "fileName" For Input As #fileNumber

   VB Statements

   Input #fileNumber, variable

   VB Statements

Close #fileNumber

이 때 Input 은 line 단위로 읽어온다.

Sample Code

Dim linetext As String

Private Sub open_Click()

CommonDialog1.Filter = "Text files{*.txt|*.txt"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

Open CommonDialog1.FileName For Input As #1

Do

Input #1, linetext

Text1.Text = Text1.Text & linetext

Loop Until EOF(1)

Close #1

End If

End Sub

Private Sub save_Click()

CommonDialog1.Filter = "Text files{*.txt|*.txt"

CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then

Open CommonDialog1.FileName For Output As #1

Print #1, Text1.Text

Close #1

End If

End Sub

FYI) CommonDialog 는 file 을 열 때 좋다.

      CommonDialog1.Filter 는 file 선택 filter 를 선택할 수 있다.

[다음강좌] 도형 그리기 ( GUI )

#filenumber, commondialog, commondialog.filename, commondialog.filter, commondialog.showopen, commondialog.showsave, EOF, file, file 다루기, file 만들기, file 읽기, filenumber, gilter, input, nested file open, output, read file, showopen, showsave, vb, VB6, Visual Basic, wirte file, 파일, 파일 다루기, 파일 만들기, 파일 쓰기. example code, sample code, 샘플 코드, 예제 코드