본문 바로가기
프로그래밍 놀이터/C, C++, C#, VB

[VB6] 파일(File) 다루기

by 돼지왕왕돼지 2013. 6. 18.
반응형


 파일(File) 다루기

 


[VB6] 파일(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 )


반응형

댓글0