[VB 6.0]VB 사용자를 위한 또 하나의 깨알같은 팁 - 파일 핸들링

포스팅을 하기에 앞서

개인적으로

요즘같이 주위가 어수선한 시기에

이틀연속으로(게임소개가 아닌) VB에 대한 팁을

올리게되어 상당히 기쁜마음이 들고 있음을 알리고 싶다.

ㅎㅎㅎㅎ

각설하고....

오늘의 주제는 VB에서 할 수 있는 파일 핸들링에 관한

역시나 짧고 굵은 소소한 팁에 대한 이야기로써 파일에 쓰기작업을 할 때 가졌던 궁금증에 대한 이야기이다.

내용은 사실 어제처럼 별거 아니지만

책에도 잘 안나오고 관심도가 떨어져서 키워드로 찾아봐도 찾기도 힘든 내용이기 때문에 ㅎㅎㅎㅎ

이번기회에 한번 봐 뒀다가 나중에 써먹을 일이 (꼭) 생길거라고 생각하고 가볍게 보길 바란다.

VB로

작업을 해 본 적이 있는 사람이라면 아마도 파일 핸들링을 해 본적이 있을 것이다.

그리고, 요즘과는 달리 과거 1차 필기시험과 2차 프로그램 실기시험으로 '정보처리 기사' 자격증을 따던

그 시절에 VB로 실기시험을 본 사람들이라면 파일에 정답을 써서 제출해 본 경험이 있을 것이다.

아래는 참고로 MSDN에 나와 있는 파일핸들링 도움말을 접어 올리니 궁금하다면 확인해 보기 바란다.

Open문
파일에 대한 입/출력을 가능하게 합니다.

구문

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

Open 문은 다음과 같은 구성 요소로 되어 있습니다.

구성 요소 설명
pathname 필수. 파일 이름을 지정하는 문자식입니다. 디렉터리나 폴더, 드라이브를
포함할 수 있습니다.
mode 필수. 파일 모드(Append, Binary, Input, Output, Random)를 지정하는
키워드입니다. 지정하지 않으면 Random 액세스 용으로 파일을 엽니다.
access 선택. 열려 있는 파일에서 허용되는 작동 Read, Write, Read Write을
지정하는 키워드입니다.
lock 선택. 다른 프로세스에 의해 열려 있는 파일에 허용하는 연산Shared,
Lock Read, Lock Write, Lock Read Write을 지정하는 키워드입니다.
filenumber 필수. 1에서 511 사이에 있는 유효한 파일 번호로 포괄적. FreeFile
함수로 다음에 사용 가능한 파일 번호를 얻습니다.
reclength 선택. 32,767(바이트)보다 작거나 같은 수입니다. 임의 액세스 용으로
연 파일의 경우 이 값은 레코드 길이가 되며, 순차 파일의 경우
이 값은 버퍼에 있는 문자의 수가 됩니다.

[* 파일번호는 여러 파일을 열었을때 프로그램내 파일명이라 생각하시면 됩니다.]

참고

파일에서 입/출력 연산을 수행하기 전에 파일을 열어야 합니다. Open은 입/출력용 버퍼를 파일에 지정하고 버퍼와 함께 사용할 액세스 모드를 결정합니다.

pathname으로 지정한 파일이 존재하지 않으면 이 파일은 Append, Binary, Input, Output, Random 모드로 파일을 열 때 파일이 생성됩니다.

다른 프로세스가 이미 파일을 열었고 지정한 액세스 형식이 허용되지 않으면 Open 연산은 실패하고 오류가 발생합니다.

mode가 Binary인 경우 Len 절은 무시됩니다.

중요 Binary, Input, Random 모드에서는 먼저 파일을 닫지 않고도 다른 파일 번호를 사용하여 파일을 열 수 있습니다. Append와 Output 모드에서는 다른 파일 번호로 파일을 열기 전에 파일을 닫아야 합니다.



Open 문 예제
다음은 파일의 입출력이 가능하도록 하기 위하여 Open 문을 사용하는 다양한 방법을 보여주는 예제입니다.

다음 코드는 TESTFILE 파일을 순차-입력 모드로 엽니다.

Open "TESTFILE" For Input As #1
' 파일을 다른 모드로 다시 열기 전에 닫습니다.
Close #1

다음 예제에서는 쓰기 작업만을 위해 이진 모드로 파일을 엽니다.

Open "TESTFILE" For Binary Access Write As #1
' 파일을 다른 모드로 다시 열기 전에 닫습니다.
Close #1

다음 예제에서는 랜덤 모드로 파일을 엽니다. 파일에는 사용자 정의 형식인 Record 형으로 된 레코드를 포함하고 있습니다.

Type Record ' 사용자 정의 형식을 정의합니다.
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' 변수를 선언합니다.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 파일을 다른 모드로 다시 열기 전에 닫습니다.
Close #1

이 예제 코드에서는 순차 출력용으로 파일을 열어 어떤 프로세스에서도 파일에 읽기나 쓰기를 할 수 있습니다.

Open "TESTFILE" For Output Shared As #1
' 파일을 다른 모드로 다시 열기 전에 닫습니다.
Close #1

이 예제 코드에서는 이진 모드로 읽기 위해 파일을 엽니다. 다른 프로세스는 이 파일을 읽을 수 없습니다.

Open "TESTFILE" For Binary Access Read Lock Read As #1

출처 : MSDN - 도움말

기본적으로 파일을 열어서 읽고 쓰기를 하려면 사용해야 하는 구문이 바로

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

이 구문이다.

필수 옵션만 본다면

Open pathname For mode  As [#]filenumber

정도가 될 것이다.

그럼 실제로 사용되어지는 코드를 살펴보도록 하자.

Dim a As String

a = "나는야 세상에서 제일 잘생긴 개발자"

Open App.Path & "\" & Format(Now, "YYYYMMDD") & ".txt" For Append As #1
Write #1, a
Close #1

그냥 평범한 코드이다. 보통 이렇게들 사용할 거라고 보아진다.

위 코드를 실행시키면

어플리케이션의 기본경로에 오늘날짜의 이름으로 txt파일이 생성되며, 내용은

요렇게 나온다.

자....... 혹시 눈치를 챘는지?

바로 이 대목에서 오늘 포스팅의 주제가 나왔다. 위 그림에서 뭐가 문제가 될까.

출력된 결과파일의 내용을 보면 문장 양쪽에 자동으로 더블 쿼테이션이 붙어서 나오는 걸 볼 수 있다.

이게 왜 문제일까?

만약에 어제 올렸던 포스팅과 같은 작업을 한다면 여기서 문제가 될 수 있다.
(참고링크 : [VB 6.0] VB사용자를 위한 깨알같은 팁 - 아스키 코드의 활용)

예를 들어 아래와 같은 코드로 파일에 쓰기를 한다고 가정하고 실행시켜 보자.

Dim a As String

a = "나는야 " & Chr(34) & "세상에서 제일 잘생긴" & Chr(34) & " 개발자"

Open App.Path & "\" & Format(Now, "YYYYMMDD") & ".txt" For Append As #1
Write #1, a
Close #1

 결과는?

음.... 요러면 문제가 된다. 이런걸 어따 쓰냐고 생각할 수도 있겠지만,

xml문서를 파싱한다거나 html을 다룰 경우에 반드시 문제가 될 것이다.(뭐 그 외에도 문제가 될 경우는 있을거다.)

어찌보면 사소한 문제이지만, 또 이런문제가 생기면 누가 알려줄까를 생각하면 또 답답해 질 수도 있는 문제다. ㅎ

그럼 바로 문제해결로 들어가서....

위에서 발생하는 문제의 원인은 Write 명령어 때문이다.

Wirte명령어를 바꿔주면 문제는 바로 해결이 된다. 아래 코드를 보도록 하자.

Dim a As String

a = "나는야 " & Chr(34) & "세상에서 제일 잘생긴" & Chr(34) & " 개발자"

Open App.Path & "\" & Format(Now, "YYYYMMDD") & ".txt" For Append As #1
''Write #1, a '' Write 명령어를 주석처리하고 Print명령어로 대체함.
Print #1, a
Close #1

Write를 Print로 바꾸어 보았다.

물론 예상한대로 결과가 잘 나왔다. ㅎㅎㅎ

굵고 짧게 포스팅을 하려고 했지만 또 대check없이 길어지는 탓에 오늘도 서둘러 마무리를 짓겠다.